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;
这个就没有什么好多说的啦，一看就明白怎么用了，主要是防止以后偶自己忘了用法了! ^_^
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请联系我们，一经查实，本站将立刻删除。
如需转载请保留出处：https://51itzy.com/kjqy/75790.html