🚀 go-pugleaf

Hi Bob,
Thak you very much for the info.
I have a class that interface between the object DBX (before and still in 
many aplications i do with ADO through odbc) and my code, that allowe me to 
change this class without touch my code...

now:
// resto cmoddb5
//---------------------------------------------------------------------------
__fastcall XTDM::XTDM()
{
//MLG.NameMLg(ExtractFileName(Application->ExeName).Sub
//                                String(1, cFN.Pos(".")-1));
kCn = new TSQLConnection(0);

kCn->DriverName  = "MySQL";
kCn->LibraryName = "dbxmys30.dll";
kCn->VendorLib   = "libmysql.dll";
kCn->GetDriverFunc = "getSQLDriverMYSQL";
kCn->LoginPrompt = false;

Rs = NULL;
lOk = nLG = 0; //nlr = 0;
}

//---------------------------------------------------------------------------
__fastcall XTDM::~XTDM()
{
if (Rs) {         //nlr>0)
 Rs->Close();
 delete Rs;
}
if (kCn->Connected)
 kCn->Close();

lOk = nLG = 0;
delete kCn;
}
//---------------------------------------------------------------------------

void XTDM::OpenCn()
{
 kCn->Open();
}
//---------------------------------------------------------------------------

void XTDM::BeginTrans()
{
 //TDBXTransaction *Tr  private to XTDM
 Tr = kCn->BeginTransaction();
}
void XTDM::CloseCn()
{
if (kCn->Connected)
 kCn->Close();
}
void XTDM::CommitTrans()
{
kCn->CommitFreeAndNil(Tr);
}
void XTDM::RollbackTrans()
{
kCn->RollbackFreeAndNil(Tr);
}
//...more metod...

I tried that code and work ok (like before but...)

Thank again

Juanma



"Bob Swart" <Bob@BobSwart.com> escribi� en el mensaje 
news:46DC1977.3050509@BobSwart.com...
> Hi juanma,
>
>> For the people that need transactions this work (how many try and 
>> error!!)
>
> Note that your code shows the pre-DBX4 way (the deprecated way) of using 
> transactions in dbExpress...
>
> Prior to DBX4, we had to call the StartTransaction, Commit, and RollBack 
> methods of TSQConnection. However, these methods are now deprecated, and 
> we should now use the new (DBX4) methods called BeginTransaction, 
> CommitFreeAndNil, and RollBackFreeAndNil of the TSQLConnection component 
> instead of the deprecated methods.
>
> And you need to use DBXCommon and SqlExpr now instead of the dbExpress 
> unit.
>
> Groetjes,
>           Bob Swart
>
> -- 
> Bob Swart Training & Consultancy (eBob42.com) Forever Loyal to Delphi
> CodeGear Technology Partner -- CodeGear RAD Studio Reseller (BeNeLux)
> Blog: http://www.drbob42.com/blog - RSS: http://eBob42.com/weblog.xml