Alle Datenbanken eines MySQL-Server ermitteln Dieser Tipp zeigt, wie sich alle Datenbanken eines MySQL-Servers ermitteln lassen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  10.624
https://www.tools4vb.com	System:  WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Bisher wurde noch keine Bewertung abgegeben.

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Beim letzten Mal haben wir Ihnen gezeigt, wie sich alle Datenbanken eines MS-SQL Servers ermitteln lassen.
Heute zeigen wir, wie Sie alle Datenbanken auslesen können, wenn Sie statt dem Microsoft SQL-Server den beliebten MySQL-Servrer als Datenbanksystem verwenden.

Benötigt wird hierzu der Verweis auf den MySQL .NET Connector.

Imports MySql.Data.MySqlClient
...

' Verbindungsdaten zum MySQL-Server
Dim sConn As String = "Server=localhost; userid=root; password=Kennwort;" & _
  "Database=mysql; pooling=false;"
 
' MySQL-Verbindung herstellen
Dim Conn As New MySqlConnection(sConn)
 
' MySqlCommand-Objekt über alle Datenbanken erstellen
Dim cmd As New MySqlCommand("Show Databases", Conn)
 
' Ausführen und Ergebnis in einer ListBox anzeigen
Dim dr As MySqlDataReader = cmd.ExecuteReader
If dr.HasRows Then
  Do While dr.Read
    ListBox1.Items.Add(dr("Database"))
  Loop
End If