Public
Class
FormStart
Dim
myconnection
As
New
DBConnection
Dim
mycmd
As
New
MySqlCommand
Dim
dadapter
As
New
MySqlDataAdapter
Dim
dtable
As
New
DataTable
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