begin
ADOQuery2.Open;
while not ADOQuery2.Eof do
begin
pid:=ADOQuery2['PID'];
Adoquery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into salary(year_month,person,basic,bonus,add_detail,add_total,sub_detail,sub_total,total) ');
ADOQuery1.SQL.Add('Values('''+edit1.Text+''',pid,1,1,0,0,0,0,0)');
ADOQuery1.ExecSQL;
showmessage('设置成功!');
ADOQuery2.Next;
end
end
若把pid改成'''+pid+''',则提示Imcompatible types: 'String' and 'Integer'.请问该怎么改呢
ADOQuery2.Open;
while not ADOQuery2.Eof do
begin
pid:=ADOQuery2['PID'];
Adoquery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into salary(year_month,person,basic,bonus,add_detail,add_total,sub_detail,sub_total,total) ');
ADOQuery1.SQL.Add('Values('''+edit1.Text+''',pid,1,1,0,0,0,0,0)');
ADOQuery1.ExecSQL;
showmessage('设置成功!');
ADOQuery2.Next;
end
end
若把pid改成'''+pid+''',则提示Imcompatible types: 'String' and 'Integer'.请问该怎么改呢
解决方案 »
- 关于winAPI 函数参数的设置的问题
- 超头痛,在退出程序时出错,请DELHPI高手指点迷经!TKS
- 谢谢: 如何重复调用一个form ?
- 有关winexec调用外部文件出错,如何解决?
- 如何在delphi里实现多图层画图,难死我了
- 为什么我的DELPHI在输入了类名或控件名再输入了.号后,不能自动的搜索方法和属性的?
- ado的sybase驱动
- 程序运行时,如果用户按下Ctrl+Alt+ Del 看不到我运行的程序如何实现??
- 怎么把数据库导出到excel啊?急用!
- 用BDE操作DBF文件,Locate查询到一条记录后,如何查询到下一条符合条件的记录????急@@
- Delphi实现在一台机器上登录多个用户并保持在线
- delphi的文本操作谁比较了解啊??帮帮我啊!!!
var
pid : Integer;
begin
pid:=ADOQuery2['PID'].AsInteger;
ADOQuery1.SQL.Add('insert into salary(year_month,person,basic,bonus,add_detail,add_total,sub_detail,sub_total,total) ');
ADOQuery1.SQL.Add('Values('+QuotedStr(edit1.Text)+','+IntToStr(pid)+',1,1,0,0,0,0,0)');
end;