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
| Dim ref As SqlParameter
ref = New SqlParameter("@AR_Ref", SqlDbType.VarChar)
ref.Value = TextBox1.Text
Dim design As SqlParameter
design = New SqlParameter("@AR_Design", SqlDbType.VarChar)
design.Value = TextBox2.Text
Dim codefam As SqlParameter
codefam = New SqlParameter("@FA_CodeFamille", SqlDbType.VarChar)
codefam.Value = TextBox3.Text
Dim uniteven As SqlParameter
uniteven = New SqlParameter("@AR_UniteVen", SqlDbType.SmallInt)
uniteven.Value = TextBox4.Text
Dim stok As SqlParameter
stok = New SqlParameter("@AR_SuitStok", SqlDbType.SmallInt)
stok.Value = TextBox5.Text
Dim horstat As SqlParameter
horstat = New SqlParameter("@AR_HorStat", SqlDbType.SmallInt)
horstat.Value = TextBox6.Text
Dim frs As SqlParameter
frs = New SqlParameter("@FORNISSEUR", SqlDbType.VarChar)
frs.Value = TextBox7.Text
Dim date1 As SqlParameter
date1 = New SqlParameter("@Creation", SqlDbType.SmallDateTime)
date1.Value = TextBox8.Text
cmd = ccasa.CreateCommand()
cmd.CommandText =("insert into ARTICLECASA(AR_Ref,AR_Design,FA_CodeFamille,AR_UniteVen,AR_SuitStok,AR_HorStat,FORNISSEUR,Creation) values( {0},{1},{2},{3},{4},{5},{6},{7})" ;(ref.ParameterName ,design.ParameterName ,codefam.ParameterName,uniteven.ParameterName,stok.ParameterName,horstat.ParameterName ,frs.ParameterName,date1.ParameterName))
cmd.ExecuteNonQuery() |
Partager