Option Explicit On
Imports MySql.Data.MySqlClient
Imports MySql.Data.Types
 
Public Class Daten_Einlesen
  Private myID As Integer
  Private myName As String
  Private myVorname As String
  Public Property ID() As Integer
    Get
      Return myID
    End Get
    Set(ByVal value As Integer)
      myID = value
    End Set
  End Property
 
  Public Property Name() As String
    Get
      Return myName
    End Get
    Set(ByVal value As String)
      myName = value
    End Set
  End Property
 
  Public Property Vorname() As String
    Get
      Return myVorname
    End Get
    Set(ByVal value As String)
      myVorname = value
    End Set
  End Property
End Class
Module mod_lade_Daten
  Dim DatenPerson As Daten_Einlesen
  Public Personen_Daten As New List(Of Daten_Einlesen)
  Sub lade_Personendaten()
    Dim objMySQL As MySqlConnection
    Dim objCommand As MySqlCommand
    Dim objReader As MySqlDataReader
    Dim strConn As String = "Persist Security Info=False; _
                             database="Name der Datenbank"; _
                             server="Servername"; _    
                             user id="Username"; _
                             Password="Password"; _
                             charset=latin1"
 
    objMySQL = New MySqlConnection(strConn)
    objMySQL.Open()
    Dim strSQL As String = "SELECT id, name, vorname FROM Tabelle WHERE ID >" & _
      "'10'"
    objCommand = New MySqlCommand(strSQL, objMySQL)
    objReader = objCommand.ExecuteReader
    Personen_Daten.Clear()
    Do Until objReader.Read = False
      DatenPerson = New Daten_Einlesen {.ID = CInt(objReader!id), _
                                .Name = CStr(objReader!name), _
                                .Vorname = CStr(objReader!vorname)}
     Personen_Daten(DatenPerson )
    Loop
    objReader.Close()
    objMySQL.Close()
    objReader = Nothing
    objCommand = Nothing
    objMySQL = Nothing
  End Sub
End Module

 
Sub schreibe_Personendaten()
    Dim ergebnisListe = From Personen_Daten In Personen_Daten _
                        Select ID = Personen_Daten.ID, _
                                    Name = Personen_Daten.Name, _
                                    Vorname = Personen_Daten.Vorname
                                    Order By Name 
 
  With DATA_Name
    'Datenübergabe
    .DataSource = ergebnisListe.ToList
  End With
  Design_DATA_Name()
  ergebnisListe = Nothing
End Sub
 
sub Design_DATA_Name()
  With Data_Personen
    .RowHeadersWidth = 30
    .Columns.Item("Nachname").DisplayIndex = 0
    .Columns.Item("Vorname").DisplayIndex = 1
    .Columns.Item("ID").DisplayIndex = 2
 
    'Breite und Ausrichtung der Spalte, tauschen der Spaltenbeschriftung
   .Columns.Item("Name").Width = 120
   .Columns("Name").HeaderText = "Nachname der Person"
   .Columns.Item("Vorname").Width = 120
   .Columns("Vorname").HeaderText = "Vorname der Person"
   .RowHeadersVisible = True
   .ForeColor = Color.Blue
   .CellBorderStyle = DataGridViewCellBorderStyle.RaisedVertical
   .ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Raised
   .DefaultCellStyle.WrapMode = DataGridViewTriState.True
   .DefaultCellStyle.BackColor = Color.LightYellow
   .AutoGenerateColumns = True
   .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
   .SelectionMode = DataGridViewSelectionMode.FullRowSelect
  End With
 
  With Data_Personen.DefaultCellStyle
    .BackColor = Color.LightYellow
    .ForeColor = Color.DarkBlue
   End With
 
  With Data_Personen.AlternatingRowsDefaultCellStyle
    .BackColor = Color.Beige
    .ForeColor = Color.DarkBlue
  End With
End Sub

 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
  lade_Personendaten()
  schreibe_Personendaten()
End Sub