Можно сделать такой файл:
SERVER=Rogovoy-DV
DATABASE=DBF_181004
WinAuth=True
Назвать его по имени приложения и дать расширение cfg (расширение можно давать любое).
Далее, при загрузке приложения выполняем считывание информации:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
Public Type struct_cnn
strSERVER As String
strDATABASE As String
strAPPLICATION As String
cstrWinAuth As String
End Type
'массив строк (имена процедур), которые надо запустить после логина
Public ExecStrings As New Collection
Public m_cnn As struct_cnn
Public Function ReadConfig() As Boolean
Const cstrSERVER As String = "SERVER="
Const cstrDATABASE As String = "DATABASE="
Const cstrEXECUTE As String = "EXECUTE="
Const cstrWinAuth As String = "WinAuth="
Dim strConfigFileName As String
Dim s As String
m_cnn.strAPPLICATION = CurrentProject.Name
Dim p As Long
p = InStr( 1 , m_cnn.strAPPLICATION, ".")
If p > 0 Then
m_cnn.strAPPLICATION = Left(m_cnn.strAPPLICATION, p - 1 )
End If
strConfigFileName = CurrentProject.Path & "\" & m_cnn.strAPPLICATION & ".cfg"
If Len(Dir(strConfigFileName)) = 0 Then
MsgBox "Не найден конфигурационный файл приложения: " & strConfigFileName, vbExclamation, "Ошибка"
ReadConfig = False
Exit Function
End If
Dim i As Integer
For i = 1 To ExecStrings.Count
ExecStrings.Remove 1
Next i
Dim f As Integer
f = FreeFile
Open strConfigFileName For Input Access Read As #f
Do While Not EOF(f)
Line Input #f, s
If InStr( 1 , s, cstrSERVER) > 0 Then
m_cnn.strSERVER = Mid(s, Len(cstrSERVER) + 1 , Len(s))
End If
If InStr( 1 , s, cstrDATABASE) > 0 Then
m_cnn.strDATABASE = Mid(s, Len(cstrDATABASE) + 1 , Len(s))
End If
If InStr( 1 , s, cstrWinAuth) > 0 Then
m_cnn.cstrWinAuth = Mid(s, Len(cstrWinAuth) + 1 , Len(s))
End If
If InStr( 1 , s, cstrEXECUTE) > 0 Then
ExecStrings.Add Mid(s, Len(cstrEXECUTE) + 1 , Len(s))
End If
Loop
Close #f
ReadConfig = True
End Function
Описанный код - это только часть модуля для подключения.
Строку коннекта можно открыть след. образом, если m_cnn.cstrWinAuth = TRUE
.OpenConnection "PROVIDER=SQLOLEDB.1;INTEGRATED SECURITY=SSPI;PERSIST SECURITY INFO=TRUE;DATA SOURCE=" & m_cnn.strSERVER & ";INITIAL CATALOG=" & m_cnn.strDATABASE
В противном случае, запускать свою форму для ввода логина и пароля и формировать строку подключения. Следует помнить, что отданный клиенту файл должен не иметь свойств подключения, т.е. перед тем как клиенту файл отдать или везти его из дома делаем CurrentProject.OpenConnection. Остальное делаем сами:)
