query的动态sql如何赋值？

Question

ls_sql:='select flight_no from view_led where usedate=:Is_date'
query1.parambyname('Is_date').asstring:=edit1.text;

Answer 1

修改成这样：StrSQL:='select * from TempTable where name = '''+Edit1.Text+''''; 
Query1.SQL.Text:=StrSQL; 
Query1.Open;Delphi中，用两个单引号表示一个引号字符（称为转义符）。

Answer 2

query1.Active := false;
 query1.SQL.Clear ;
 StrSQL:= 'Select * from book.db where usedate=:Is_date'  
 query1.sql.add(StrSQL);
 query1.paramByName('Is_date').asstring:=edit1.text;
 query1.Active := True；

Answer 3

with query do
begin
   close;
   sql.clear;
   sql.add:='select * from book.db where'
              +' userdate='+#39+edit.text+#39;
   open;
end;

Answer 4

'select * from tmp where name = '+''+Edit1.Text+''

Answer 5

上面的老兄说得都很好，不过我觉得用=：（我称之为替换）比较好，替换参数不用定义，这样做起来不就很方便吗？
ls_sql:='select flight_no from view_led where usedate=:tmp1'
query1.parambyname('tmp1').asstring:=edit1.text;

Answer 6

With Query1 do
begin
  Close;
  SQL.Clear;
  SQL.Add(strSQL);//strSQL为SQL语句
  Open;
end;
如果你在SQL语句中使用了参数，别忘了给参数赋值。假设有一个参数为UserName.可以这样给它赋值：
Query1.ParamByName('UserName').AsString:=StrValue;//StrValue为字符串

Answer 7

ls_sql:='select flight_no from view_led where usedate='+QuotedStr(ls_date);

Answer 8

query.sql.add(sqlstring);
query.open 
or 
query.execute

Answer 9

with adoquery1 do begin
    close;
    sql.clear;
    sql.add('select * from score where');
    sql.Add(string1+string2+':xue');    if (string1='学号') or (string1='成绩') then   begin
    Parameters.ParamByName('xue').value:=strtofloat(edit1.Text)
    end
    else  begin
        Parameters.ParamByName('xue').value:=edit1.Text;
        end;
    open;
end;

Answer 10

var qry:TQuery;
    s:string;
...
s:='select * from TempTable where name=''%s'''; 
Query.SQL.SetText(PChar(Format(s,[edit1.text])));
Query.Open;or
...