请教如何抄上一笔录入的相似记录？ |
|
尚未結案
|
|
jtp
初階會員   發表：39 回覆：81 積分：29 註冊：2003-04-20 發送簡訊給我 |
我看见版主是这样写的，但为什么运行不了，delete这儿出错，还有dataset前面要不要具体写啊，比如query1.datasource.dataset这样啊？还请指教
var i:integer;
s:string;
v:Variant;
begin
with DataSet do begin
//先取得所有欄位名稱, 並以;間隔
for i := 0 to (FieldCount-1) do
s := s ';' Fields[i].FieldName;
Delete(s, 1, 1);
v:=DataSet[s]; //取得Current Record所有欄位值,存入v
//會自動將v create成variant array
append;
DataSet[s]:=v; //寫入所有欄位
post;
end;
end;
|
|
terrychen
尊榮會員 發表：90 回覆：794 積分：501 註冊：2003-05-01 發送簡訊給我 |
|
|
jtp
初階會員 發表：39 回覆：81 積分：29 註冊：2003-04-20 發送簡訊給我 |
|
|
jtp
初階會員 發表：39 回覆：81 積分：29 註冊：2003-04-20 發送簡訊給我 |
|
|
jtp
初階會員 發表：39 回覆：81 積分：29 註冊：2003-04-20 發送簡訊給我 |
|
|
terrychen
尊榮會員 發表：90 回覆：794 積分：501 註冊：2003-05-01 發送簡訊給我 |
|
|
jtp
初階會員 發表：39 回覆：81 積分：29 註冊：2003-04-20 發送簡訊給我 |
|
|
terrychen
尊榮會員 發表：90 回覆：794 積分：501 註冊：2003-05-01 發送簡訊給我 |
|
|
jtp
初階會員 發表：39 回覆：81 積分：29 註冊：2003-04-20 發送簡訊給我 |
|
|
terrychen
尊榮會員 發表：90 回覆：794 積分：501 註冊：2003-05-01 發送簡訊給我 |
您好：
var i:integer;
s:string;
v:Variant;
begin
with ADOQUery1.DataSource do
begin
//先取得所有欄位名稱, 並以;間隔
for i := 0 to (dataset.FieldCount-1) do
s := s ';' dataset.Fields[i].FieldName;
Delete(s, 1, 1);
v:=DataSet[s]; //取得Current Record所有欄位值,存入v
//會自動將v create成variant array
dataset.append;
DataSet[s]:=v; //寫入所有欄位
dataset.post;
end;
|
|
jtp
初階會員 發表：39 回覆：81 積分：29 註冊：2003-04-20 發送簡訊給我 |
|
|
terrychen
尊榮會員 發表：90 回覆：794 積分：501 註冊：2003-05-01 發送簡訊給我 |
|
|
jtp
初階會員 發表：39 回覆：81 積分：29 註冊：2003-04-20 發送簡訊給我 |
|
|
Fishman
尊榮會員  發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi:
引言:
terrychen 別氣餒，我測了一下，調整如下後，可正確執行複製一筆記錄
procedure TForm1.Button16Click(Sender: TObject);
var
I : Integer;
S : String;
V : Variant;
begin
//先取得所有欄位名稱, 並以;間隔
for I := 0 to (ADOTable1.FieldCount-1) do
S := S ';' ADOTable1.Fields[i].FieldName;
Delete(S, 1, 1);
V := ADOTable1[S]; //取得Current Record所有欄位值,存入v
//會自動將v create成variant array
ADOTable1.Append;
ADOTable1[S] := V; //寫入所有欄位
ADOTable1.Post;
end;
若有多筆記錄須一次新增，使用迴圈是一種方法，也可以以下語法來完成
INSERT INTO TABLE1
(FIELD1,FIELD2,...)
SELECT FIELD1,FIELD2,...
FROM TABLE2
WHERE WHERE_STATEMENT
--------------------------------
小弟才疏學淺，若有謬誤請不吝指教
--------------------------------
------
Fishman |
|
terrychen
尊榮會員 發表：90 回覆：794 積分：501 註冊：2003-05-01 發送簡訊給我 |
發表時間：2004-01-06 16:03:57
IP:218.18.xxx.xxx 未訂閱
系統時間：2024-09-14 8:23:16
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |