Как заставить Delphi TADOConnection использовать ansistring для команды?

У меня проблема с кодировкой, когда я вставляю в файл dbf через ADO.

Connecting string: 'Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="dBASE IV";Data Source='+extractfilepath(ParamStr(0))+';'+
  'User ID=Admin;Password='

В команде вставки я конвертирую данные в определенную кодовую страницу, но в таблице попадают разные байты. Вероятно, из-за строк юникода.

insert into someDBFFile (f1,f2,f3,f4,f5)
values(
'ATENEUM SPŁśKA Z OGRANICZONŹ ODPOWIEDZIALNOCIŹ S.K.A.  Wpisana w S†dz',
'ie rej.dla Krakowa-r˘dmiežcie Wydzia’ XI Gospodarczy',
'30-741',
'Krak˘w',
'Nad Drwin† 10, '
)

Данные после вставки в DBF:

ATENEUM SPťKA Z OGRANICZONŤ ODPOWIEDZIALNO?CIŤ S.K.A. Wpisana w SĹdzie rej.dla Krakowa-?rôdmie§cie Wydzia' XI Gospodarczy
30-741Krakôw
Nad DrwinĹ 10,

Должно быть как в примере кода:

'ATENEUM SPŁśKA Z OGRANICZONŹ ODPOWIEDZIALNOCIŹ S.K.A. Wpisana w S†dz', 'ie rej.dla Krakowa-r˘dmiežcie Wydzia' XI Gospodarczy', '30-741', 'Krak˘w', 'Nad Drwin† 10, '

Я попробовал TADOTable с тем же результатом.

tblZAEX.Insert;
 tblZAEX.FindField('NA1').AsAnsiString:=ToMazovia(Copy(TInvoiceHeaderPartiesSummaryB_Name.asansiString,1,70));
 tblZAEX.FindField('NA2').AsAnsiString:=ToMazovia(Copy(TInvoiceHeaderPartiesSummaryB_Name.asansiString,71,70));
 tblZAEX.Post;

person Jacek U    schedule 14.04.2019    source источник
comment
Ваша строковая константа - Unicode, и я очень сомневаюсь, что бэкэнд db (dbase iV??) поддерживает Unicode...   -  person whosrdaddy    schedule 14.04.2019
comment
stackoverflow.com/q/26169419/327083   -  person J...    schedule 14.04.2019