Текущий архив: 2003.02.13;
Скачать: CL | DM;
Вниз
Помогите найти грабли Найти похожие ветки
← →
keeper (2003-01-28 16:50) [0]Нужно соединить таблички из сиквела и парадоха. Создается новая парадоховская табличка которая должна заполняться - первая строка добавляется нормально, а на втором проходе выдает:
чето-типа: paradox driver error:operation must use an updateble query
Настройки ADODataSet"a вроде нормальные...
Да, ОС - ХР - может драйвер кривой :()
begin
if fileexists (applpath+"temp_mvu.db") then ADOConnection2.Execute("drop table temp_mvu");
ADOConnection2.Execute("create table temp_mvu (a VARCHAR(8),b VARCHAR(25),c VARCHAR(20),d VARCHAR(20), tip_kan VARCHAR(20),naim VARCHAR(60),n_vx VARCHAR(2),n_vyx VARCHAR(2),x_mod VARCHAR(4),kont VARCHAR(3) );");
//ADOConnection2.Execute("insert into temp_mvu(a,b,c,d) SELECT aaa.a, aaa.b, aaa.c, aaa.d from kip.db aaa");
ADODataSet2.Active:= False;
ADODataSet2.CommandType := cmdText;
ADODataSet2.CommandText := "select * from kip";
ADODataSet2.Active := True;
while not (ADODataSet2.Eof =True) do begin
ADODataSet1.Active:= False;
ADODataSet1.CommandText := "select x_mod, kont, naim, tip_kan, n_vx, n_vyx FROM raz_mod where dec_no =""" + ADODataSet2.fieldbyname("c").asstring + """";
ADODataSet1.Active:= True;
ADODataSet3.Active:= True;
ADODataSet3.AppendRecord ([ADODataSet2.fieldbyname("a").asstring,ADODataSet2.fieldbyname("b").asstring, ADODataSet2.fieldbyname("c").asstring, ADODataSet2.fieldbyname("d").asstring,ADODataSet1.fieldbyname("tip_kan").asstring,ADODataSet1.fieldbyname("naim").asstring,ADODataSet1.fieldbyname("n_vx").asstring,ADODataSet1.fieldbyname("n_vyx").asstring,ADODataSet1.fieldbyname("x_mod").asstring,ADODataSet1.fieldbyname("kont").asstring]);
ADODataSet3.Active := false;
adodataset2.Next;
end;
end;
← →
Kuusiniemi © (2003-01-28 17:22) [1]"paradox driver error:operation must use an updateble query"
Первичный ключ требует для таблицы.
Страницы: 1 вся ветка
Текущий архив: 2003.02.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
