// = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
問題 :
(問1) 原 [程式A] 可以順利執行,但改為 [程式B]的寫法後,
就是用 ADODataSet_2.first;
nRec :=0;

while not ADODataSet_2.FieldCount - 1 do
s := s Delete(s, Length(s), 1); // 註 (1A)
sRecFields := s;
v := ADODataSet_2.Next;
end;
end;
// = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
// = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
// 修改後的 [程式B] ( 會有些問題)
// 複製資料庫的資料
// ------------------------------------------------------------------
var
i , nREC : integer;
s: string;
v: variant;
sRecFields , sTmp: string;
begin
first;
nRec :=0;

while not FieldCount - 1 do
s := s Delete(s, Length(s), 1); // 註 (1A)
if s<>'' then s := copy( s , 1 ,Length(s)-1 ); // 註 (1B)
sRecFields := s;
v := Next;
end;
END; // WITH ADODataSet_2
end;

// = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
謝謝您

編輯記錄

如果沒有誤會妳的意思
加上單元名稱即可

System.Delete....

若改成底下這樣，不可以嗎?
[code delphi]
var
i , nREC : integer;
s: string;
v: variant;
sRecFields , sTmp: string;
begin
with ADODataSet_2 do
begin
first;
nRec :=0;
while not Eof do
begin
ADODataSet_1.Insert;
for i := 0 to FieldCount - 1 do
begin
s := Fields[i].FieldName;
v := FieldByName(s);
ADODataSet_1.FieldByName(s).Value := v;
end;
ADODataSet_1.Post;
Next;
end;
END;
end;
[/code]

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

謝謝您
針對 string 加上 system 的確可以運作


=========引 用 RootKit 文 章===================
如果沒有誤會妳的意思
加上單元名稱即可

System.Delete....

v := FieldByName(s);
ADODataSet_1.FieldByName(s).Value := v;


改為
v := FieldByName(s).AsVariant;
ADODataSet_1.FieldByName(s).AsVariant := v;

也可以運作了

謝謝您





===================引 用 eaglewolf 文 章===================
若改成底下這樣，不可以嗎?
[code delphi]
var
i , nREC : integer;
s: string;
v: variant;
sRecFields , sTmp: string;
begin
with ADODataSet_2 do
begin
first;
nRec :=0;
while not Eof do
begin
ADODataSet_1.Insert;
for i := 0 to FieldCount - 1 do
begin
s := Fields[i].FieldName;
v := FieldByName(s);
ADODataSet_1.FieldByName(s).Value := v;
end;
ADODataSet_1.Post;
Next;
end;
END;
end;
[/code]