Question

delphi中写SQL语句

我讲原本的SQL写在一个string变量当中了，然后要直接在delphi程序中的SQL语句部分执行这个变量里的SQL语句，该怎么办？求高手解答
就比如说sSQL:='...';在里面用String变量来进行替换。

Answer 1

sSQL:='Insert into goods(Qname,QPrice,QLuJin,QQiDing,QYuanJia,QMemo,QTime) values ('''
+sQname+''','''+sQPrice+''','''
+'QuPic\'+edt1.Text+'.jpg'+''','''
+EDT4.Text+''','''+Edt5.Text+''','''
+mmo1.Text+''','''+sQTime+''')';
qry1.SQL.add(sSQL);
qry1.ExecSQL;
qry1.Close;

Answer 2

eg:
uses
DB;

var
dst_DataList:TDataSet
begin
Str_SQL:=' Select * from Table where Field=?';
dst_DataList:=GetDataSetFromSQL(Str_SQL);
....
freeandnil(dst_DataList);
end;
子函数:
function GetDataSetFromSQL(Str_SQL:String):TDataSet;
begin

end;

追问

你这没写清楚吧

追答

function GetDataSetFromSQL(Str_SQL: string): TDataSet;
var
    i_Connect:Integer;
    adoqry_Temp:TADOQuery;
begin
    begin
        adoqry_Temp:=TADOQuery.Create(nil);
        with adoqry_Temp do
        try
            ParamCheck:=False;
            Connection:=adocn_Main;//adocn_Main是数据库连接控件TADOConnection的名字
            SQL.Clear;
            SQL.Add(Str_SQL);
            Open;
            Result:=adoqry_Temp;
        except
            Result:=nil;
        end;
end;

Answer 3

？？？？
变量 s:='select.........';
adoquery.close;
adoquery.sql.text:=s;
adoquery.open;