mycmd.Connection = myconnection.open
mycmd.CommandText = "SELECT * From auftraggeber Where Id=" & TextBox13.Text
datapter = New MySqlDataAdapter(mycmd)
dtable.Rows.Clear()
datapter.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()
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Mit obigen Code lese ich die in TextBox13 ausgewählte Id in meiner SQL Datenbank und fülle damit ein Data Grid.. Das Funktionier super...
Jetzt möchte ich aber das ergegniss der Abfrage nicht in ein Data Grid schreiben sonder in Text Boxen
So etwa in der Form:
TextBox1.Text = ID.toString
TextBox2.Text = Auftraggeber.toString
usw. usw,
Leider bekomme ich das nicht auf die Reihe... wäre jemand wissendes so lieb und könnte mir helfen???
Dankeschön
|