1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Dim Connexion As New SQLiteConnection(My.Settings.ConnectionString)
Dim SQL As String
SQL = "INSERT INTO table (champ1, champ2, champ3, champ4, champ5, champ6) " & _
"VALUES (@champ1, @champ2, @champ3, @champ4, @champ5, @champ6)"
Connexion.Open()
Dim commande As New SQLiteCommand(SQL, Connexion)
With commande.Parameters
.AddWithValue("@champ1", valeur1)
.AddWithValue("@champ2", valeur2)
.AddWithValue("@champ3", valeur3)
.AddWithValue("@champ4", valeur4)
.AddWithValue("@champ5", valeur5)
.AddWithValue("@champ6", valeur6)
End With
commande.ExecuteNonQuery()
commande.Dispose() |
Partager