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 28 29 30 31 32 33 34 35 36 37
| ctn = New SqlClient.SqlConnection
ctn.ConnectionString = Connexion a ma base
ctn.Open()
cmd = New SqlClient.SqlCommand
cmd.Connection = ctn
With cmd.Parameters
.Add(New SqlParameter("@codearticle", SqlDbType.VarChar, 30))
.Add(New SqlParameter("@designation", SqlDbType.VarChar, 100))
.Add(New SqlParameter("@codefamille", SqlDbType.VarChar, 30))
.Add(New SqlParameter("@sousfamille", SqlDbType.VarChar, 30))
.Add(New SqlParameter("@motdirecteur", SqlDbType.VarChar, 100))
.Add(New SqlParameter("@typeproduit", SqlDbType.SmallInt, 2))
.Add(New SqlParameter("@natureproduit", SqlDbType.Char, 1))
.Add(New SqlParameter("@unite", SqlDbType.VarChar, 30))
.Add(New SqlParameter("@coutfabric", SqlDbType.Float, 8))
.Add(New SqlParameter("@delai", SqlDbType.SmallInt, 2))
.Add(New SqlParameter("@seuil", SqlDbType.Float, 8))
.Add(New SqlParameter("@qteeco", SqlDbType.Float, 8))
End With
With cmd
.Parameters("@codearticle").Value = pcodearticle
.Parameters("@designation").Value = pdes
.Parameters("@codefamille").Value = pfam
.Parameters("@sousfamille").Value = pssfam
.Parameters("@motdirecteur").Value = pmotd
.Parameters("@typeproduit").Value = ptypeprod
.Parameters("@natureproduit").Value = pnature
.Parameters("@unite").Value = punite
.Parameters("@coutfabric").Value = pcoutfab
.Parameters("@delai").Value = pdelai
.Parameters("@seuil").Value = pseuil
.Parameters("@qteeco").Value = pqteeco
End With
cmd.CommandText = "insert into article(codearticle,designation1,codefamille,sousfamille,motdirecteur,typeproduit,artachoufab,unite,coutfabrication,delaiappromononiv,seuilminimum,quantiteeconomique) values (@codearticle, @designation, @codefamille, @sousfamille, @motdirecteur, @typeproduit, @natureproduit, @unite, @coutfabric, @delai, @seuil, @qteeco)"
cmd.ExecuteNonQuery()
ctn.Close() |
Partager