| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
IB и экспорт из txt [D5, IB6.x]
Cranium © (2002-07-04 13:44:00)Из 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 14:01:00) [1]Да то же WIN1251, вот сижу и голову ломаю..........
Val (2002-07-04 14:00:00) [2]а сама база в какой кодировке?
Cranium (2002-07-04 13:56:00) [3]Ну что не ужели ни кто не знает?????
| |
