Twój przykład jak i zaciągnięty z netu:
Kopiuj
Sub ConnectionExample2()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
' Open a connection using an ODBC DSN "Pubs".
cnn.ConnectionString = "Server=..;Database=..;User Id=sa; Password=..;"
cnn.Open
' Find out if the attempt to connect worked.
If cnn.State = adStateOpen Then
MsgBox "Welcome to Pubs!"
Else
MsgBox "Sorry. No Pubs today."
End If
' Close the connection.
cnn.Close
End Sub
wywala błąd kompliacji w drugim wierszu (Twój przykład to wiersz pierwszy)
-aliasów nie mam żadnych, próbowałem tworzyć np do 64bit "localhost\instancja" i jak próbuje wejść klientem na "adres_ip\alias" nie działa nawet z maszyny na której jest serwer, restartowalem usługi.
Ale pasowałoby to właśnie, że nie działa łączenie przez 32bit systemy...
-dynamiczne porty wyłączone, ustawiony 1433
-pingować się da
-na jakim koncie tzn lokalnie? Admina
-firewalle wyłączone, wcześniej dodane do wyjątków porty 1433/1434 tcp/udp.
Dzięki wielkie za porady, pytałem na kilku forach ale nikt nie miał żadnego pomysłu... :)
