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

Вниз

Ado?   Найти похожие ветки 

 
Lizerginnn   (2002-12-19 13:56) [0]

Господа! У меня следющая проблема.
Задача: слить данные из таблиц Paradox в Access (структура таблиц одинаковая.)
Решаю задачу следующим путём (если кто предложит другой более рациональный способ буду весьма благодарен :-)):
Выгружаю данные из парадокса в Query, затем подключаюсь к источнику данных ODBC, в цикле прогоняю Query и SQL-командой Insert вставляю данные (использую ExecSQL).
При использовании ADOQuery сгружается часть данных и возникает ошибка: что-то там насчёт нарушения уникальности. Провожу тоже самое используя BDE Query - всё нормально.
Вот код (извините что в C Builder)

for (int i=1;i<=5;i++)
{
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select * from sh_0"+IntToStr(i)+"_02");
Query1->Open();
Query1->First();
while (!Query1->Eof)
{
ADOQuery1->Prepared = false;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("insert into sheets (SheetID,CarID,DriverID,customerid,sheetnumber,leavefrombaseD,ReturnToBaseD,DinnerTime,InactiveTime,LeaveFromBase,ReturnToBase,ZeroDistance,ExtraAddValue,RateType1ID,RateType2ID,WorkDuration_r,AddReturnToBase) values (:sheetid,:carid,:driverid,:customerid,:sheetnumber,:leavefrombaseD,:ReturnToBaseD,:DinnerTime,:InactiveTime,:LeaveFromBase,:ReturnToBase,:ZeroDistance,:ExtraAddValue,:RateType1ID,:RateType2ID,:WorkDuration_r,:AddReturnToBase)");
ADOQuery1->DataSource = DataSource1;
ADOQuery1->Prepared = true;
ADOQuery1->ExecSQL();
Query1->Next();
}
}

Заранее благодарю за помощь.


 
Lizerginnn   (2002-12-19 14:59) [1]

Господа, неужели никто не знает?


 
Darlock   (2002-12-19 15:11) [2]

Тебе программно обязательно это делать, может быть DataPump подойдет?


 
Lizerginnn   (2002-12-19 15:25) [3]

Да я сделал уже через Query. Интересно просто из-за чего возникает ошибка при использовании ADOQuery.



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
14-99270
^Sanya
2002-12-07 20:03
2002.12.30
Неужели Delphi7 так много жрёт???


3-98986
Kolyan
2002-12-10 13:40
2002.12.30
Загнал базу dBase III+ на SQL Server 7.0. Memo не работает!


3-99000
opoloXAI
2002-12-10 15:57
2002.12.30
TableName


1-99176
Роман Витов
2002-12-17 19:48
2002.12.30
окна


7-99382
Andrei1982
2002-09-26 04:24
2002.12.30
Разрешение экрана