InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comSat, 22 Nov 2008 20:10:34 GMT20http://www.relib.com/forums/Topic882122-2-1.aspxПерестал работать код программного создания DSN_источника ODBC1 и тот же код при работе на разных компах завершается успешно или неудачно.(правда на том компе где неудачно недавно было вирусное заражение и Касперский удалил ряд файлов).Код имеет следующий вид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 IfEnd FunctionДанный код рассчитан на создание в коде VBA DSN для SQL Server-ов с различными видами аутенфикации – по login, password или по WinNT Но на компе где не работает не работает также код создания ODBC по Jet для MS ACCESSКто сталкивался с этим , какие будут предложения? Где отдельно скачать ODBC 3/0 – на Микрософте его не вижу – только ODBC/NETМожет кто знает как присоединять к Access табл с SQL Server без явного упоминания DSN –nameЧтобы присоединенные табл работали и в случае когда кто-то на компе удалит соответствующий DSN,?Thu, 06 Oct 2005 12:45:00 GMTeugira