查询菜问题!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Question

procedure TForm1.Button2Click(Sender: TObject);
 var
   SQL:string;begin SQL:='select * from data where 厂内编号=:edit1.text';
DataModule2.ADODataSet1.Close;
         DataModule2.ADODataSet1.CommandText:=SQL;
         try
            DataModule2.ADODataSet1.Open;
         except
            on E: Exception do            end;
end;为什么以上查不出什么东西来呢本来菜菜 谢谢!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

SQL:='select * from data where 厂内编号='''+edit1.text+'''';试试吧！

Answer 2

楼上的可以，或SQL:='select * from data where 厂内编号='+QuotedStr（edit1.text）

Answer 3

adoquery控件与datasource还有dbgrid相关联起来。
with adoquery do
 begin
 close;
 sql.clear;
 sql.add('select * from data where 厂内编号='''+edit1.text+'''');
 open;
 end;

Answer 4

SQL:='select * from data where 厂内编号='+''''+edit1.text+'''';

Answer 5

老大，该结贴了吧！
同意：
 with adoquery do
 begin
 close;
 sql.clear;
 sql.add('select * from data where 厂内编号='+''''+edit1.text+'''');
 open;
 end;

Answer 6

谢谢大家 不过我还想多学点有关查询的语句  我本来是学过一点VB的 现在想学DELPHI