🚀 go-pugleaf

Hi Viatcheslav,
your idea works! Thank you
I didn�t know Adoconnection works similar to TDatabase. the code if 
you�re interested became the following:

     this->ADOConnection1->Close();
     this->ADOConnection1->Open();
     this->ADOConnection1->BeginTrans();

     str_SQL = "insert into projeto_abrangencia (desc_projabrang, 
id_abrang) ";
     str_SQL +=" select '" + str_Localidade + "', a.id_abrang ";
     str_SQL +=" from abrangencia a ";
     str_SQL +=" where a.tipo_abrang = '" + str_Abrang + "'";
     this->ADOQInsProjPesq->Close();
     this->ADOQInsProjPesq->SQL->Clear();
     this->ADOQInsProjPesq->SQL->Add(str_SQL);

     try {
         this->ADOQInsProjPesq->ExecSQL();
         this->ADOConnection1->CommitTrans();
         this->ADOQInsProjPesq->Close();
     } catch (...) {
         this->ADOConnection1->RollbackTrans();
         this->ADOQInsProjPesq->Close();
         ShowMessage ("Erro ao gravar '" + str_Localidade + "' no banco");

     }
     this->ADOConnection1->Close();

Thank you again.

Viatcheslav V. Vassiliev wrote:
> It seems that this->ADOQInsProjPesq or this->ADOQInsProjPesq->Connection is
> NULL - create new TADOConnection if this is the case or set ConnectionString
> property. Use existing methods of TADOConnection when they are available,
> such as for start/end transation.
> 
> //------------------------------------------
> Regards,
> Vassiliev V. V.
> http://www.managed-vcl.com - using .Net objects in Delphi for Win32 +
> ADO.Net
> http://www.oledbdirect.com - The fastest way to access MS SQL Server,
> MS Jet (Access) and Interbase (through OLEDB)
> 
> "Renato" <rc-freitas@uol.com.br> ???????/???????? ? ???????? ?????????:
> news:4157819d$1@newsgroups.borland.com...
> 
>>Hi!
>>
>>I�m using ADO+MS Access. i�m trying to open a connection but I got this
>>message:
>>
>>Project PCeale.exe raised exception class EAccessViolation with message
>>'Access violation at address 405B92BA in module 'VCDLDB50.BPL'. Read of
>>address 00000000'. Process stopped. Use Step or Run to continue.
>>
>>I used CodeGuard to analyse the code and I get the warning when error
>>happens:
>>
>>Method called on invalid object
>>Attempt to access 216 bytes at 0x00000000.
>>0xEEEEEEEE
>>Adodb::TADOConnection::Open()
>>TProjPesqForm::BtnGravaProjPesqClick(const System::TObject *)
>>0x4006B958
>>0x40047E41
>>0x4006E4A8
>>0x4006DF7B
>>
>>The code where it happens is the following (ADOQInsProjPesq is an
>>ADOQuery with connectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data
>>Source=C:\renato\sistemas\ceale\ceale.mdb;Mode=ReadWrite|Share Deny
>>None;Persist Security Info=False):
>>
>>     AnsiString str_SQL = "";
>>     AnsiString str_IDProjAbrang = "0";
>>     //Abrangencia Beg.
>>
>>     this->ADOQInsProjPesq->Connection->Open(); <<== LOCATION OF ERROR !
>>
>>     this->ADOQInsProjPesq->Connection->BeginTrans();
>>
>>     str_SQL = "insert into projeto_abrangencia (desc_projabrang,
>>id_abrang) ";
>>     str_SQL +=" select '" + str_Localidade + "', abrangencia.id_abrang ";
>>     str_SQL +=" from projeto_abrangencia pa, abrangencia a ";
>>     str_SQL +=" where pa.id_abrang = a.id_abrang ";
>>     str_SQL +=" and a.tipo_abrang = '" + str_Abrang + "'";
>>
>>     this->ADOQInsProjPesq->Close();
>>     this->ADOQInsProjPesq->SQL->Clear();
>>     this->ADOQInsProjPesq->SQL->Add(str_SQL);
>>
>>     try {
>>         this->ADOQInsProjPesq->ExecSQL();
>>         this->ADOQInsProjPesq->Connection->CommitTrans();
>>     } catch (...) {
>>         this->ADOQInsProjPesq->Connection->RollbackTrans();
>>         ShowMessage ("Erro ao gravar '" + str_Localidade + "' no banco");
>>         return; //interrupcao da gravacao
>>     }
>>     this->ADOQInsProjPesq->Close();
>>
>>I�d like to know what i�m doing wrong... thank you.
> 
> 
>