ник: час
А как Вы связь с таблицами устанавливаете???
Точнее посредством чего данные из базы достаёте???
Если ADO тогда как то так:
Public GLB_CONNECTION As ADODB.Connection ' подключение к базе
Public Function FUN_GET_GLOBAL_CONNECTION() As Boolean
' Подключение к базе
Dim conn_str As String
Dim ADOErr As ADODB.Error
Set GLB_CONNECTION = New ADODB.Connection
FUN_GET_GLOBAL_CONNECTION = False
' проверить подключение(Соединение)
If GLB_CONNECTION.State = adStateOpen Then
FUN_GET_GLOBAL_CONNECTION = True '"Соединение - уже установлено !"
Exit Function
End If
GLB_CONNECTION.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:" _
& "Database Password=;Data Source=" & GLB_PATCH_CONNECTION
' проверить подключение(Соединение)
If GLB_CONNECTION.State = adStateOpen Then
FUN_GET_GLOBAL_CONNECTION = True ' соединение установлено
Else
Call MsgBox("Соединение с базой не установлено !", _
vbOKOnly + vbCritical, _
"Проверка!!!")
FUN_GET_GLOBAL_CONNECTION = False
End If
End Function
|