SQLDriverConnect не объявлена

Ответить

Объявлена, я просто не написал здесь.

' Connects to SQL datasource
Declare Function SQLDriverConnect Lib "odbc32.dll" ( _
                                ByVal lngHCon As Long, _
                                ByVal lngHWnd As Long, _
                                ByVal strInConStr As String, _
                                ByVal intInConStrLen As Integer, _
                                ByVal strOutConStr As String, _
                                ByVal intOutConStrMaxLen As Integer, _
                                ByRef intOutConStrLen As Long, _
                                ByVal intDriverCompletion As Integer _
                          ) As Integer

Ответить

Прошу прощения за отсутствие форматирования в первом сообщении. Я его создал как текст, а не HTML

Вот более читабельная версия:

' Allocates environment handle
Declare Function SQLAllocEnv Lib "odbc32.dll" ( _
                                              ByRef lngHEnv As Long _
                                ) As Integer

' Allocates connection handle
Declare Function SQLAllocConnect Lib "odbc32.dll" ( _
                                                  ByVal lngHEnv As Long, _
                                                  ByRef lngHCon As Long _
                                    ) As Integer

Private Function CreateEnvironment() As Integer
  '**********************************************************************
  'Purpose: Create work environment for ODBC
  '         and save its handle to variable
 
  'Returns: error/success code as in enumStatus
  '**********************************************************************
    
  ' Call API function to allocate the environment handle
  CreateEnvironment = SQLAllocEnv(lngHEnv)
 
End Function

Public Function CreateConnection(ByVal strConnection As String, _
                                  ByRef lngHCon As Long) As Integer
 
  '**********************************************************************
  'Purpose: Create the connection to the datasource
  '         and save its handle to variable
  '         Plus initialize the statement collecton
 
  'Takes: 1) strConnection - the connection string
  '       2) lngHCon - the connection handle is returned here
 
  'Returns: the error code as in
  '         enumStatus
  '**********************************************************************
  ' Create the environment
  CreateConnection = CreateEnvironment
 
  ' Call API function to allocate the connection handle
  CreateConnection = SQLAllocConnect(lngHEnv, lngHCon)
  
  ' Call API function to connect to the remote data source
  CreateConnection = SQLDriverConnect(lngHCon, _
                                      0, _
                                      strConnection, _
                                      500, _
                                      strConnection, _
                                      500, _
                                      500, _
                                      odbcNoPrompt)

End Function

Public Sub StartDB(ByVal strPath As String)
  '******************************************************************************
  'Purpose:  Connect to a database
  '           using MS Access driver
 
  'Takes:  1) strPath - the path to the DB file
  '******************************************************************************
    
  Set gODBCWrap = New ODBCwrap
  
  If Not gODBCWrap.CreateConnection _
        ("DRIVER={Microsoft Access Driver (*.mdb)}BQ=" & strPath, lngHCon) = 0 _
  Then
 
    MsgBox "Failed to connect to database.", vbExclamation, "Connection error"
 
  End If
   
End Sub

Ответить

Воспроизвел весь твой код и он заработал, по крайней мере сбойных мест нет, все отрабатывается, возвращаются ошибки, прога не рушится. Я добавил следующее:

1. В модуле где StartDB объявление Private lngHCon As Long
2. В модуле класса объявление Private lngHEnv As Long
3. В модуле класса в функции CreateConnection в параметрах вызова SQLDriverConnect вместо odbcNoPrompt (это наверно из кого-то перечисления) подставил 0.

Ответить