procedure TForm1.Button1Click(Sender: TObject);
var
SqlBak: string;
begin
//备份Sql语句
SqlBak := ADOQuery1.SQL.Text;
try
with ADOQuery1.SQL do
begin
Clear;
Add('insert test values(''张三'',''test'')');
end;
ADOQuery1.ExecSQL
except
on Error: EOleException do ShowMessage(Error.Message);
end;
end;
这个就没有什么好多说的啦,一看就明白怎么用了,主要是防止以后偶自己忘了用法了! ^_^
博客给出一段代码,在Button1Click事件中,先备份SQL语句,然后清空原有SQL语句,添加一条插入语句'insert test values(''张三'',''test'')',最后执行该SQL语句,若出错则显示错误信息,主要用于防止遗忘用法。
533

被折叠的 条评论
为什么被折叠?



