IB и экспорт из txt

← →
Cranium (2002-07-04 13:44) [0]

Из txt файла по ниже следующему коду экпортирую данные в IB базу,
......
OpenDialog1.Filter:="TXT|*.txt";
If OpenDialog1.Execute then
begin
PathFile:=OpenDialog1.FileName;
AssignFile(DatF, PathFile);
Reset(DatF);
Label2.Caption:="Файл успешно открыт идет считывание данных";
while SeekEof(DatF)=False do
begin
ReadLn(DatF,S1);
If Pos("0",S1)=1 then
begin
Delete(S1,1,2);
S2:=Copy(S1,1,( (Pos("~",S1)-1 ) ));
DataModule2.IBStoredProcIn.ParamByName("ART").Value:=S2;
Delete(S1,1,( Pos("~",S1) ));

S2:=Copy(S1,1,( (Pos("~",S1)-1 ) ));
DataModule2.IBStoredProcIn.ParamByName"KOL").AsFloat:=StrToFloat(S2);
Delete(S1,1,( Pos("~",S1) ));
.................
TRY
DataModule2.IBTransaction1.Active:=False;
DataModule2.IBTransaction1.StartTransaction;
DataModule2.IBStoredProcIn.ExecProc;
except
DataModule2.IBTransaction1.Rollback;
end;
DataModule2.IBTransaction1.Commit;В установка IBDatabase lc_ctype=WIN1251
исходный файл то же в виндовой раскладке однако когда подаются русские символы в точке: DataModule2.IBStoredProcIn.ExecProc;
орет об ошибки кодировки.....SQL error code - 303
В чем грабли????

← →
Cranium (2002-07-04 13:56) [1]

Ну что не ужели ни кто не знает?????

← →
Val (2002-07-04 14:00) [2]

а сама база в какой кодировке?

← →
Cranium (2002-07-04 14:01) [3]

Да то же WIN1251, вот сижу и голову ломаю..........

IB и экспорт из txt Найти похожие ветки