我的程序是一个很简单的查询,它是这样的:
基本控件如下:
ADOCon: TADOConnection;//连接某个Sqlserver数据库
ADOQuery1: TADOQuery;//其Connection属性是ADOCon
DataSource1: TDataSource;//其DataSet属性是ADOQuery1
DBGrid1: TDBGrid;//其DataSource属性是DataSource1
SearchBtn: TButton;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
主要代码:procedure TForm1.SearchBtnClick(Sender: TObject);
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from data_input where convert varchar (8),jc_date,112)>='''+FormatDateTime('yyyymmdd',DateTimePicker1.DateTime)+''' and convert(varchar(8),jc_date,112)<='''+FormatDateTime('yyyymmdd', DateTimePicker2.DateTime)+'''';
ADOQuery1.Open;
end;
功能是显示某个时间段的数据,单击SearchBtn执行查询;
问题是这样的,执行SearchBtnClick的时候如果ADOQuery1有满足条件的记录一切正常;如果没有记录存在则会出现异常,提示信息如下:Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record
这是怎么回事(我以前这样用都很正常),怎么消除异常?
基本控件如下:
ADOCon: TADOConnection;//连接某个Sqlserver数据库
ADOQuery1: TADOQuery;//其Connection属性是ADOCon
DataSource1: TDataSource;//其DataSet属性是ADOQuery1
DBGrid1: TDBGrid;//其DataSource属性是DataSource1
SearchBtn: TButton;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
主要代码:procedure TForm1.SearchBtnClick(Sender: TObject);
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from data_input where convert varchar (8),jc_date,112)>='''+FormatDateTime('yyyymmdd',DateTimePicker1.DateTime)+''' and convert(varchar(8),jc_date,112)<='''+FormatDateTime('yyyymmdd', DateTimePicker2.DateTime)+'''';
ADOQuery1.Open;
end;
功能是显示某个时间段的数据,单击SearchBtn执行查询;
问题是这样的,执行SearchBtnClick的时候如果ADOQuery1有满足条件的记录一切正常;如果没有记录存在则会出现异常,提示信息如下:Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record
这是怎么回事(我以前这样用都很正常),怎么消除异常?
解决方案 »
- excelapplication有什么好的方法可以获取当前表格当前工作簿有多少行记录??
- ShareMem 的怪问题!!!!进来看看......
- dcu文件在那里
- delphi中连接sql2000数据库的方法,是否有专用接口,ado还是bde
- 不爽..散分...10
- 我写的最新看密码的程序。附带源代码
- ADO数据集如何判断记录到了末尾?
- 如何把double类型的小数点控制在两位,而不出现类似9.8999999999这样的数。
- 如何在Delphi中执行将Excel表格里的内容导入数据库中相应表的操作呢????
- 怎么将char数组的内存首地址保存到smallint型变量中
- 请问在API中如获取一个指定文件夹的IShellFolder?
- 创业开公司,需要招聘几个人,在北京通州
if ADOQuery1.recordcount=0 then
begin
showmessage('没有符合条件的数据!');
exit;
end;
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record
help!!!!!!!!!!
ADOQuery1.Open()
except
on E: EDatabaseError do
begin
ShowMessage(E.Message);
exit;
end;
---------------------------------
如果事件里没有用任何东东,就升级ADO吧
to: ezlz(猫嘴里的猪) 升级ADO。快!快!快!》》怎么升级
to: hare007(qghao) 其他控件设置有问题么?》》要注意什么问题呀
错误症状如下:
SearchBtn: TButton;第一次按下的时候正常(第一次执行),第二次按下就出现我所说的错误。
Delphi 5 企业版的补丁包
Delphi 5 中的ADO升级包SP2。
这三个补丁包都需要吗?如果需要安装顺序如何?那里下载速度较快?
Delphi 5 中的ADO升级包SP2。
就这两个,就这个顺序就行