XL7: DAO Error Using OpenDatabase on ODBC Sources

WORKAROUND

In this situation, you must use the ISAM driver to open the database.

The following two examples demonstrate the syntax for connecting to an external database using Data Access Objects, using ISAM and ODBC drivers.

Microsoft provides examples of Visual Basic procedures for illustration only, without warranty either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. This Visual Basic procedure is provided 'as is' and Microsoft does not guarantee that it can be used in all situations. Microsoft does not support modifications of this procedure to suit customer requirements for a particular purpose.

Before you run either of the following macros, use the following two steps:

1. In the module sheet that contains the macro, click References and then click Tools.
2. From the list of references, select the Microsoft DAO 3.0 Object Library, and click OK.
   
   ODBC
   ----
   
   NOTE: If you use the dBASE driver in this manner, it will result in the error message listed above.
   
   

      Sub ODBCMethod()
         Dim db1 As Database
   
         Set db1 = OpenDatabase("c:\test", False, False, _
             "ODBC;DSN=dBASE Files;DBQ=c:\test")
      End Sub
   
      ISAM
      ----
   
      Sub ISAMMethod()
         Dim db1 As Database
         Set db1 = OpenDatabase("c:\test", False, False, "dBASE IV")
   						

   End Sub

   Microsoft Excel files
   Text files