环境:Delphil5,7+ADO+Sql7.0 过滤代码如下:procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery1.Filter := 'Quality='+''''+'a=a'+''''; ADOQuery1.Filtered := False; ADOQuery1.FilterOptions := [foCaseInsensitive]; ADOQuery1.Filtered := True; end;结果还是:FilterOptions are not supported???
haoco(程序员) : 相信数据集没有打开系统报错应该不是FilterOptions are not supported,我自信自已不至于如此菜,用TTable,TQuery是没问题,可否贴一段Code学习学习?
gz! 是不是ado驱动不支持呀,下一个madc高版本试试
MADC 2.5 win 2k(service pack 3)
原来ADO是这样的: unit ADODB;procedure TCustomADODataSet.SetFilterOptions(Value: TFilterOptions); begin if Value <> [] then DatabaseError(SNoFilterOptions); end; ADO根本就不支持FilterOptions参数输入,不知有没有其它办法解决??
ADOQuery1.FilterOptions:=[foCaseInsensitive];
设置后报错如下,FilterOptions are not supported
是否ADOQuery要作特别设定?
ADODataset.filtered := false;
ADODataset.filterOptions:= [foCaseInsensitive];
ADODataset.Filtered := True;
过滤代码如下:procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Filter := 'Quality='+''''+'a=a'+'''';
ADOQuery1.Filtered := False;
ADOQuery1.FilterOptions := [foCaseInsensitive];
ADOQuery1.Filtered := True;
end;结果还是:FilterOptions are not supported???
相信数据集没有打开系统报错应该不是FilterOptions are not supported,我自信自已不至于如此菜,用TTable,TQuery是没问题,可否贴一段Code学习学习?
是不是ado驱动不支持呀,下一个madc高版本试试
win 2k(service pack 3)
unit ADODB;procedure TCustomADODataSet.SetFilterOptions(Value: TFilterOptions);
begin
if Value <> [] then
DatabaseError(SNoFilterOptions);
end;
ADO根本就不支持FilterOptions参数输入,不知有没有其它办法解决??