delphi在执行adoquery.post时提示dataset not in edit or insert mode错
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/22 19:28:21
delphi在执行adoquery.post时提示dataset not in edit or insert mode错误
代码如下:
datasource1.DataSet:=QB;
QB.Connection:=zhuchuti.conn;
QB.Close;
QB.SQL.Clear;
Qb.SQL.Text:='select * from gds_discount where goodscode='''+goodscode.Text+'''';
Qb.Open;
dbedit1.Text:=QB.fieldbyname('deptcode').AsString;
dbedit2.Text:=QB.fieldbyname('goodscode').AsString;
dbedit3.Text:=QB.fieldbyname('cheapprice').AsString;
dbedit4.Text:=QB.fieldbyname('startdate').AsString;
dbedit5.Text:=QB.fieldbyname('enddate').AsString;
dbedit6.Text:=QB.fieldbyname('starttime').AsString;
dbedit7.Text:=QB.fieldbyname('endtime').AsString;
dbedit8.Text:=QB.fieldbyname('recorddate').AsString;
dbedit9.Text:=QB.fieldbyname('recorder').AsString;
dbedit10.Text:=QB.fieldbyname('approveflag').AsString;
dbedit11.Text:=QB.fieldbyname('checkdate').AsString;
dbedit12.Text:=QB.fieldbyname('checker').AsString;
dbedit13.Text:=QB.fieldbyname('comment').AsString;
dbedit1.Text:=zhuchuti.StatusBar1.Panels[4].Text;
dbedit2.Text:=goodscode.Text;
dbedit3.Text:=cheapprice.Text;
dbedit4.Text:=formatdatetime('yyyy-MM-dd',startdate.Date);
dbedit5.Text:=formatdatetime('yyyy-MM-dd',enddate.Date);
dbedit6.Text:=starttime.Text;
dbedit7.Text:=endtime.Text;
dbedit8.Text:=zhuchuti.StatusBar1.Panels[3].Text;
dbedit9.Text:=zhuchuti.StatusBar1.Panels[1].Text;
dbedit10.Text:='1';
dbedit11.Text:='';
dbedit12.Text:='';
dbedit13.Text:='';
QB.Post;
应该是adoqurey没有处于编辑或插入状态,请问我要在哪里加入QB.exit或QB.insert
代码如下:
datasource1.DataSet:=QB;
QB.Connection:=zhuchuti.conn;
QB.Close;
QB.SQL.Clear;
Qb.SQL.Text:='select * from gds_discount where goodscode='''+goodscode.Text+'''';
Qb.Open;
dbedit1.Text:=QB.fieldbyname('deptcode').AsString;
dbedit2.Text:=QB.fieldbyname('goodscode').AsString;
dbedit3.Text:=QB.fieldbyname('cheapprice').AsString;
dbedit4.Text:=QB.fieldbyname('startdate').AsString;
dbedit5.Text:=QB.fieldbyname('enddate').AsString;
dbedit6.Text:=QB.fieldbyname('starttime').AsString;
dbedit7.Text:=QB.fieldbyname('endtime').AsString;
dbedit8.Text:=QB.fieldbyname('recorddate').AsString;
dbedit9.Text:=QB.fieldbyname('recorder').AsString;
dbedit10.Text:=QB.fieldbyname('approveflag').AsString;
dbedit11.Text:=QB.fieldbyname('checkdate').AsString;
dbedit12.Text:=QB.fieldbyname('checker').AsString;
dbedit13.Text:=QB.fieldbyname('comment').AsString;
dbedit1.Text:=zhuchuti.StatusBar1.Panels[4].Text;
dbedit2.Text:=goodscode.Text;
dbedit3.Text:=cheapprice.Text;
dbedit4.Text:=formatdatetime('yyyy-MM-dd',startdate.Date);
dbedit5.Text:=formatdatetime('yyyy-MM-dd',enddate.Date);
dbedit6.Text:=starttime.Text;
dbedit7.Text:=endtime.Text;
dbedit8.Text:=zhuchuti.StatusBar1.Panels[3].Text;
dbedit9.Text:=zhuchuti.StatusBar1.Panels[1].Text;
dbedit10.Text:='1';
dbedit11.Text:='';
dbedit12.Text:='';
dbedit13.Text:='';
QB.Post;
应该是adoqurey没有处于编辑或插入状态,请问我要在哪里加入QB.exit或QB.insert
你对数据库根本没有修改.赋值的时候直接赋给数据库.或者你是不是把方向搞反了..
QB['deptcode']=dbedit1.Text;
QB['deptcode']=dbedit1.Text;
delphi在执行adoquery.post时提示dataset not in edit or insert mode错
DO NOT RECHARGE ,DISPOSE OF IN FIRE OR IMPROPERLY INSERT什麼意思
delphi 提示variable "form2"might not have been initialized.
C程序检验.请问有什么错误,执行时总是提示; error C2085: 'a' : not in formal para
安装极品飞车9时出现这个提示please insert cd/dvd2 in drive
ADOQuery:Field 'devid' not found.怎么翻译?
求解 VC提示 1 error 请问错在哪里 执行的时候更是 This file does not exist. Do
delphi编程 报错 parameter 'wh' not found?还有这事.
delphi 中出现cannot perform this operation on a closed dataset问
英语翻译do not attach to skin or insert into mouth.before purcha
点安装程序时提示:invalid start mode:archive filename ,
开机显示:Drive Not Ready Insert BOOT diskette in A:Press any key