1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Try
command_new()
command.Connection = getConnection()
command.CommandText = "nom_pro"
command.CommandType = CommandType.StoredProcedure
parametre = command.Parameters
parametre.Add("Code_1", OracleType.VarChar)
parametre(0).Value = "sequence1.nextval"
parametre.Add("Code_2", OracleType.VarChar)
parametre(1).Value = var2
parametre.Add("Code_3", OracleType.VarChar)
parametre(2).Value = var3
parametre.Add("Code_4", OracleType.VarChar)
parametre(3).Value = var4
parametre.Add("Code_5", OracleType.VarChar)
parametre(4).Value = var5
parametre.Add("Code_6", OracleType.VarChar)
parametre(5).Value = var6
getcommand().ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message )
End Try |
Partager