2454
社区成员
ADOQuery_Book :Dataset not in edit or insert mode.这是什么原因？
我要增加一条图书记录，但老出现
ADOQuery:Dataset not in edit or insert mode的错误，大家帮忙啊！
with ADOQuery_Book do
begin
Append;
DBEdit_BookID.SetFocus;
DBEdit_BookID.Text:= IntToStr(PublicFunction_Form.GetFitNum('BookID',
'Select BookID from Lab_Book_Manage where BookID<>-1 Order By BookID ASC'));
DBEdit_BookName.SetFocus;
FieldByName('BookStatus').AsString:='未借';
Post;
end;
ADOQuery:Dataset not in edit or insert mode的错误，大家帮忙啊！
with ADOQuery_Book do
begin
Append;
DBEdit_BookID.SetFocus;
DBEdit_BookID.Text:= IntToStr(PublicFunction_Form.GetFitNum('BookID',
'Select BookID from Lab_Book_Manage where BookID<>-1 Order By BookID ASC'));
DBEdit_BookName.SetFocus;
FieldByName('BookStatus').AsString:='未借';
Post;
end;
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
liangpei2008 2006-04-04
在进行插入之前首先判断一下结果集的状态，如果不是插入状态的话，将其改为insert状态既可。
if not (datasource1.state in [dsinsert])
adoquery_book.insert;
if not (datasource1.state in [dsinsert])
adoquery_book.insert;
Rubi 2006-04-01
你把'BookID','Select BookID from Lab_Book_Manage where BookID<>-1 Order By BookID ASC'));
单独用个adoQuery_book.sql.text来存，
adoquery_book.close;
adoquery_book.sql.clear;
adoquery_book.sql.text :=''Select BookID from Lab_Book_Manage where BookID<>-1 Order By BookID ASC';
adoQuery_book.open;
...继续下面的给FieldByName('BookID'）赋值
单独用个adoQuery_book.sql.text来存，
adoquery_book.close;
adoquery_book.sql.clear;
adoquery_book.sql.text :=''Select BookID from Lab_Book_Manage where BookID<>-1 Order By BookID ASC';
adoQuery_book.open;
...继续下面的给FieldByName('BookID'）赋值
huangheng1983 2006-04-01
还是不行哦！
elite01 2006-04-01
Append前加个Open试下
,SetFocus也别调了,没啥用吧
,SetFocus也别调了,没啥用吧
DURON800 2006-04-01
如果不是记录集的问题，请改成以下格式试试：
with ADOQuery_Book do
begin
Append;
FieldByName('BookID'").AsString:= IntToStr(PublicFunction_Form.GetFitNum('BookID','Select BookID from Lab_Book_Manage where BookID<>-1 Order By BookID ASC'));
FieldByName('BookStatus').AsString:='未借';
Post;
end;
with ADOQuery_Book do
begin
Append;
FieldByName('BookID'").AsString:= IntToStr(PublicFunction_Form.GetFitNum('BookID','Select BookID from Lab_Book_Manage where BookID<>-1 Order By BookID ASC'));
FieldByName('BookStatus').AsString:='未借';
Post;
end;
DURON800 2006-04-01
我不明白你的两个SetFocus是做什么用的？
应该不需要吧。直接用对象名.AsString就可以了吧。另外，你的ID数据类新应该是uniqueidentifier吧？
应该不需要吧。直接用对象名.AsString就可以了吧。另外，你的ID数据类新应该是uniqueidentifier吧？
DURON800 2006-04-01
一般原因有两个：
一、记录集未打开；
二、记录集的锁定类型是只读；
一、记录集未打开；
二、记录集的锁定类型是只读；
huangheng1983 2006-04-01
ADOQuery:Dataset not in edit or insert mode这类错误一般是哪些地方出错了？
huangheng1983 2006-04-01
按楼上说的，我改了，可还是出错，同一个错误！
Delphi 将ADOQUERY的Parameters存储到流中.rar Delphi 将ADOQUERY的Parameters存储到流中，再从流中载入保存到数据表，本模块改编于 New Midas VCL Library(1.00)的JxStream.pas，procedure Write7BitEncodedInt(value: LongInt);写入shortstring. 适用于写入...
修改数据结果出现dataset not in edit or insert mode 想让程序在查询后修改数据结果出现dataset not in edit or insert mode ，问题，想要修改数据，不能随意移动纪录指针，并且在每次修改纪录后马上post，前面加上Edit 模式 基本语句如下所示： while not self....
关于DBGrideh出现Dataset not in edit or insert mode 我是在选择框的数据改变是事件onupdatedata的事件中对数进行修改，但有时候可以修改，有时候就会出现adoquery1: dataset not in edit or insert mode 的错误，我百思不得其解。 在网上找了好久，有人说是把DBGrideh...
DELPHI中 screen.Cursor:=crhourglass; adoQuery.close; adoquery.Open; screen.Cursor:=crdefault;啥意思... 这段代码大概是用来演示鼠标的用法的。具体解释如下： 使鼠标指针为沙漏状。（以表示程序正忙）screen.Cursor:=crhourglass; 把（打开的）数据库关闭。adoQuery.close;（个人以为改成这样更好：if adoQuery.Active ...
Delphi中的ADOquery 用法以及ADOquery的自有方法Append 和Delete和 Edit 和Post Delphi在数据库操作是非常好用的,delphi把ADO一些方法属性都集成了,以下是我的一些总结: ...With ADOQuery1 do begin Close; SQL.Clear; SQL.Add(' Insert Into Table1(Field1,Field2)') SQL.Add(' V...
ADOQuery错误：ADOQuery1:commandtext does not return a result set
ADOQuery错误：ADOQuery1:commandtext does not return a result set
这个问题困扰我好久啊，终于解决了！
因为你的语法使用到 DELETE OR UPDATE ，而他们的执行结果是不回传的，所以就出现了以下...
解决 ADOQuery1:commandtext does not return a result set ADOQuery错误：ADOQuery1:commandtext does not return a result set 这个问题困扰我好久啊，终于解决了！ 因为你的语法使用到 DELETE OR UPDATE ，而他们的执行结果是不回传的，所以就出现了以下警告： 程序内容： ...
ADOQuery.Parameters: Property Parameters does not exist Exception class EReadError with message 'Property Parameters does not ... Exception class EReadError with message 'Error reading Combobox.ADOQuery.Parameters: Property Parameters does not exist'....
adoquery1.SQL.Add与adoquery1.SQL.text有什么区别？ adoquery1.sql.add相当于添加一个值比如说adoquery1.sql.text:='a';adoquery1.sql.add('b');那么adoquery1.sql.text='ab' ...当在delphi中SQL语句太长，我们可以把adoquery1.sql.tex（）t分开由多个adoquery...
BCB ADOQuery错误：ADOQuery1:commandtext does not return a result set INSERT DELETE UPDATE 执行结果是不回传的，所以就出现了警告 ADOQuery1.Open;这行改成 ADOQuery1.ExecSQL;
想把ID字段中的最大值赋给edit1.text，怎么实现？ 想把ID字段中的最大值赋给edit1.text，怎么实现？ 用AdoQuery SQL:='Select MAX(id) from Atable' 转载于:https://www.cnblogs.com/tulater/archive/2009/03/20/1417342.html
DELPHI 7.0中ADOQuery1.Close什么意思?为什么要先Close! with adoquery1 do begin close； sql.clear; sql.add(''); open; end; 这是一个经典的语句，在每次查询之前先把上次删除给关了。 如果不关，第一次查询是没问题的，可如果adoqury1再用一次的话，就会有肯能和上次...
ADOQuery.Filter三个以上条件字符串的写法 一般不用ADOQuery....看到对Filter条件的解释，说 and 两边的结果必须为真，尝试将：ADOQuery.Filter：='((A=a) or (B=b)) and (C=c)' 显示First chance exception at $749F3EF2. Exception class EOleExceptio...
