insert record failed

[scevola]

i try to inser a record in my db but ii doesnt work,i try many solutions but only the dataset were updated , never the table in db ...pls help me .
these are my buttons with all my attempts:
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: questa riga di codice carica i dati nella tabella 'Database1DataSet.terreno'. È possibile spostarla o rimuoverla se necessario.
Me.TerrenoTableAdapter1.Fill(Me.Database1DataSet.terreno)
'TODO: questa riga di codice carica i dati nella tabella 'DataSet1.terreno'. È possibile spostarla o rimuoverla se necessario.
Me.TerrenoTableAdapter.Fill(Me.DataSet1.terreno)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
TerrenoTableAdapter.Insert(12, "ProvaDataGridViewTextBoxColumn")
DataSet1.AcceptChanges()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sql As String
Dim conn As New System.Data.SqlClient.SqlConnection("Data Source=|DataDirectory|\Database1.sdf;Initial Catalog=terreno;Integrated Security=True")
Try
conn.Open()


sql = "INSERT INTO terreno (campo1,campo2) VALUES (2,valore2)"
Dim d As New System.Data.SqlClient.SqlConnection
Dim cmd As New SqlCommand(sql, conn)

cmd.ExecuteNonQuery()
conn.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim sql As String = "INSERT INTO terreno (ID,prova) VALUES (2,'valore2')"
Dim conn As New System.Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;User Instance=True")
Dim cmd As New SqlCommand(sql, conn)

Try

conn.Open()


'sql = "INSERT INTO terreno (ID,prova) VALUES (2,'valore2')"


cmd.ExecuteNonQuery()
conn.Close()



'TerrenoTableAdapter1.Insert(12, "Prova")
'TerrenoTableAdapter1.Adapter.InsertCommand.CommandText = "INSERT INTO terreno (ID,prova) VALUES (2,'valore2')"
'TerrenoBindingSource1.AddNew()
'Database1DataSet.AcceptChanges()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim dr As DataRow = DataSet1.Tables("Terreno").NewRow
dr.Item("ID") = 4
dr.Item("prova") = "NCD"

DataSet1.Tables("Terreno").Rows.Add(dr)
Me.TerrenoTableAdapter1.Fill(Me.Database1DataSet.terreno)
'DataSet1.Tables("Terreno").AcceptChanges()
End Sub
End Class

 

[jmcilhinney]

How are you getting the data in the first place?

Me.TerrenoTableAdapter1.Fill(Me.Database1DataSet.terreno)

How do you save the changes?

Me.TerrenoTableAdapter1.Update(Me.Database1DataSet.terreno)