Hallo und danke für die Antwort
Die Tabelle neiner Datenbank heißt: (auftraggeber) Inhalt: (Id,Auftraggeber,Info1,Info2,Info3,Strasse,PLZ,Ort,Zusatz1,Zusatz2,Zusatz3,Kommentar)
Unten ist der koplette Code mit dem ich eine Test Data Grid View fülle.
Reicht das als Info?
Antatt ein Grid zu füllen soll das Prozeder Textboxen befüllen zB TextBox14 bis xxx
Public Class FormStart
Dim myconnection As New DBConnection
Dim mycmd As New MySqlCommand
Dim dadapter As New MySqlDataAdapter
Dim dtable As New DataTable
'### Suchabfrage Auftraggeber Id #####################################################################################################################################
Private Sub TextBox13_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox13.KeyDown
If e.KeyCode = Keys.Enter Then
mycmd.Connection = myconnection.open
mycmd.CommandText = "SELECT * From auftraggeber Where Id=" & TextBox13.Text
dadapter = New MySqlDataAdapter(mycmd)
dtable.Rows.Clear()
dadapter.Fill(dtable)
If Not dtable Is Nothing AndAlso dtable.Rows.Count > 0 Then
GridA.AutoGenerateColumns = False
GridA.DataSource = dtable
GridA.Columns(0).DataPropertyName = "Id"
GridA.Columns(1).DataPropertyName = "Auftraggeber"
GridA.Columns(2).DataPropertyName = "Info1"
GridA.Columns(3).DataPropertyName = "Info2"
GridA.Columns(4).DataPropertyName = "Info3"
GridA.Columns(5).DataPropertyName = "Strasse"
GridA.Columns(6).DataPropertyName = "PLZ"
GridA.Columns(7).DataPropertyName = "Ort"
GridA.Columns(8).DataPropertyName = "Zusatz1"
GridA.Columns(9).DataPropertyName = "Zusatz2"
GridA.Columns(10).DataPropertyName = "Zusatz3"
GridA.Columns(11).DataPropertyName = "Kommentar"
End If
myconnection.close()
End If
End Sub
End Class
|