在delphi中我调试了下面程式为什么老是有错

来源:百度知道 编辑:UC知道 时间:2024/06/06 05:24:58
begin
try
with ADOygxx1 do
begin
close;
sql.Clear;
sql.Add('insert rsyg valus(:a,:b,:c,:d,:e,:f,:g,:h,:i, j:,:k,:l,:m,:n,:o,:p,:q,:r,:s,:t,:u,:v,:w,:x,:y,:z)' );
parameters.parambyname('a').value:=trim(edit1.Text);
parameters.parambyname('b').value:=trim(edit2.Text);
parameters.parambyname('c').value:=trim(combobox1.Text);
parameters.parambyname('d').value:=trim(combobox2.Text);
parameters.parambyname('e').value:=trim(edit3.Text);
parameters.parambyname('f').value:=trim(edit4.Text);
parameters.parambyname('g').value:=trim(combobox3.Text);
parameters.parambyname('h').value:=trim(edit5.Text);
parameters.parambyname('i').value:=trim(combobox4.Text);
parameters.parambyname('j').value:=trim(edit6.Text);
parameters.parambyname('k').value:=strtodate(maskedit

问题可能是
1:表ygxx1的定义在数量上顺序类型上同要插入的值相同吗?
2:'insert rsyg valus(。。。' 是否为 insert into ...?(这个取决于您的数据库使用什么版本的SQL,SQL92标准为 insert into,必须有into, SQL92 for interbase的数据库对象还必须用双引号括起)
3,execsql 后应该有;号(这里因为是最后语句,可以省略,但是不是好的编程书写习惯。)
----------------------------------------------------
回答完毕,以下是本人所编的《资金管理系统》部分插入语句(将数据插入到收入支出表中),希望能给您带来帮助。
with Dm.ADOTable_srzc do
begin
Insert;
FieldByName('rq').AsDateTime :=now;
FieldByName('zy').AsString :='摘要';
FieldByName('zh').AsString :=dm.ADOTable1.FieldValues['zhanghao'];
FieldByName('khh').AsString :='888';
FieldByName('khmc').AsString :='大连市';
FieldByName('khpzmc').AsString :='工行转账支票';
FieldByName('khpzzh').AsString :='888';
FieldByName('ytbm').AsString :='888';
FieldByName('ytmc').AsString :='购材料款';