请教各位各位这是什么错误?
procedure Tgzgl.Button2Click(Sender: TObject);begin
with adoquery1 do
begin
close;
sql.Clear ;
sql.Add('insert into pay(date,id,name,bpay,apay) values (:date,:id,:name,:bpay,:apay)');
Parameters.ParamByName('date').value:=edit1.text;
Parameters.ParamByName('id').value:=edit2.text;
Parameters.ParamByName('name').value:=edit3.text;
Parameters.ParamByName('bpay').value:=edit4.text;
Parameters.ParamByName('apay').value:=edit5.text;
execsql;
showmessage('保存成功')
end;
end.
开始正常进入程序
为什么一点击“添加”按钮运行就出现错误
我是在dbgrid显示access数据库内容 使用了一个 datasource 和一个adoquery控件连接到access数据库上,
是我链接不对吗?
[ 本帖最后由 court1 于 2010-7-28 10:30 编辑 ]