使用 ADOTable1.Filter 查询时
form1.ADOTable1.Filter:='父亲年龄'+'<29'; 执行查询,程序通过
而form1.ADOTable1.Filter:='父亲年龄'+'>29'; 执行查询,程序出错
二者代码唯一区别是将“ < ”成了 “ > ”
即小于号改成大于号,程序就出错,请教?
form1.ADOTable1.Filter:='父亲年龄'+'<29'; 执行查询,程序通过
而form1.ADOTable1.Filter:='父亲年龄'+'>29'; 执行查询,程序出错
二者代码唯一区别是将“ < ”成了 “ > ”
即小于号改成大于号,程序就出错,请教?
解决方案 »
- 申请小版主
- 将窗体最小化,最大化的事件是什么?
- 在DBGridEh控件中如何对选中行(可能是多行)的数据(某一列)进行操作???
- 关于ado连接数据库的问题
- 如何利用QUERY组件得到数据库中某一值?
- 怎么样在程序中利用ADSI 进行登录的控制啊?
- 为何改变窗口大小后,鼠标位置不对了
- Linuxmate在吗?你提供的《Object pascal参考手册》很好但是不能打印
- 如何让PopupMenu的弹初总是随着button位置的变化而变化
- 两个笨问题
- 怎样把sqldataset的数据源设为sql server2000数据库的视图
- 如何将两个主从表的m,n列合成m+n-1列?(其中表里记录有15000以上)
Project Project1.exe raised exception class EOleException with message “应用程序使用的参数或类型不正确,或者不在可以接受的范围之内,要不就是与其他数据冲突。”process stopped, use step or run continue.
数据库为(Microsoft Access 2000)
具体代码:{ Button1Click不出错,Button2Click出错,显示以上错误信息}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.ADOTable1.Filtered:=false;
form1.ADOTable1.Filter:='父亲年龄'+'<29';
form1.ADOTable1.Filtered:=true;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
form1.ADOTable1.Filtered:=false;
form1.ADOTable1.Filter:='父亲年龄'+'>29';
form1.ADOTable1.Filtered:=true;
end;