用变量实现delphi和sql之间的值查询，如何实现！！？

Question

SQL.Add('Select * From Table1 Where myFiled=:myParam');
ParambyName('myParam').Value:=Edit1.Text;//Query
Parameters.ParambyName('myParam').Value:=Edit1.Text;//ADOQuery
Active:=True;

Answer 1

参考下面的语句吧,其中+后面的tablname与efname为string类型参数,aqexecutsql为tadoquery
 with MainDataModule.aqExecutSql do
      try
        begin
          if active then active:=false;
         Sql.Add('select cfname from tbllist where efname='''+efname+''' and cname='''+tablename+'''' );
         active:=true;
         result:=Fields.Fields[0].AsString;
        end;
      finally
         MainDataModule.aqExecutSql.close;
      end;

Answer 2

query1.sql.add('insert into stu(name,sex,age,marry,aca_num,home_num,tel) values('''+nm+''','+inttostr(sex)+','+inttostr(age)+','+inttostr(marry)+','+inttostr(aca_num)+','+inttostr(address_num)+','''+tel+''')');

Answer 3

s:string;
s:=edit1.text
query1.SQL:=s
  query1.Active

Answer 4

ADOQuery.Close;
ADOQuery.Sql.Clear ;
ADOQuery.Sql.Add('Insert TableName(FieldName) values
('+''''+Edit.Text+''''+')');
ADOQuery.Sql.ExecSql

Answer 5

with ADOQuery do
SQL.Add('Select * From Table1 Where myFiled=:myParam');
Parameters[0].Value:=Edit1.Text;
open;
end;

Answer 6

Query1.SQL.Add('Select * from table1 where fld1 =:str1');
Query1.ParamByName('str1').AsString := Edit1.Text;
Query1.Open;