procedure TStringConverter.ClientOktxQty(sEmpNo, sFund_Unit: String);
var DB_Oktx_Qry: TADOQuery;
DB_SetProvider: TDataSetProvider;
DB_ClientDataSet: TClientDataSet;
sSQL: String;
begin
DB_Oktx_Qry := TADOQuery.Create(DataCon);
DB_Oktx_Qry.Connection := DataCon;
DB_SetProvider := TDataSetProvider.Create(DB_Oktx_Qry);
DB_SetProvider.DataSet := DB_Oktx_Qry;
DB_ClientDataSet := TClientDataSet.Create(DB_SetProvider);
DB_ClientDataSet.ProviderName := 'DB_SetProvider';
DB_Oktx_Qry.SQL.Text := 'Select * From XXX';
DB_Oktx_Qry.Open;
DB_ClientDataSet.Active := True; <---執行到這一行有錯 Error Msg: Missing data provider or data packet
While Not DB_ClientDataSet.Eof do
begin
if (DB_Oktx_Qry.FieldByName('O_ACNO').AsInteger < 8480001) or
(DB_Oktx_Qry.FieldByName('O_ACNO').AsInteger > 8489999) then begin
tsFile1.Add(GetListData(sFund_Unit,'A01',DB_Oktx_Qry));
end;
DB_ClientDataSet.Next;
DB_Oktx_Qry.Next;
end;
end;
我還需要設定什麼嗎?(第一次使用)

procedure TStringConverter.ClientOktxQty(sEmpNo, sFund_Unit: String);
var DB_Oktx_Qry: TADOQuery;
DB_SetProvider: TDataSetProvider;
DB_ClientDataSet: TClientDataSet;
sSQL: String;
begin
DB_Oktx_Qry := TADOQuery.Create(Self);
DB_Oktx_Qry.Connection := DataCon;
DB_SetProvider := TDataSetProvider.Create(Self);
DB_SetProvider.Name := 'DB_SetProvider';
DB_SetProvider.DataSet := DB_Oktx_Qry;
DB_ClientDataSet := TClientDataSet.Create(Self);
DB_ClientDataSet.ProviderName := DB_SetProvider.Name;
DB_Oktx_Qry.SQL.Text := 'Select * from xxx';
// DB_Oktx_Qry.Open;
DB_ClientDataSet.Active := True;
While Not DB_ClientDataSet.Eof do
begin
if (DB_Oktx_Qry.FieldByName('O_ACNO').AsInteger < 8480001) or
(DB_Oktx_Qry.FieldByName('O_ACNO').AsInteger > 8489999) then begin
tsFile1.Add(GetListData(sFund_Unit,'A01',DB_Oktx_Qry));
end;
DB_ClientDataSet.Next;
DB_Oktx_Qry.Next;
end;
end;




Fishman

------
Fishman