1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
rsql = "Insert into projet(prjno,prjnom,prjvil,datdeb,datfin)values( :v1 , :v2 , :v3 , :v4 , :v5 )"
Using con As New OleDb.OleDbConnection("MonConnectionString")
con.Open()
Using dc As New OleDb.OleDbCommand(rsq, con)
dc.Parameters.Add("v1", OleDb.OleDbType.Integer).Value = CInt(v1.Text)
dc.Parameters.Add("v2", OleDb.OleDbType.VarChar).Value = v2.Text
dc.Parameters.Add("v3", OleDb.OleDbType.VarChar).Value = v3.Text
dc.Parameters.Add("v4", OleDb.OleDbType.Date).Value = DateTime.Parse(v4.Text)
dc.Parameters.Add("v5", OleDb.OleDbType.Date).Value = DateTime.Parse(v5.Text)
dc.ExecuteNonQuery()
End Using
End Using
MsgBox("insertion réussi")
End Sub |
Partager