Hvordan Søges/browses MSSQL-Servere og databaser i Win.app.

Du kan se alle database på en server ved at kalde SP'en sp_databases.

Jeg tvivler lidt på at du nemt kan finde alle servere med en SQLServer på.

Kode snippet:

Imports System
Imports System.Data
Imports System.Data.SqlClient

Class MainClass
    Public Shared Sub Main(ByVal args As String())
        Dim con As SqlConnection = New SqlConnection ("server=DKARNE\DKARNE;Integrated Security=SSPI;database=master")
        con.Open
        Dim cmd As SqlCommand = New SqlCommand ("sp_databases", con)
        cmd.CommandType = CommandType.StoredProcedure
        Dim rdr As SqlDataReader = cmd.ExecuteReader
        While rdr.Read
            Dim dbnam As String = CType(rdr(0), String)
            Console.WriteLine("Database=" + dbnam)
        End While
        con.Close
    End Sub
End Class

Jeg vil gerne kunne lave en simpel Browser, der viser alle SQL-servere på mit net.
Når jeg åbner SQL Server Enterprice Manager, højreklikker på Server Group, vælger "New SQL Server registration", får jeg vist de databaseservere der er tilgængelige på netværket. Det er noget i den retning jeg gerne vil.

Så skal jeg jo nok efterfølgende bruge dit forslag med SP'en til at browse den enkelte databas frem med. (Har aldrig brugt SP'en,

Arne> Tak for snippet. Den vil jeg arbejde lidt med.

Hvis EM kan finde dem så må de jo på en eller anden måde annoncere sig selv.

Men jeg er helt blank overfor hvordan.

Jeg går ud fra at den ikke bare prøver at connecte på må og få.

Arne> Enig. Jeg har søgt mange steder, men finder ikke rigtigt noget brugbart.

Arne> Snippet virker perfekt.

http://www.eggheadcafe.com/ng/microsoft.public.data.ado/post448773.asp

http://www.dotnet247.com/247reference/msgs/8/40387.aspx

Begge siger at der er noget COM SQL DMO som kan gøre det.

Følgende burde virke, men ikke hos mig.

http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q287/7/37.ASP&NoWebContent=1#appliesto

Jeg får denne fejl??

"An unhandled exception of type 'System.InvalidCastException' occurred in BrowseSQLDataBase.exe
Additional information: QueryInterface til grænsefladen SQLDMO.NameList mislykkedes."

Eksemplet er ikke relateret til VB.NET.

Ingen anelse - jeg har aldrig brugt SQL DMO ...

Et svar for det som jeg trods alt har kunne bidrage med

Og mange tak for hjælpen "so far" :-)