大家帮一下,有没有见过这种情况?????

yuyupluck 2003-05-27 01:39:34
with adoquery2 do begin
close;
sql.Clear;
sql.Add('insert into t_guest(客户来源,公司类型,) values ('''+Edit1.Text+''','''+Edit2.Text+'''');
execsql;
end;

adoquery1.Active:=false;
adoquery1.Active:=true;
数据库为access,adoquery直接连或通过odbc都出现: 添一条记录不显示,添第二条显示第一条,以后每添一条显示前一条记录删除也是一样,(adoquery2用于操作,ADOQUERY1用于连接DATASOURCE和数据库
...全文
31 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
chngoing 2003-05-28
  • 打赏
  • 举报
回复
q.Close;
q.sql.Clear;
q.sql.Add('insert into testTbl(str_col) values('''+e.text+''')');
q.ExecSQL;
q.sql.Clear;
q.SQL.add('select * from testTbl');
q.open;
yuyupluck 2003-05-27
  • 打赏
  • 举报
回复
都不能,还有别的方法没,好多人用ACCESS,好像都没有问题啊,为什么?????
大家给我一个回答!!
swayi21 2003-05-27
  • 打赏
  • 举报
回复
ExecSql;
Close;
Open;
end;

這樣試試吧。
swayi21 2003-05-27
  • 打赏
  • 举报
回复
我也有發現這個現象,我也不知為何,
後來隻好放棄使用Access.
wjsfr 2003-05-27
  • 打赏
  • 举报
回复
with adoquery2 do begin
close;
sql.Clear;
sql.Add('insert into t_guest(客户来源,公司类型,) values ('''+Edit1.Text+''','''+Edit2.Text+'''');
增加一句:close;
execsql;
end;

你是是看!

2,498

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧