Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.25;
Скачать: CL | DM;

Вниз

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, вот сижу и голову ломаю..........



Страницы: 1 вся ветка

Текущий архив: 2002.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
14-81462
koks
2002-06-27 10:59
2002.07.25
QReport vs FreeReport


7-81508
cdaDmitriy
2002-05-01 14:45
2002.07.25
КАК можно определить Изменение Системного времени


14-81409
books
2002-06-26 15:00
2002.07.25
Электронные книги по программированию


1-81271
maxim2
2002-07-15 13:18
2002.07.25
Подскажите куда вставлять объявление меток


8-81379
SemenK
2002-03-19 20:35
2002.07.25
*.GIF