TDataSetProvider, TClientDataSet

← →
Leran2003 (2003-07-23 15:14) [0]

Здравствуйте Мастаки!!!
Прошу Ващей помощи...

procedure ... var IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; IBQuery1: TIBQuery; DataSetProvider1: TDataSetProvider; ClientDataSet1: TClientDataSet; ... begin IBDatabase1:=TIBDatabase.Create(Self); IBDatabase1.Params.Add("user_name=SYSDBA"); IBDatabase1.Params.Add("password=masterkey"); IBDatabase1.LoginPrompt:=false; IBTransaction1:=TIBTransaction.Create(Self); IBTransaction1.Params.Add("read_committed"); IBTransaction1.Params.Add("rec_version"); IBTransaction1.Params.Add("nowait"); IBDatabase1.DefaultTransaction:=IBTransaction1; IBDatabase1.DatabaseName:=...; IBDatabase1.Open; IBQuery1:=TIBQuery.Create(Self); IBQuery1.Database:=IBDatabase1; IBQuery1.SQL.Clear; IBQuery1.SQL.Add("SELECT * FROM ..."); IBQuery1.Open; DataSetProvider1:=TDataSetProvider.Create(Self); DataSetProvider1.DataSet:=IBQuery1; ClientDataSet1:=TClientDataSet.Create(Self); ClientDataSet1.ProviderName:=DataSetProvider1.Name; ClientDataSet1.Open; ( "test.cds") Здравствуйте Мастаки!!! Прошу Ващей помощи... procedure ... var IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; IBQuery1: TIBQuery; DataSetProvider1: TDataSetProvider; ClientDataSet1: TClientDataSet; ... begin IBDatabase1:=TIBDatabase.Create(Self); IBDatabase1.Params.Add("user_name=SYSDBA"); IBDatabase1.Params.Add("password=masterkey"); IBDatabase1.LoginPrompt:=false; IBTransaction1:=TIBTransaction.Create(Self); IBTransaction1.Params.Add("read_committed"); IBTransaction1.Params.Add("rec_version"); IBTransaction1.Params.Add("nowait"); IBDatabase1.DefaultTransaction:=IBTransaction1; IBDatabase1.DatabaseName:=...; IBDatabase1.Open; IBQuery1:=TIBQuery.Create(Self); IBQuery1.Database:=IBDatabase1; IBQuery1.SQL.Clear; IBQuery1.SQL.Add("SELECT * FROM ..."); IBQuery1.Open; DataSetProvider1:=TDataSetProvider.Create(Self); DataSetProvider1.DataSet:=IBQuery1; ClientDataSet1:=TClientDataSet.Create(Self); ClientDataSet1.ProviderName:=DataSetProvider1.Name; ClientDataSet1.Open; { вот здесь и возникает проблемс - Missing data provider or data packet } ClientDataSet1.SaveToFile("test.cds"); ClientDataSet1.Close; Что не так??? :(( Никак не дойду до истины... Заранее спасибо за ответы...

← →
AkaSaint © (2003-07-23 15:27) [1]

Попробуй DataSetProvider1.Exported := True; до работы с ClientDataSet.

← →
Соловьев © (2003-07-23 15:29) [2]

> ClientDataSet1.ProviderName:=DataSetProvider1.Name;

что в Name?

← →
Leran2003 (2003-07-23 15:32) [3]

DataSetProvider1.Name = "DataSetProvider1"

ClientDataSet1.ProviderName:=DataSetProvider1.Name;
ClientDataSet1.ProviderName:="DataSetProvider1";
- одно и то же, и так и так не идет...

← →
Romkin © (2003-07-23 15:41) [4]

Ты запросу транзакцию не назначил, а надо. И если запрос сам открываешь, делай ResolveToDataset := true;

← →
Leran2003 (2003-07-23 15:53) [5]

> Romkin ©

IBQuery1.Transaction:=IBTransaction1;
...
DataSetProvider1.ResolveToDataSet:=true;
...
Не помогло...

С запросом проблем нет, все открывается как надо...

← →
Romkin © (2003-07-23 16:16) [6]

Попробуй явно дать имя провайдеру

← →
Leran2003 (2003-07-23 16:18) [7]

Заработало!!! :))

uses DataMod;
...

procedure ...
var
DataModule1: TDataModule1;
begin
DataModule1:=TDataModule1.Create(Self);
DataModule1.ClientDataSet1.Open;
DataModule1.ClientDataSet1.SaveToFile("test.cds");
DataModule1.ClientDataSet1.Close;

unit DataMod;
...
type
TDataModule1 = class(TDataModule)
DataSetProvider1: TDataSetProvider;
ClientDataSet1: TClientDataSet;
IBDatabase1: TIBDatabase;
IBQuery1: TIBQuery;
IBTransaction1: TIBTransaction;
private
public
end;

//var
// DataModule1: TDataModule1;

Мля и чего мучался то???
Хотя это очень странно...

← →
Leran2003 (2003-07-23 16:24) [8]

Всем спасибо!!!

А, ну понятно, Parent у провайдера и cds должен быть одинаковым, если нет сервера. Забыл...

TDataSetProvider, TClientDataSet Найти похожие ветки