🚀 go-pugleaf

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