MSSQL Datenbanken im Netzwerk sehen

[MScalli]

Hi leutz..
hab ein kleines prog ausprobiert das mir die tabellen einer MSSQL datenbank anzeigt..
wie machen ich das es für das ganze netztwerk gültig ist..
d.H. das ich server auf anderen rechnern ansprechen kann..
derd quellcode sieht so aus

Option Explicit
' zeigt alle Tabellen einer MSSQL-Datenbank an

Private Sub Command1_Click()
  ' Datenbank in ListBox einfügen
  Dim oConn As New ADODB.Connection
  Dim RSTSchema As New ADODB.Recordset

  ' Connection-Objekt erstellen
  Set oConn = New ADODB.Connection
  With oConn
    .Provider = "SQLOLEDB.1"
    .Properties("Data Source") = "NAME\SQLEXPRESS"
    .Properties("User ID") = "sa"
    .Properties("Password") = "passwort"
    .CursorLocation = adUseClient
    .Open
  End With
  
  ' Datenbanken ermitteln
  Set RSTSchema = oConn.OpenSchema(adSchemaCatalogs)
  If RSTSchema.RecordCount > 0 Then
    With RSTSchema
      .MoveFirst
      Do While Not .EOF
        List1.AddItem .Fields(0).Value
        .MoveNext
      Loop
    End With
  End If

  ' Objekte zerstören
  RSTSchema.Close
  Set RSTSchema = Nothing

  oConn.Close
  Set oConn = Nothing
End Sub

 

[Alex F.]

Sofern alle benötigten Runtimes im Netzwerk verfügbar sind (ADO vb6 usw.) und der SQL Server im Netzwerk ist sollte es eigentlich im gesamten Netzwerk funktionieren.

Grüsse bb

PS: Schilder vielleicht dein Problem etwas genauer Fehlermeldungen!

 

[MScalli]

Laufzeitfehler...
[DBNETLIB][EConnectionOpen Connect())]SQLServer existiert nicht oder Zugriff verweigert

also der SQLServer(SQLExpress) wird ausgeführt..
muss im Manager auch der SQL_Server Browser aktiviert sein

unter den Protokollen ist tcp/ip auch aktiviert!!

also liegt es sicher an den einstellungen des SQLServers

 

[Alex F.]

Der Fehler lässt stark darauf schliessen
Nein den browser brauchst du soweit ich weiss nicht. Wenn du tcp/ip aktiviert hast dann musst du den sqlServer aber über die IP angeben glaube ich ( aktivier mal noch named pipes )
Notfalls nochmal die Frage im Datenbankforum aufwerfen

Grüsse bb

 

[MScalli]

das mit der IP hab ich auch schon probiert also

.Properties("Data Source") = "192.168.16.111\SQLEXPRESS"

auf dem rechner wo der server installiert ist klappt das einwandfrei.. nur auf keinem anderen rechner.
die pipes sind auch aktiviert..

geht immer noch net

aber dank dir schon mal für deine hilfe!!