🚀 go-pugleaf

Is there any error message? Empty string will be returned if TblVer is 
empty.

//------------------------------------------
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)


"Vladimir Stefanovic" <antivari@po.sbb.co.yu> �������/�������� � �������� 
���������: news:42c85997@newsgroups.borland.com...
> Hi,
>
> This is the routine I use to check the DB version which I store
> in a Table with only one record and only one filed.
>
> This routine *is working* on maybe 500 machines, but I got
> one report from which I concluded that this is the piece of
> code that failed ( returned "").
>
> The problematic OS was WinXP Home SP2.
>
> Do you see what can go wrong in this routine to fail?
> Can damaged MDAC can be the problem?
> Can some system security settings be the reason?
>
>
> AnsiString TDiMainForm::GetDBVer()
> {
>   AnsiString Ver = "";
>
>   ADOQuery->Close();
>   ADOQuery->SQL->Clear();
>   ADOQuery->SQL->Add( "select top 1 * from TblVer" );
>
>   AnsiString CS = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +
>                   ChangeFileExt( ParamStr(0), ".mdb" ) +
>                   ";Mode=Read;Persist Security Info=False";
>
>   ADOQuery->ConnectionString = CS;
>
>   try
>   {
>      try
>      {
>         ADOQuery->Open();
>         Ver = ADOQuery->FieldValues["Ver"];
>      }
>      catch ( const Exception &e )
>      {
>         // ...
>      }
>   }
>   __finally
>   {
>      ADOQuery->Close();
>   }
>   return ( Ver );
> }
>
>
>
>
> -- 
> Best regards,
> Vladimir Stefanovic
>