dbExpress Delphi XE2 и русские буквы
Я начал работать с dbExpress и Xe2. Теперь у меня проблемы с русским текстом, у меня есть "????????????" вместо букв.Вот структура: В таблицу я сам ввел русский текст. В то время как я Quering, у меня есть что-то вроде этого:
var
Connection: TSQLConnection;
Qry: TSQLQuery;
VersionString: String;
i:Integer;
begin
Result:=False;
Connection := TSQLConnection.Create(nil);
Connection.DriverName := 'MySQL';
Connection.GetDriverFunc := 'getSQLDriverMYSQL';
Connection.LibraryName := 'dbxmys.dll';
Connection.VendorLib := 'libmysql.dll';
Connection.LoginPrompt:=False;
Connection.Params.Values['Database']:=dbName;
Connection.Params.Values['User_Name']:=dbUser;
Connection.Params.Values['Password']:=dbPass;
Connection.Params.Values['HostName']:=dbHost;
Qry := TSQLQuery.Create(nil);
Qry.SQLConnection := Connection;
Qry.SQL.Text := 'SELECT * FROM `scan_values` WHERE `city`='''+City+''' AND `type` ='''+Gtype+''';';
Qry.Open();
while not Qry.Eof do
begin
ComboBoxDestination.Items.Add(Qry.Fields[6].AsString);
Qry.Next;
end;
Result:=true;
Qry.Close;
Connection.Free;
end;
Что я делаю неправильно?
1 ответ
Connection.Params.Values['CharacterSet']:='utf8';
Connection.Params.Values['Names']:='utf8';
Connection.Params.Values['ServerCharSet']:='utf8';
Это помогает мне... ПОЧЕМУ РАЗРАБОТЧИКИ НЕ СДЕЛАЮТ РУКОВОДСТВО \ РУКОВОДСТВО ПО ЭТОМУ??? Только Рэндом помогает мне...