绯
绯红之王
Unregistered / Unconfirmed
GUEST, unregistred user!
查询函数
function selectquery(sql : ansistring;tp : word) :TADOQuery ;
var aQuery : tadoquery;
begin
aQuery := TADOQuery.Create(nil);
aQuery.Connection := flogin.adoconnection1;
aQuery.SQL.Add(sql);
aquery.Close;
case tp of
1: aquery.open;
2: aquery.ExecSQL;
3:
begin
showmessage(sql);
aquery.open;
end;
4:
begin
showmessage(sql);
aquery.ExecSQL;
end;
end;
result := aquery;
end;
ado连接数据库运行正常
ado通过odbc数据源连接access
遇到修改记录
也就是x := selectquery(select a.a1,a.a2,b.b1,b.b2 from a,b where a.a1 = b.a1,1)
if x.recordcount = 1 then
begin
x.edit
....
x.post
end;
当运行post的时候报错,说“缺少更新或刷新键列的信息”
请问怎么修改
function selectquery(sql : ansistring;tp : word) :TADOQuery ;
var aQuery : tadoquery;
begin
aQuery := TADOQuery.Create(nil);
aQuery.Connection := flogin.adoconnection1;
aQuery.SQL.Add(sql);
aquery.Close;
case tp of
1: aquery.open;
2: aquery.ExecSQL;
3:
begin
showmessage(sql);
aquery.open;
end;
4:
begin
showmessage(sql);
aquery.ExecSQL;
end;
end;
result := aquery;
end;
ado连接数据库运行正常
ado通过odbc数据源连接access
遇到修改记录
也就是x := selectquery(select a.a1,a.a2,b.b1,b.b2 from a,b where a.a1 = b.a1,1)
if x.recordcount = 1 then
begin
x.edit
....
x.post
end;
当运行post的时候报错,说“缺少更新或刷新键列的信息”
请问怎么修改