Непонятки с кодировками

[edsjeka]

База данных MySql у базы Character set: cp1251--Windows Cyrilic, Collation: cp1251_general_ci.
В SQL Connection св-во Driver-ServerCharSet стоит cp1251, в параметрах тоже cp1251.
Получается, что те данные на русском языке, которые уже внесены в базу отображаются нормально на русском. А вот то, что я вношу заново превращаются в абра-кадабру. Где еще что нужно выставить, чтобы именно при внесении данных в БД на русском данные отображались нормально.

[martofpain]

Если у тебя Delphi 2007 то в компоненте MyConnection1.options есть строка UseUnicode, поставь значение True и будет тебе счастье)

[martofpain]

Есть еще один вариант в Connection. Properties пропиши следующее

CodePage=cp1251
compress=true
CLIENT_MULTI_STATEMENTS=true
CLIENT_MULTI_RESULTS=true

и все.
Просто первый вариант подходит для MyDAC а второй для Zeos

[edsjeka]

Сообщение от martofpain

Если у тебя Delphi 2007 то в компоненте MyConnection1.options есть строка UseUnicode, поставь значение True и будет тебе счастье)

А если у меня Embarcadero® Delphi 10 Seattle, я использую dbexpress, SQLConnection и данные ввожу через Edit или Memo, тут есть какие-то нюансы?

[edsjeka]

Оказывается, такая проблема проявляется только тогда когда я использую параметры в запросе, т.е. когда делаю так:

if (RadioGroup1.ItemIndex=0) and
   (ListBox1.Items[ListBox1.ItemIndex] = 'Справочник работ') then
  begin
   zapr:='Insert into SprRabot (Rabota) values (:myrab)';
 
     DataModule1.SQLQuery1.Close;
     DataModule1.SQLQuery1.SQL.Text:=zapr;
     DataModule1.SQLQuery1.Params.ParamByName('myrab').Value:=Edit6.Text;
     DataModule1.SQLQuery1.ExecSQL;
     InsSprRabot();
     MessageDlg('Запись успешно добавлена', mtInformation, [mbOk], 0);
 
  end;

то вместо русских символов вылазят кракозяблы.
А если вставляю напрямую, без параметров, то все вставляется нормально:

if (RadioGroup1.ItemIndex=0) and
   (ListBox1.Items[ListBox1.ItemIndex] = 'Справочник работ') then
  begin
   zapr:='Insert into SprRabot (Rabota) values ("'+Edit6.Text+'")';
{   zapr:='Insert into SprRabot (Rabota) values (:myrab)';}
 
     DataModule1.SQLQuery1.Close;
     DataModule1.SQLQuery1.SQL.Text:=zapr;
    { DataModule1.SQLQuery1.Params.ParamByName('myrab').Value:=Edit6.Text;}
     DataModule1.SQLQuery1.ExecSQL;
     InsSprRabot();
     MessageDlg('Запись успешно добавлена', mtInformation, [mbOk], 0);
 
  end;

Так что не использовать параметры там где есть русские символы? Глупо как-то получается.