Dostęp zdalny do MS SQL przez XP

Mam problem z którym walczę już 10h...
Stoi komputer z bazą MS SQL 2008 R2, jest dodany do DMZ w routerze, zewnętrzne IP stałe.

Da się wejść z zewnątrz do bazy z każdego kompa przez Managment Studio, nie ma żadnych problemów... oprócz tego, że nie działa na XP. Działa na win7, Visa, na wielu kompach. Jednak przy XP nie da się wejść z żadnego, po prostu nie znajduje serwera. Próbowałem przez instancję, przez port itd...
Przy łączeniu lokalnym przez XP działa.
Macie jakieś pomysły co jeszcze sprawdzić?

napisz szybkiego vbs'a w ktorym polaczysz sie przez ADO do instancji.
Czasem w connection stringu trzeba dodac port np ...MyInstance,1433;....
Sprawdz jak masz i czy masz zdefiniowane alisy (musza byc zarowno dla 32 jak i 64 bit jesli kazdy system ma sie laczyc).
Sprawdz czy masz wylaczone dynamic port.
Czy z tego XP mozna zapingowac maszyne na ktorej stoi SQL?
Sprawdz na jakim koncie chodzi serwis SQL.
Sprawdz firewall (najlepiej dla testow wylacz na obu maszynach XP i serwer bazy).

plik vbs

Dim oConnection As Connection
Set oConnection = New Connection
oConnection.ConnectionString = "tutaj connection string"
oConnection.Open

MsgBox "ok"

Twój przykład jak i zaciągnięty z netu:

 
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... :)

Dim oConnection
Set oConnection = CreateObject("ADODB.Connection")
oConnection.Open InputBox("Connection string", "Connection string", "")

MsgBox "connected"

teraz sprawdz - wczoraj pisalem z glowy.
Dzisiejszy kod jest przetestowany i dziala.

A sprobuj do testow wlaczyc usluge browsera.