🚀 go-pugleaf

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.