Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Функция возвращает ADODB.connection  [new]
1
Guest
Хочу создать функцию, которая возвращает ADODB.connection
Смысл функции - постоянно держать коннект к серверу. Если конект обрубился - заново переинициализировать.

Public Function dhCnnMySQL(Optional blReLink As Boolean = False) As ADODB.Connection
Dim strConnection As String
Static cnnMySQL As New ADODB.Connection

On Error GoTo 999
    

    
If blReLink = True Then
   If Not cnnMySQL Is Nothing Then Set cnnMySQL = Nothing
End If
    
If Len(cnnMySQL) > 0 Then
    Set dhCnnMySQL = cnnMySQL
    Exit Function
End If
    
    strConnection = dhGetDSN
    
    cnnMySQL.Open strConnection, dhGetUser, dhGetPassword
    Set dhCnnMySQL = cnnMySQL
    
    
Exit Function

999:
msgbox "Error dhCnnMySQL"
    
End Function

Но я не могу выполнить инструкцию:
dhCnnMySQL.Execute "UPDATE consultant SET discount=0"

говорит что аргумент не определён.

Где ошибка?
24 июн 05, 16:03    [1648293]     Ответить | Цитировать Сообщить модератору
 Re: Функция возвращает ADODB.connection  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
стоит посмотреть debug.print connection
у меня вот так работает

Access 2003
Public Function dhCnnMySQL(Optional blReLink As Boolean = False) As ADODB.Connection
    Set dhCnnMySQL = CurrentProject.Connection
End Function
Private Sub Кнопка0_Click()
Debug.Print dhCnnMySQL
dhCnnMySQL.Execute "UPDATE consultant SET discount=0"
End Sub
24 июн 05, 17:21    [1648777]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить