Procedure stoké
sws2007
Messages postés
79
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
19 janvier 2009
-
21 juin 2008 à 10:16
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 - 21 juin 2008 à 11:12
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 - 21 juin 2008 à 11:12
A voir également:
- Procedure stoké
- Vba procédure trop grande - Forum VBA Office (Excel, Word ...)
- Procedure stocke - Conseils pratiques -SQL
- Vb6 Procédure trop grande !!! ✓ - Forum Visual Basic
- Instruction incorrecte à l'extérieur d'une procédure ✓ - Forum Visual Basic 6
- CHEMIN et CONCATENATION [Instruction incorrecte à l'extérieur d'une procédure] - Forum Visual Basic
2 réponses
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
21 juin 2008 à 11:11
21 juin 2008 à 11:11
Bonjour, regarde l'exemple ci-dessous.
Using con
As
New OracleClient.OracleConnection(
"taChaineDeConnexion")
Using cmd
As
New OracleClient.OracleCommand()cmd.Connection = con
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText =
"NomDeTaProcedureStockee"
'si select.
Dim odr
As OracleClient.OracleDataReader = cmd.ExecuteReader()
'Si ta SP contient 2 paramŠtres 1 Nom et l'autre DateAchat par exemple.cmd.Parameters.Add(
":Nom", OracleClient.OracleType.VarChar, 50).Value =
"TonNom"cmd.Parameters.Add(
":DateAchat", OracleClient.OracleType.DateTime).Value = DateTime.Today
While odr.Read()
Dim c1
As
String = odr.GetString(0)
'1ière colonne retournée par le select de la SP.
Dim c2
As
Decimal = odr.GetOracleNumber(1).Value
'2nd colonne retournée.
TonListBox.Items.Add(C1 & " " & c2.ToString)
'etc....
End
Whileodr.Close()
End
Using
End
Using
Using con
As
New OracleClient.OracleConnection(
"taChaineDeConnexion")
Using cmd
As
New OracleClient.OracleCommand()cmd.Connection = con
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText =
"NomDeTaProcedureStockee"
'si select.
Dim odr
As OracleClient.OracleDataReader = cmd.ExecuteReader()
'Si ta SP contient 2 paramŠtres 1 Nom et l'autre DateAchat par exemple.cmd.Parameters.Add(
":Nom", OracleClient.OracleType.VarChar, 50).Value =
"TonNom"cmd.Parameters.Add(
":DateAchat", OracleClient.OracleType.DateTime).Value = DateTime.Today
While odr.Read()
Dim c1
As
String = odr.GetString(0)
'1ière colonne retournée par le select de la SP.
Dim c2
As
Decimal = odr.GetOracleNumber(1).Value
'2nd colonne retournée.
TonListBox.Items.Add(C1 & " " & c2.ToString)
'etc....
End
Whileodr.Close()
End
Using
End
Using
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
21 juin 2008 à 11:12
21 juin 2008 à 11:12
Ah oui j'ai oublié l'ouverture de la connexion avec
con.open() avant la ligne "cmd.Connection = con"
++
con.open() avant la ligne "cmd.Connection = con"
++
