delphi添加数据时报错,该怎么处理

2013-12-26

delphi添加数据时报错 //得到排队号paidui: StrToInt(lblpaidui.Caption)DataModule2.ADOQuery1.CloseD

delphi添加数据时报错
//得到排队号
  paidui:= StrToInt(lblpaidui.Caption);
  DataModule2.ADOQuery1.Close;
  DataModule2.ADOQuery1.SQL.Clear;
  DataModule2.ADOQuery1.SQL.Add('insert into items(id, [name], [zjlx], [zjhao], [fzjgszd], [txdz], [youbian], [shouji], [dianhua], [bizhong], [chaohui], [qian], [paiduihao])'
        +' values (items_id_seq.nextval, :name, :zhengjian, :zhenghao,'
        +' :fazhengjg, :txdz, :youbian, :shouji, :dianhua, :bizhong, :chaohui, :qian, :paidui)');
  DataModule2.ADOQuery1.Parameters.ParamByName('name').Value := name;
  DataModule2.ADOQuery1.Parameters.ParamByName('zhengjian').Value := zhengjian;
  DataModule2.ADOQuery1.Parameters.ParamByName('zhenghao').Value := zhenghao;
  DataModule2.ADOQuery1.Parameters.ParamByName('fazhengjg').Value := fazhengjg;
  DataModule2.ADOQuery1.Parameters.ParamByName('txdz').Value := txdz;
  DataModule2.ADOQuery1.Parameters.ParamByName('youbian').Value := youbian;
  DataModule2.ADOQuery1.Parameters.ParamByName('shouji').Value := tel;
  DataModule2.ADOQuery1.Parameters.ParamByName('dianhua').Value := dianhua;
  DataModule2.ADOQuery1.Parameters.ParamByName('bizhong').Value := bizhong;
  DataModule2.ADOQuery1.Parameters.ParamByName('chaohui').Value := chaohui;
  DataModule2.ADOQuery1.Parameters.ParamByName('qian').Value := Money;
  DataModule2.ADOQuery1.Parameters.ParamByName('paidui').Value := paidui;
  DataModule2.ADOQuery1.Open;
  if DataModule2.ADOQuery1.RecordCount<>0 then
  begin
    //当数据添加成功后会跳转到确认客户信息页面
    application.CreateForm(TForm5,Form5);
    Form5.Show;
  end;
上面一段代码  运行后出现
delphi添加数据时报错,该怎么处理

下面是数据库的字段

哪位亲爱的兄弟们帮帮忙  小弟初学delphi
[解决办法]
DataModule2.ADOQuery1.Open;
改成DataModule2.ADOQuery1.EXECUTE.
OPEN是查询用

热点排行

.NET

delphi添加数据时报错,该怎么处理