Imports System.Data
Imports System.Data.SqlClient
 
Public Class Form1
 
   Private Const sConn As String = "Data Source=DeinServer;User" & _
     "ID=sa;pwd=DeinPasswort"
   Private sqlconn As New SqlConnection(sConn)
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      sqlconn.Open()
 
      Dim dtDatabases As DataTable = sqlconn.GetSchema("Databases")
      For Each rDB As DataRow In dtDatabases.Rows
         Me.ListBox1.Items.Add(rDB("database_name"))
      Next
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control