Quellcode

Imports mysql
Imports MySql.Data
Imports MySql.Data.MySqlClient

Quellcode

Module MYSQLConnenction

	Public strMYSQLserver As String
	Public strMYSQLuid As String
	Public strMYSQLpwd As String
	Public strMYSQLdatabase As String
	Public strMYSQLtable As String

	Public Sub OpenMySqlDatabase()
    		'Öffnet die Datenbank

            strMYSQLserver = "[...]" 'SeverName, wo die mysql Datenbank liegt
            strMYSQLuid = "[...]" 'Der Username für die Datenbank
      	  strMYSQLpwd = "[...]" 'Das User Passwort für die Datenbank
      	  strMYSQLdatabase ="[...]" 'Der Dantenbankname

      	  Dim myConnectionString As String

            'Baut die Verbindung zur Datenbank auf
      	  myConnectionString = "server=" & strMYSQLserver & ";uid=" & strMYSQLuid & ";pwd=" & strMYSQLpwd & ";database=" & strMYSQLdatabase & ";" & "Port=3306;"
    	    cnMySql.ConnectionString = myConnectionString
      	  myCommand.Connection = cnMySql

      	  'Verbindung wird aufgebaut
  	  Try
        	    	cnMySql.Open()
    	    Catch ex As Exception
        	    	MessageBox.Show(ex.Message)
      	  End Try
    
	End Sub

	'Die Datenbank wird geschlossen
	Public Sub CloseMySqlDatabase()
    		Try
        			cnMySql.Close()
    		Catch ex As Exception
        			MessageBox.Show(ex.Message)
    		End Try
	End Sub
End Module

Quellcode

Imports mysql
Imports MySql.Data
Imports MySql.Data.MySqlClient

Public Class Namen

	Public cnMySql As New MySqlConnection
	Public myCommand As New MySqlCommand
	Public myAdapter As New MySqlDataAdapter
	Public myData As MySqlDataReader

     	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  
    		OpenMySqlDatabase()

    		strMYSQLtable =  "tbNamen"
     		label1.text = ""

    		Dim SQLAbfrage As String = "SELECT * FROM " & strMYSQLtable & " ORDER BY Nachname"

    		myCommand.CommandText = SQLAbfrage
    		myAdapter.SelectCommand = myCommand
    		myData = myCommand.ExecuteReader()
           		label1.Text =   label1.Text & System.Environment.NewLine & _
                             		
    		While myData.Read()
			myData.GetString("Nachname") & ", " &  myData.GetString("Vorname")
    		End While

	End Sub

End Class