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
[解决办法]
DataModule2.ADOQuery1.Open;
改成DataModule2.ADOQuery1.EXECUTE.
OPEN是查询用