为什么这样写查询会有问题呢

[fangzheng33]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
Query1.close;
Query1.sql.clear;
if(form1.Edit1.Text <>'')THEN
BEGIN
s:=Edit1.text;
Query1.sql.add('select * from 学生 where 学号 =s');
END ;
Query1.open;

end;
编译没有问题，但是运行后输入学号说，S是无效的列
我想通过EDIT上输入的字符来进行学号查询
~~

[fangzheng33]

procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;
begin
Query1.close;
Query1.sql.clear;
if(form1.Edit1.Text <>'')THEN
BEGIN
s:=Edit1.text;
s1:='select * from 学生 where 学号='+s;

Query1.sql.add(s1);
END ;
Query1.open;

end;
我这样写就OK
不知道为什么啊
指教ING

[firetoucher]

晕,
Query1.sql.add('select * from 学生 where 学号 =' + edit1.text);
或者
Query1.sql.add('select * from 学生 where 学号 =''' + edit1.text + '''');
sql并不能帮你解释s，而是将它传到服务器！

[blueshu]

Query1.sql.add('select * from 学生 where 学号 =''' + edit1.text + '''');