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() |
