Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c