用ADOQuery控件怎么进行数据的查询

[liyong128]

procedure TForm1.Button2Click(Sender: TObject);
var
str:string;
begin
str:=dbcombobox1.Text;
with adoquery1 do
begin
connection:=adoconnection1;
close;

SQL.Add('select * from rtu');
sql.Add('where rtu_id=str');
execsql; //出错的地方 提示STR参数没有默认值
open;
end;

[liyong128]

我自己先顶一下

[303]

procedure TForm1.Button2Click(Sender: TObject);
var
str:string;
begin
str:=dbcombobox1.Text;
with adoquery1 do
begin
connection:=adoconnection1;
close;

SQL.Add('select * from rtu');
sql.Add('where rtu_id='+quotedstr(str));
// execsql; //出错的地方 提示STR参数没有默认值
//上面的这行可以不用吧！！！因为下面有Open了。

open;
end;

[bluesky23]

execsql;
open;
这两条语句冲突。

[YAMABACK]

execsql与 open的区别在于：execsql执行后不会返回数据集，而open返回数据集

[lcxhjg]

procedure TForm1.Button2Click(Sender: TObject);
var
str:string;
begin
str:=dbcombobox1.Text;
with adoquery1 do
begin
close;
connection:=adoconnection1; //这里也要调整一下
SQL.Add('select * from rtu');
sql.Add('where rtu_id=str');
//去掉 execsql;(execsql不返回数据集，active:=True;或open返回数据集)
open;
end;

[chwdong]

procedure TForm1.Button2Click(Sender: TObject);
var
str:string;
begin
str:=dbcombobox1.Text;
with adoquery1 do
begin
close;
connection:=adoconnection1;
SQL.Add('select * from rtu ');//注意最后有个空格
sql.Add('where rtu_id='+quotestr(str));
open;
end;

[liyong128]

谢谢各位了，还有我选择一个值，在点击它为什么报错。

语言错误，在查询表达式中RTU_ID=一个值，而在select * from rtu where rtu_id=另一个值

[fanhaili]

你的RTU_ID是什么类型呀？？如果是字符型，必须加引号