各位大哥帮我看看有什么错??

kl2000 2003-05-09 09:15:34
dm.addQdoctor.Close;
dm.addQdoctor.SQL.Clear;
dm.addQdoctor.SQL.Add('insert into doctor');
dm.addQdoctor.SQL.Add('values (:trim(edit1.Text),:trim(edit2.Text),:strbirthday,:trim(combobox1.Text),:edit3.Text,:edit4.Text,:inhousecode,:dtcosttypecode)');
dm.addQdoctor.Params[0].AsString:=trim(edit1.Text);
dm.addQdoctor.Params[1].AsString:=trim(edit2.Text);
dm.addQdoctor.Params[2].AsDate:=strbirthday;
dm.addQdoctor.Params[3].AsString:=trim(combobox1.Text);
dm.addQdoctor.Params[4].AsString:=trim(edit3.Text);
dm.addQdoctor.Params[5].AsString:=trim(edit4.Text);
dm.addQdoctor.Params[6].AsString:=inhousecode;
dm.addQdoctor.Params[7].AsString:=dtcosttypecode;
dm.addQdoctor.ExecSQL;
...全文
40 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
kl2000 2003-05-09
  • 打赏
  • 举报
回复
各位大哥辛苦了!分不多。只好平均分配了。
Comer 2003-05-09
  • 打赏
  • 举报
回复
dm.addQdoctor.SQL.Add(' values ('+''''+trim(edit1.Text)+''''+','+''''+trim(edit2.Text)+''''+','+''''+StrToStr(strbirthday)+''''+','+''''+
trim(combobox1.Text)+''''+','+''''+edit3.Text+''''+','+''''+edit4.Text+''''
+','+''''+inhousecode+''''+','+''''+dtcosttypecode+''''+')');
dm.addQdoctor.ExecSQL;
rustle 2003-05-09
  • 打赏
  • 举报
回复
dm.addQdoctor.Close;
dm.addQdoctor.SQL.Clear;
dm.addQdoctor.SQL.Add('insert into doctor');
dm.addQdoctor.SQL.Add('values (:p0,:p1,:p2,:p3,:p4,:p5,:p6,:p7)');
dm.addQdoctor.Params[0].AsString:=trim(edit1.Text);
dm.addQdoctor.Params[1].AsString:=trim(edit2.Text);
dm.addQdoctor.Params[2].AsDate:=strbirthday;
dm.addQdoctor.Params[3].AsString:=trim(combobox1.Text);
dm.addQdoctor.Params[4].AsString:=trim(edit3.Text);
dm.addQdoctor.Params[5].AsString:=trim(edit4.Text);
dm.addQdoctor.Params[6].AsString:=inhousecode;
dm.addQdoctor.Params[7].AsString:=dtcosttypecode;
dm.addQdoctor.ExecSQL;
zzheaptech 2003-05-09
  • 打赏
  • 举报
回复
dm.addQdoctor.SQL.Add('values (:trim(edit1.Text),:trim
values前面好象少个空格
WWWWA 2003-05-09
  • 打赏
  • 举报
回复
dm.addQdoctor.SQL.Add('values :n1,:n2,:strbirthday,:n3,:n4,:n5,:inhousecode,:dtcosttypecode)');
yoisyois 2003-05-09
  • 打赏
  • 举报
回复
dm.addQdoctor.SQL.Add('values (:trim(edit1.Text),:trim(edit2.Text),:strbirthday,:trim(combobox1.Text),:edit3.Text,:edit4.Text,:inhousecode,:dtcosttypecode)');
换成
dm.addQdoctor.SQL.Add('values (:v1,:v2,:v3,:v4,:v5,:v6,:v7,:v8)');

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧