我想請教一個情況:
就是我想要動態組成SQL去Insert資料

程式裡已經 get 到一個字串內容是:
strField := 'Field0,Field1,Field2,Field3....';(視不同的Table欄位數不一定)

然後我再用TStringList的CommaText屬性get到各欄位的FieldName
節錄一段有疑問的Code如下:

slt := TStringList.Create;
slt.CommaText := strField;
x
x
x
strSQL := 'SELECT * FROM A';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(strSQL);
Query1.Open
while not Query1.Eof do
begin
for i := 0 to slt.Count - 1 do
begin
strSQL := ' INSERT INTO bdbo.' strTable '(' strField ')' //strTable也是動態傳入的
' VALUES(''';
//下面這裡組Values的欄位值(問題點)
if i = 0 then
strSQL := strSQL Query1.FieldByName(slt[i]).AsString ''''
else
strSQL := strSQL ',''' Query1.FieldByName(slt[i]).AsString '''';
end;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add(strSQL);
Query2.Execute;
Query1.Next;
end;

實際Run下去才發現同一Record的值我沒辦法這樣一個Field一個Field分別Keep住它們的值，
而是比如有五個欄位，跑完for迴圈，我的SQL也只保有最近一個欄位的資料而已

不知道這樣的描述能理解嗎?有何更好的做法呢? 謝謝!!

我用的方法是這樣的

1.寫一悜 procedure, 如下所示, 只要把你查出來的 Dataset (即你的 query1) 及 table name 傳進去即可! 當然還有一個 GenInsSQL 的 fucntion, 它才是主角!

procedure GenAllInsSQL(rsTblName : String; raDS : TClientDataSet) ;
function ExecuteSQL(rsInsertSQL : string) : Boolean;
var
lsSQL : String;
begin
try
with cdsUpdComm do
begin
close;
CommandText := EmptyStr;
CommandText := rsInsertSQL;
Execute;
end;
result := True;
except
result := False;
end;
end;

var
lsInsertSQL : string;
laList : TStringList;
begin
laList := TStringList.Create;
with raDS do
begin
first;
while not eof do
begin
lsInsertSQL := GenInsSQL(rsTblName, raDS);
if ExecuteSQL(lsInsertSQL) then
laList.Add(lsInsertSQL)
else
laList.Add('Error: ' lsInsertSQL);
next;
end;
Close;
end;
laList.SaveToFile('C:\' rsTblName '.sql');
FreeandNil(laList);
end;

它還會在 C:\ 目錄下產生一個 .sql 的檔案, 記錄所有產生的 Insert SQL command.

2.產生 insert SQL 的 function, 它是藉由直接 paser Dataset 中的 datafield 來自動產生 SQL (只缺 Table name, 所以要傳進來)

function GenInsSQL(rsTblName : String; raDS : TClientDataSet) : String;
var
laFld : TField;
liCt : Integer;
lsSQL, lsFStr, lsPStr, lsLStr, lsFldName : String;
lsValue : String;
begin
lsSQL := EmptyStr;
if raDS.Active then
begin
with raDS do
begin
lsLStr := EmptyStr;
lsFStr := EmptyStr;
lsPStr := EmptyStr;
for liCt := 0 to raDS.FieldCount - 1 do
begin
if liCt > 0 then
lsLStr := ',';

laFld := raDS.Fields[liCt];
lsFldName := laFld.FieldName;
lsFStr := lsFStr lsLStr lsFldName;

if (laFld.DataType = ftFloat) or (laFld.DataType = ftFMTBcd) or (laFld.DataType = ftInteger) then
lsValue := FloatToStr(laFld.AsFloat)
else if (laFld.DataType = ftString) or (laFld.DataType = ftMemo) or (laFld.DataType = ftDateTime) or (laFld.DataType = ftTimeStamp) then
begin
if (laFld.IsNull) then
lsValue := 'NULL'
else
lsValue := '''' StrReplace(strTrim(laFld.AsString),'''','''''') '''';
end
else if laFld.DataType = ftBlob then
begin
lsValue := 'NULL';
end;

lsPStr := lsPStr lsLStr lsValue;
end;
lsSQL := format('insert into %s ( %s ) values (%s);',[rsTblName,lsFStr,lsPStr]);
end;
end;
Result := lsSQL;
end;

程式你可能要稍微調整一下, 因為我是 third tier 的架構, 所以用 client dataset. 另外 paser Dataset 中的 datafield 會因為您的資料庫而有不同的 Data Type, 有可能須要調整! 基本上它已經可以是一個共用的 function 了! 希望對你有幫助!

感謝諸位的回覆..啟發了我的想法....後來我用動態陣列的方式達到我的需要了...

感謝諸位的回覆..啟發了我的想法....

後來我用動態陣列和判斷Query的DataType 來達到我的需要了...