Question

我是个delphi初学者，我想知道这个delphi查询语句那儿有问题，怎么改。

procedure TForm6.Button1Click(Sender: TObject);
var
sl:string;
begin
sl:=edit1.text;
with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from 学生就业信息表');
sql.add('where 学号='''+sl'''');//这一行有问题
execsql;
open;
edit1.text:='';
end;
end;
end.
[Error] Unit6.pas(60): Missing operator or semicolon
[Fatal Error] Unit5.pas(56): Could not compile used unit 'Unit6.pas'
是这样子的，我想将access中的数据导入到excel中，想知道这样一段正确的代码
不过还是谢谢两位的回答。

Answer 1

改成这样就OK,不需要加变量。
procedure TForm6.Button1Click(Sender: TObject);
//var
//sl:string;
begin
//sl:=edit1.text;
with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from 学生就业信息表');
sql.add('where 学号=:a');//这一行有问题
parambyname('a').asstring := edit1.text;
execsql;
open;
edit1.text:='';
end;
end;
end.

Answer 2

缺少连接符“+”，sl已经是变量了，要放在外面，出错语句改为以下试试看：
sql.add('where 学号=''' + sl + '''');

Answer 3

sql.add('select * from 学生就业信息表 ');//最好后面加个空格和where分开
sql.add('where 学号='''+sl+'''');//这一行有问题

Answer 4

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 学生就业信息表 where 学号=:p01');
ADOQuery1.Parameters[0].Value:=s1;
ADOQuery1.Open

Answer 5

sql.add('select * from student where stu_id='"+sl+"'");