Eugene
Перестал работать код программного создания DSN_источника ODBC
1 и тот же код при работе на разных компах завершается успешно или неудачно.
(правда на том компе где неудачно недавно было вирусное заражение и Касперский удалил ряд файлов).
Код имеет следующий вид
Function CreatDSN() As Boolean
Dim ret$
' ret = SQLConfigDataSource(0, 1, "SQL Server", "DSN=DSN_eug" & Chr(0) & "Server=" & Server & Chr(0) & "Database=sprut" & Chr(0) & "UseProcForPrepare=0" & Chr(0) & "Trusted_connection=yes" & Chr(0) & "LANGUAGE=ðóññêèé" & Chr(0) & "Description=Äëÿ Ñïðóò" & Chr(0) & Chr(0))
ret = SQLConfigDataSource(0, 1, "SQL Server" & Chr(0), "DSN=EUG" & Chr(0) & "Server=BAGOTSKI" & Chr(0) & "Database=sprut" & Chr(0) & "Trusted_connection=yes" & Chr(0) & "LANGUAGE=ðóññêèé" & Chr(0) & "Description=Äëÿ Ñïðóò" & Chr(0) & Chr(0))
' ret = SQLConfigDataSource(0, 1, "SQL Server" & Chr(0), "DSN=LABS" & Chr(0) & "Server=" & Server & Chr(0) & "Database=sprut" & Chr(0) & "UseProcForPrepare=Yes" & Chr(0) & "Login=metodist" & Chr(0) & "Pwd=405" & Chr(0) & "LANGUAGE=english" & Chr(0) & "Description=Äëÿ Ñïðóò" & Chr(0) & Chr(0))
If ret = False Then
CreatDSN = False
Else
CreatDSN = True
End If
End Function

Данный код рассчитан на создание в коде VBA DSN для SQL Server-ов с различными видами аутенфикации – по login, password или по WinNT
Но на компе где не работает не работает также код создания ODBC по Jet для MS ACCESS
Кто сталкивался с этим , какие будут предложения?
Где отдельно скачать ODBC 3/0 – на Микрософте его не вижу – только ODBC/NET
Может кто знает как присоединять к Access табл с SQL Server без явного упоминания DSN –name
Чтобы присоединенные табл работали и в случае когда кто-то на компе удалит соответствующий DSN,?