Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.008 c
3-98961
Пиноккио
2002-12-07 23:35
2002.12.30
Построение ОО-модели баз данных


4-99410
Ruzz
2002-11-14 11:41
2002.12.30
не работает RegSaveKey!


3-98989
Roki
2002-12-10 12:19
2002.12.30
Есть ли аналоги SQL Monitor для Delphi?


4-99409
Maksss
2002-11-15 02:33
2002.12.30
без SYSUTILS.PAS


1-99124
iNew
2002-12-18 09:26
2002.12.30
Использую ф-ию windows.Beep(16000,15000), но какое бы число





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский