Помогите найти грабли

← →
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"
Первичный ключ требует для таблицы.

Помогите найти грабли Найти похожие ветки