No ODBC Drivers available for Excel or Access in Windows 7 ?!

While the drivers are there, it doesn't get you up and running.

Hello! I had the same problem!

I'm using Win7 64bit. I was also using a JDK 64bit.... however, JDK 64 bit cannot work with dll developed for 32bit applications (like the ODBC drivers provided with Win7).

Therefore, it has been sufficient to use the standard JDK x86 for using the DB correctly (e.g., by using the path of the DB). This is an example code:

            Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");

            Connection con = DriverManager.getConnection("jdbc:odbc:driver={Microsoft Access Driver"+

                    " (*.mdb)};DBQ=C:\Users\MYNAME\PROJECT\DB\DBFILENAME.mdb");

Hey, I just forgot to mention that I downloaded and runned mdac_typ.exe (MDAC 2.8) from http://www.microsoft.com/downloads/details.aspx?FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c&displaylang=en as suggested by jgareauI dunno if it helped, but I did it!

Bye

I have an even deeper question. I have an application that checks for the DSN when the login form loads if it doesn't exist it creates a SYSTEM DSN. On windows 7 64bit it doesn't work to create a SYSTEM DSN. I changed the code out of curiosity and it will create a USER DSN. Here is my code: ODBC_ADD_DSN has a value of 1 as a constant and it creates a USER DSN. I have another constant that has a value of 4 and it creates a SYSTEM DSN. I thought the problem was in the way I create the connection but it works for a USER DSN. If anybody knows why this is happening it would be great. CODE BELOW

Sub MakeDSN(ByVal sDSN As String, ByVal sDriver As String, ByVal sDBFile As String, ByVal lAction As Long)

    Dim sAttributes As String

    Dim sDBQ As String

    Dim lngRet As Long

    Dim hKey As Long

    Dim regValue As String

    Dim valueType As Long

    ' query the Registry to check whether the DSN is already installed

    ' open the key

    If RegOpenKeyEx(HKEY_CURRENT_USER, "Software\ODBC\ODBC.INI" & sDSN, 0, KEY_ALL_ACCESS, hKey) = 0 Then

        ' zero means no error => Retrieve value of "DBQ" key

        regValue = String$(1024, 0)

               ' Allocate Variable Space

        If RegQueryValueEx(hKey, "DBQ", 0, valueType, regValue, Len(regValue)) = 0 Then

            ' zero means OK, so we can retrieve the value

            If valueType = REG_SZ Then

                sDBQ = Left$(regValue, InStr(regValue, vbNullChar) - 1)

            End If

        End If

        ' close the key

        RegCloseKey hKey

    End If

    ' Perform the action only if we're adding a DSN that doesn't exist

    ' or removing and existing DSN

    If (sDBQ = "" And lAction = ODBC_ADD_DSN) Or (sDBQ = "" And lAction = ODBC_ADD_SYS_DSN) Or (sDBQ <> "" And lAction = ODBC_REMOVE_DSN) Then

      ' check that the file actually exists

        If Len(Dir$(sDBFile)) = 0 Then

            MsgBox "Database file doesn't exist!", vbOKOnly + vbCritical

            Exit Sub

        End If

        sAttributes = "DSN=" & sDSN & vbNullChar & "DBQ=" & sDBFile & vbNullChar

        lngRet = SQLConfigDataSource(0&, lAction, sDriver, sAttributes)

    End If

End Sub

Private Sub Form_Load()

    Dim sDriver As String

    Dim sName As String

    Dim sFile As String

    sDriver = "Microsoft Access Driver (*.mdb)"

    sName = "BuyHere"

    sFile = "C:\Data\data.mdb"

    MakeDSN sName, sDriver, sFile, ODBC_ADD_DSN

End Sub