Форум: "Базы";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
ВнизНаполнение таблицы из текстового файла. Найти похожие ветки
← →
amamed_3071 (2002-01-23 10:12) [5]qrMyQuery.SQL.Clear;
WHILE NOT EOF(TEXTFILE) DO
bEGIN
...READ FROM FILE AND SET VULUES
if flgSomeFlag1 then
s := Format("insert into mytbl(myField1, myField2) values (mySomeValue1, mySomeValue2);
if flgSomeFlag2 then
s := Format("update mytbl set SomeField1="%s", SomeField2="%s", where SomeField3=%d;", [strSomeValue1, strSomeValue2, dSomeValue3]);
qrMyQuery.SQL.Add(s);
END
qrMyQuery.ExecSQL;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c