1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Dim MyConnection As SqlConnection = New SqlConnection("Data Source=BAJBOUJ-PC;Initial Catalog=Planification;Integrated Security=True")
Dim MyCommand As SqlCommand = MyConnection.CreateCommand
MyCommand.CommandText = "UPDATE stock SET StockMin = @Smin ,StockMax = @Smax ,StockAlerte = @SAlr " & _
"WHERE IdF = (select IdF from Franchisé where Franchisé.IdF = Stock.IdF and NomF =@NomFrn)"
MyCommand.Parameters.Add("@Smin", SqlDbType.Int)
MyCommand.Parameters.Add("@Smax", SqlDbType.Int)
MyCommand.Parameters.Add("@SAlr", SqlDbType.Int)
MyCommand.Parameters.Add("@NomFrn", SqlDbType.VarChar)
MyCommand.Parameters("@Smin").Value = Smin
MyCommand.Parameters("@Smax").Value = Smax
MyCommand.Parameters("@SAlr").Value = SAlr
MyCommand.Parameters("@NomFrn").Value = NomFrn
MyConnection.Open()
MyCommand.ExecuteNonQuery()
MyConnection.Close() |