UC知道delphi sql 语句FROM子句错误问题。
来源：百度知道 编辑：UC知道 时间：2024/05/15 01:32:49
procedure TForm2.SpeedButton2Click(Sender: TObject);
var searchwhat:string;
begin
panel1.Visible:=not(panel1.Visible);
if panel1.Visible=false then
begin
searchwhat:='';
case combobox1.ItemIndex of //ѧÉúID,ѧÉúÐÕÃû,ѧÉú°à¼¶,ѧÉúÐÔ±ð,³öÉúÈÕÆÚ,¼Òͥסַ,µç»°
0:searchwhat:='stu_id';
1:searchwhat:='stu_name';
2:searchwhat:='stu_clas';
3:searchwhat:='stu_gender';
4:searchwhat:='stu_birth';
5:searchwhat:='stu_addr';
6:searchwhat:='stu_phon';
end;
with mainmodel.a_stuoperation do
begin
close;
s
var searchwhat:string;
begin
panel1.Visible:=not(panel1.Visible);
if panel1.Visible=false then
begin
searchwhat:='';
case combobox1.ItemIndex of //ѧÉúID,ѧÉúÐÕÃû,ѧÉú°à¼¶,ѧÉúÐÔ±ð,³öÉúÈÕÆÚ,¼Òͥסַ,µç»°
0:searchwhat:='stu_id';
1:searchwhat:='stu_name';
2:searchwhat:='stu_clas';
3:searchwhat:='stu_gender';
4:searchwhat:='stu_birth';
5:searchwhat:='stu_addr';
6:searchwhat:='stu_phon';
end;
with mainmodel.a_stuoperation do
begin
close;
s
sql.Add('select * from stu_info');
sql.Add('where'+''+searchwhat+''+'like :a order by stu_id');
你在stu_info后面或者where前面敲几个空格试下。
另外，在你的adoquery close后，最好加一句 sql.clear；