Hallo,
ich bastel gerade in meinem Programm und komme an der stelle nicht weiter wo ich in die DB Tabelle schreiben kann. Die Verbindung ist da wenn ich meine Felder ausfülle werden diese sauber in ein DataGridview übertragen aber diese werden nicht in die DB übertragen die bleibt leer.
Hier mein Quellcode:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim newftinessRow As fitnessDataSet.bmiRow
newftinessRow = Me.FitnessDataSet.bmi.NewbmiRow()
With newftinessRow
.Item("id") = -1
.Item("Gewicht") = txtGewicht.Text
.Item("Groesse") = txtGroesse.Text
.Item("Ergebniss") = lblErgebniss.Text
.Item("Alter") = txtAlter.Text
.Item("Einschätzung") = lblBMI.Text
End With
FitnessDataSet.bmi.Rows.Add(newftinessRow)
Me.FitnessDataSet.EndInit()
Me.BmiBindingSource.EndEdit()
Me.BmiTableAdapter.Update(Me.FitnessDataSet.bmi)
End Sub
Ich bin über jede Hilfe dankbar.
Michael Peter
ich bastel gerade in meinem Programm und komme an der stelle nicht weiter wo ich in die DB Tabelle schreiben kann. Die Verbindung ist da wenn ich meine Felder ausfülle werden diese sauber in ein DataGridview übertragen aber diese werden nicht in die DB übertragen die bleibt leer.
Hier mein Quellcode:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim newftinessRow As fitnessDataSet.bmiRow
newftinessRow = Me.FitnessDataSet.bmi.NewbmiRow()
With newftinessRow
.Item("id") = -1
.Item("Gewicht") = txtGewicht.Text
.Item("Groesse") = txtGroesse.Text
.Item("Ergebniss") = lblErgebniss.Text
.Item("Alter") = txtAlter.Text
.Item("Einschätzung") = lblBMI.Text
End With
FitnessDataSet.bmi.Rows.Add(newftinessRow)
Me.FitnessDataSet.EndInit()
Me.BmiBindingSource.EndEdit()
Me.BmiTableAdapter.Update(Me.FitnessDataSet.bmi)
End Sub
Ich bin über jede Hilfe dankbar.
Michael Peter