1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Try
connectionstring = "Data Source=SERVEUR\SQLEXPRESS;Initial Catalog=BD;Persist Security Info=True;User ID=test;Password=1"
Using connection As New SqlConnection(connectionstring)
connection.Open()
Dim commande As SqlCommand = connection.CreateCommand()
commande.CommandType = Data.CommandType.StoredProcedure
commande.CommandText = "RecHisto"
commande.Parameters.AddWithValue("@var1", var1)
commande.Parameters.AddWithValue("@var2", var2)
commande.Parameters.AddWithValue("@var3", var3)
commande.Parameters.AddWithValue("@var4", var3)
commande.Parameters.AddWithValue("@var5", var5)
commande.Parameters.AddWithValue("@var6", var6)
commande.Parameters.AddWithValue("@var7", var7)
commande.Parameters.AddWithValue("@var8", var8)
commande.ExecuteNonQuery()
End Using
MsgBox("transaction ajoutée à l'historique")
Catch ex As Exception
MsgBox("erreur sur procédure : " + ex.Message)
End Try |
Partager