鸡毛信!!! 分不多,欢迎大家拿分,着急问题!!!!!!!!!!!!(80分)

B

blave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #1

我用的是delphi+access,我在过滤数据库的时候出现问题
代码如下:
procedure Tmzgl.ComboBox2Change(Sender: TObject);
begin
with adotable6 do
begin
filtered:=false;
filteroptions:=[focaseinsensitive];
filter:='keshi='''+combobox2.text+'''';
filtered:=true;
end;
end;
运行时提示如下错误:
FilterOptions are not supported!
换成adodataset也是一样,是不是因为access不支持filter属性,小弟非常需要这样的过滤,不知道
哪位老大知道万望告诉,如果这种方法真的不行,有没有别的方案,请附源码,感谢感谢

 

B

blave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #2

只要正确,马上结束、送分！！！

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #3

干什么不用SQL：
select * from aa where 'keshi='''+combobox2.text+''''

 

B

blave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #4

忘了忘了，还有个问题
还是delphi+access,我在做SQL时的小问题
adoquery2.sql.clear;
adoquery2.SQL.add('select * from xh');
adoquery2.SQL.add('where namw=edit1.text');
adoquery2.Prepare ;
运行时提示edit1.text是一个变量，所以就不运行，以前做BDE的时候就从没出错，
请告诉我是ado的问题还是access的问题，可小弟就得用access，该怎么办
请大家帮忙，可以把源码发到我的信箱： rockoh@163.com

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #5

如果是动态就这样写！
adoquery.sql.text:='select * from aa where keshi=:keshi';
adoquery.params.parambyname('keshi').asstring:=edit1.text;
adoquery1.open;
以后你要变的话，只要这样写就行！
adoquery.close;
adoquery.params.parambyname('keshi').asstring:=edit1.text;
adoquery1.open;

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #6

你改在過濾事件中寫：
procedure TForm1.ADOTable6FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
if adotable6.FieldByName('keshi').asstring=combobox2.text then
accept:=true
else
accept:=false;
end;
否則，可能是不是真的不支持。

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #7

改一下：
adoquery2.SQL.add('where namw='''+edit1.text+'''');

 

B

blave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #8

to天真兄：
adodataset1.CommandText :='select * from aa where 'keshi='''+combobox2.text+''''';
adodataset1.Open ;
运行不了
adodataset1.CommandText :='select * from aa where 'keshi=combobox2.text';
adodataset1.Open ;
运行报以下错误：
Parameter combobox2.text has no default value

 

Z

zhumoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #9

adoquery2.SQL.add('where namw='''+edit1.text+'''');

 

峻

峻祁连

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #10

SQL语句中的参数的格式是 ：ParaName，
如：
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from TableName where id = aramName');

adoquery1.parames[0].value :=edit1.text

if adoquery1.prepared =false then adoquery1.prepared :=true;

adoquery1.open;

 

峻

峻祁连

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #11

还是不要用filter了，Adoquer1.SQL很好的。

 

B

blave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #12

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1013035
请大家关注此贴

谢谢各位老大，最后用了zxb200兄的方法，别人的也试验了，都对，谢谢

 

B

blave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #13

多人接受答案了。