Public Function FUN_Get_GlobalConnection() As Boolean
' Подключение к базе
'Call FUN_ALL_IN_LOG(Now() & " _модуль " & "START_MOD" & " _процедура " & "FUN_Get_GlobalConnection")
'---------------------------------------------------------------------------
On Error GoTo FUN_Get_GlobalConnection_Error
'---------------------------------------------------------------------------
FUN_Get_GlobalConnection = False
Dim conn_str As String
Set GLB_con = New ADODB.Connection
If GLB_Patch_Connection = "" Then
Error_String = Err.Description: Call FUN_IN_TXT(FUN_Patch_File(App.Path, "Error.txt"), Now() & "Не указан путь к базе")
Exit Function
End If
' проверить подключение(Соединение)
If GLB_con.State = adStateOpen Then
FUN_Get_GlobalConnection = True '"Соединение GLB_con уже установлено !"
Exit Function
End If
Dim ADOErr As ADODB.Error
On Error GoTo CnErrorHandler
GLB_con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=у2у2;Data Source=" & GLB_Patch_Connection
' проверить подключение(Соединение)
If GLB_con.State = adStateOpen Then
'Call FUN_IN_LOG("Соединение GLB_con установлено !" & GLB_Patch_Connection)
FUN_Get_GlobalConnection = True
Else
Call FUN_IN_TXT(FUN_Patch_File(App.Path, "TEMP_ERROR.log"), "Соединение со справочниками не установлено !")
Call MsgBox("Соединение с базой не установлено !", _
vbOKOnly + vbCritical, _
"NewId()")
End If
Exit Function
CnErrorHandler:
'---------------------------------------------------------------------------
On Error GoTo 0
Call MsgBox("НЕ удалось подключить базу!!! " & vbCrLf & "Возможно в названиях папок русские буквы!!!", vbCritical)
Exit Function
FUN_Get_GlobalConnection_Error:
FUN_Get_GlobalConnection = False
End Function
|