請教各位先進
以下程式片段在ClientDataSet2.Active := True; 的部分會顯示Insufficient Memory for This Operation的錯誤
目前了解是記憶體不足所導致的，而其他資料量較小的不會有這問題
想請問是否有解決方法或是替代方案
[code delphi]
try
ClientDataSet2.Active := False;
SQLQuery1.SQL.CommaText := 'SELECT * FROM ' LabelTable.Caption;
SQLQuery1.ExecSQL;
finally
ClientDataSet2.Active := True; //Insufficient Memory for This Operation
end;
[/code]

請問資料量具體是多大呢？

約1300000筆 
而另一個900000左右沒有這問題
想在不變動硬體的情況下改到能夠運作

雖然不清楚你一次讀取130萬筆的用途是什麼，不過我能想到的大概以下這幾招

1.如果你的DELPHI有支援 x64，那就編譯成 x64 版
2.只載入KEY的欄位，然後再去下SQL WHERE KEY 方式載入另一個 cds，使用 AppendData 方式，舊有資料不用刪除繼續使用

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

會要一次讀取這麼多檔案的原因是因為這隻程式是先將SQL的資料讀取到本機
然後跑迴圈比對要新增的資料要INSERT還是UPDATE

我想我會先在 Server 查詢是否存在，之後再進行新增或更新處理
像是
process IsExitsRecord(AField: TFields);
begin
SQLQuery1.SQL.Text := 'SELECT count(*) FROM TABLE_X WHERE F1=:F1 AND F2=:F2';
SQLQuery1.Params[0].Value := AField[0].Value;
SQLQuery1.Params[1].Value := AField[1].Value;
SQLQuery1.Open;
Result := SQLQuery1.Field[0].AsInteger > 0;
end;

while not CDS.Eof do
begin
if IsExitsRecord(CDS.Fields: TFields) then
EditProc
else
InsertProc;
CDS.Next;
end

不然就只能像 Jason 版主說的那樣，編譯成 64 位元版本，也一樣可以達到您的需求

===================引 用 judas81719 文 章=================== 會要一次讀取這麼多檔案的原因是因為這隻程式是先將SQL的資料讀取到本機
然後跑迴圈比對要新增的資料要INSERT還是UPDATE

不要用ClientDataSet浪費記憶體 拿掉clientdataset
直接用TSQLQuery 滾一圈 單向cursor 只能往前 不能往後

抄一下樓上的Code 改一下

SQLQuery1.SQL.Text := 'SELECT * FROM TABLE_X ;
SQLQuery1.Open;
SQLQuery1.first;

while not SQLQuery1.Eof do
begin
if (SQLQuery1.fieldbyname('XXX').asinteger = 1) then
EditProc
else
InsertProc;
SQLQuery1.Next;
end;

===================引 用 judas81719 文 章===================
會要一次讀取這麼多檔案的原因是因為這隻程式是先將SQL的資料讀取到本機

然後跑迴圈比對要新增的資料要INSERT還是UPDATE

編輯記錄