Alle Datenbanken eines MySQL-Server ermitteln Dieser Tipp zeigt, wie sich alle Datenbanken eines MySQL-Servers ermitteln lassen.
Autor:   Dieter Otter	Bewertung:	Views:  10.033
www.tools4vb.de	System:  WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.