MyDAC 4.0.0.1 : issue with a working code (MyDac 3.55.x)
Posted: Tue 07 Jun 2005 13:51
Hi,
This worked well with the 3.55 branch.
Now when compiling it under the 4.x brnach i'm getting an error with the port parameter :
Best Regards
Stephane Wierzbicki
This worked well with the 3.55 branch.
Code: Select all
fMyConnection:=TMyConnection.Create(nil);
try
with fMyConnection do
Begin
loginprompt:=false;
pooling:= TCustomMyDataSet(ADataset).Connection.pooling;
PoolingOptions := TCustomMyDataSet(ADataset).Connection.PoolingOptions;
Server := TCustomMyDataSet(ADataset).Connection.Server;
Username := TCustomMyDataSet(ADataset).Connection.Username;
Password := TCustomMyDataSet(ADataset).Connection.Password;
Database := TCustomMyDataSet(ADataset).Connection.Database;
IsolationLevel := TCustomMyDataSet(ADataset).Connection.IsolationLevel;
Port := TCustomMyDataSet(ADataset).Connection.port;
ConnectionTimeout := TCustomMyDataSet(ADataset).Connection.ConnectionTimeout;
options := TCustomMyDataSet(ADataset).Connection.options;
//connect;
End;
How can I solves this (this property moved from public to private ?)Port := TCustomMyDataSet(ADataset).Connection.port;
options := TCustomMyDataSet(ADataset).Connection.options;
Connection:= TCustomMyDataSet(ADataset).Connection;
Best Regards
Stephane Wierzbicki