Long File Names with ADO

[David Williams]

Hi

I am trying to open a .mdb with ADO using long file names.

How do I connect to "Deposits 2012.mdb" and open the table "tblDeposits 2012"?

Code: Select all  Expand view

  local  cStr := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + cFilePath( hb_argv( 0 ) ) + ;
      "deposits 2012.mdb;User Id=;Password=;"

   oConx := TOleAuto():new( "ADODB.connection" )
   oConx:ConnectionString := cStr
   oConx:Open()
   oRSet := TOleAuto():New( "ADODB.RecordSet" )

   With Object oRSet
      :CursorLocation   := adUseClient
      :CursorType       := adOpenDynamic
      :LockType         := adLockOptimistic
      :ActiveConnection := oConx
      :Source           := "SELECT * FROM tblDeposits 2012"
      :Open()
      :Sort             := :Fields( 0 ):Name
   End With
 

I have tried various forms of apostrophe's but I am unable to connect.

TIA
David

[nageswaragunupudi]

Code: Select all  Expand view

     :Source           := "SELECT * FROM [tblDeposits 2012]"
 

[nageswaragunupudi]

FWH provides some useful functions for ADO which simplifies opening record sets.

We can open ADO connections and recordsets in this way

Code: Select all  Expand view

  oCn   := FW_OpenAdoConnection( cStr )
   if oCn != nil
      ? 'connected'
      oRs   := FW_OpenRecordSet( oCn, "SELECT * FROM [tblDeposits 2012]" )
      if oRs != nil
         xbrowse( ors )
         ors:close()
      endif
      oCn:Close()
   endif