我刚学delphi对这个不是很懂,在这个用delphi中ADOQuery控件访问数据库遇到了一些问题,请各位帮帮忙

[zzhqiao]

我在一个窗体上放了一个ADOQuery控件一个按钮控件 ,ADOQuery控件的ConnectionString属性我连接到了我计算机上的一个数据库,SQL属性写了一条 select *from su;(su是表名)Active属性我设为了true;在按钮的单击事件里面我写了如下代码:
procedure TForm1.Button1Click(Sender: TObject);
var sqlstr:string;
begin
sqlstr:='insert into su (id,name) values('''+'90'+''','''+'wu'+''');';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sqlstr);
ADoQuery1.Open;
end;

end.
结果能运行,当我单 击按钮时报错, 但是数据却能写到数据库中去

[Bear_hx]

ADoQuery1.Open;改成ADOQuery1.ExecSQL；执行SQL语句用ExecSQL，查询用Open

[sanguomi]

有数据集返回才用OPEN,INSET,DELETE,UPDATE用EXECSQL

[syc_cs]

ADoQuery1.Open;改成ADOQuery1.ExecSQL；
执行SQL语句用ExecSQL，查询用Open

[阿三]

利用事务来控制
adoconnection.begintrans;
try
with adoquery do
begin
close;
sql.text := '';
execsql;
end;
adoconnection.commit;
except
adoconnection.rollback;
showmessage('出错');
end;
这样就不会有问题可能还会插入到数据库中了....

[ipbdq]

楼上聪明。

[wangxuelid]

利用事务来控制
adoconnection.begintrans;
try
with adoquery do
begin
close;
sql.text := '';
execsql;
end;
adoconnection.CommitTrans;
except
adoconnection.RollbackTrans;
showmessage('出错');
end;
这样就不会有问题可能还会插入到数据库中了....
//到现在还不会用时务处理问题,,,汗,,,学习 ,,

[csdn小虫]

sqlstr:='insert into su (id,name) values('''+'90'+''','''+'wu'+''');'
感觉这里的'有错
sqlstr:='insert into su(id,name) values('+''''+'90'+''''+','+'''wu'''+')';
还有就是execsql

[wflin20082008]

改成这样：
procedure TForm1.Button1Click(Sender: TObject);
var sqlstr:string;
begin
sqlstr:='insert into su (id,name) values('''+'90'+''','''+'wu'+''');';
ADoQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sqlstr);
ADoQuery1.execsql;
end;

end.
可以结帖子了！

[ehappy]

楼上说得对

[jxjjljf]

ding

[weill]

学会了事务，不错，踩一脚留个记号。

[阿三]

发表于：2008-01-01 12:07:258楼 得分:0
改成这样：
procedure TForm1.Button1Click(Sender: TObject);
var sqlstr:string;
begin
sqlstr:='insert into su (id,name) values('''+'90'+''','''+'wu'+''');';
ADoQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sqlstr);
ADoQuery1.execsql;
end;

end.
可以结帖子了！

这种写法也有些繁索，比如有十几二十个字段，你写这句SQL一会 引号都得把自己弄晕了

建议这样写
with adoquery1 do
begin
close;
sql.text := ' nsert into su (id,name) values (:id,:name)';
Parameters.parambyname('id').values := 90;
parameters.parambyname('name').values := 'wu';
execsql;
end;
这样写的好处，第一简单易读，有错误也容易查找，第二提高数据库的处理速度

[zzhqiao]

呵呵，以前都不知道怎么看回复，都没有看到。快2年了，现在重新学delphi看到了这个。