1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
Imports System.Data.SqlClient
Public Class ajoutclient
Private con As New SqlConnection("Data Source=MTIRI-PC; Initial Catalog=base-ets-mtiri;integrated security=true; ")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
con.Open() ' ouverture de la connexion vers la base
Dim cmd As New SqlCommand("INSERT INTO CLIENT(CODAUX,NOMSOC,MATFISC,ADRESSE,CODPOST,TEL,GSM,FAX,EXON,ASSUJETTI,CATCLI,VILLE,PAYS,REMISE) VALUES(@parm1,@parm2,@parm3,@parm4,@parm5,@parm6,@parm7,@parm8,@parm9,@parm10,@parm11,@parm12,@parm13,@parm14)", con) ' la commande
cmd.Parameters.Add("@parm1", SqlDbType.VarChar).Value = codeclient.Text
cmd.Parameters.Add("@parm2", SqlDbType.VarChar).Value = nom.Text
cmd.Parameters.Add("@parm3", SqlDbType.VarChar).Value = mat.Text
cmd.Parameters.Add("@parm4", SqlDbType.VarChar).Value = adr.Text
cmd.Parameters.Add("@parm5", SqlDbType.VarChar).Value = cpost.Text
cmd.Parameters.Add("@parm6", SqlDbType.VarChar).Value = tel.Text
cmd.Parameters.Add("@parm7", SqlDbType.VarChar).Value = gsm.Text
cmd.Parameters.Add("@parm8", SqlDbType.VarChar).Value = fax.Text
cmd.Parameters.Add("@parm9", SqlDbType.VarChar).Value = exo.Text
cmd.Parameters.Add("@parm10", SqlDbType.VarChar).Value = ass.Text
cmd.Parameters.Add("@parm11", SqlDbType.VarChar).Value = catégorie.Text
cmd.Parameters.Add("@parm12", SqlDbType.VarChar).Value = ville.Text
cmd.Parameters.Add("@parm13", SqlDbType.VarChar).Value = pays.Text
cmd.Parameters.Add("@parm14", SqlDbType.VarChar).Value = remise.Text
cmd.ExecuteNonQuery()
con.Close()
End Sub
end class |
Partager