Connexion à une base SQL
arkele
Messages postés
20
Date d'inscription
samedi 19 juillet 2003
Statut
Membre
Dernière intervention
28 juin 2005
-
27 juin 2005 à 08:14
cs_Nurgle Messages postés 1642 Date d'inscription samedi 6 novembre 2004 Statut Membre Dernière intervention 28 avril 2011 - 30 juin 2005 à 19:54
cs_Nurgle Messages postés 1642 Date d'inscription samedi 6 novembre 2004 Statut Membre Dernière intervention 28 avril 2011 - 30 juin 2005 à 19:54
A voir également:
- Connexion à une base SQL
- Connexion base de données - Conseils pratiques -PHP
- Foreach sql - Forum SQL
- Option base 1 vba ✓ - Forum Visual Basic
- Base de données e-commerce - Forum PHP
- Decimal sql - Forum SQL
3 réponses
IvanTheBlackDog
Messages postés
39
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
31 juillet 2006
27 juin 2005 à 16:51
27 juin 2005 à 16:51
Public
Function SQL_Reader(
ByVal Req_SQL
As
String)
As SqlDataReader
Dim oConn
As
New SqlConnection(ConfigurationSettings.AppSettings("SqlServer"))
oConn.Open()
Dim myCommand
As SqlCommand =
New SqlCommand(Req_SQL, oConn)
Dim monSQL_Reader
As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
SQL_Reader = monSQL_Reader
oConn.Close
Set oConn=Nothing
End
Function
je pense que ça devrait aller.
______________________
Le Black Dog c'est moi
Function SQL_Reader(
ByVal Req_SQL
As
String)
As SqlDataReader
Dim oConn
As
New SqlConnection(ConfigurationSettings.AppSettings("SqlServer"))
oConn.Open()
Dim myCommand
As SqlCommand =
New SqlCommand(Req_SQL, oConn)
Dim monSQL_Reader
As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
SQL_Reader = monSQL_Reader
oConn.Close
Set oConn=Nothing
End
Function
je pense que ça devrait aller.
______________________
Le Black Dog c'est moi
arkele
Messages postés
20
Date d'inscription
samedi 19 juillet 2003
Statut
Membre
Dernière intervention
28 juin 2005
28 juin 2005 à 08:19
28 juin 2005 à 08:19
c'est pas possible que je le ferme dans ma fonction car je ne pourrai plus utiliser le reader par la suite. si je mets oConn.close dans cette fonction, il va m'ouvrir ma connexion, créer le reader et me fermer ma connexion ce qui va m'empêcher de pouvoir utiliser mon reader. J'ai essayé et le message d'erreur était : "tentative non valide de lecture...".
une autre idée peut être?
une autre idée peut être?
cs_Nurgle
Messages postés
1642
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
28 avril 2011
4
30 juin 2005 à 19:54
30 juin 2005 à 19:54
Salut,
Dans ce cas là tu dois créer une classe :
Public Class SQL_Reader
Private
oConn
As
New SqlConnection(ConfigurationSettings.AppSettings("SqlServer"))
Public Sub New()
oConn.Open
End Sub
Public Sub Finalize()
oConn.Close
oConn = Nothing
End Sub
Public
Function Read(
ByVal Req_SQL
As
String)
As SqlDataReader
Dim oConn
As
New SqlConnection(ConfigurationSettings.AppSettings("SqlServer"))
oConn.Open()
Dim myCommand
As SqlCommand =
New SqlCommand(Req_SQL, oConn)
Dim monSQL_Reader
As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
Read = monSQL_Reader
End
Function
End Class
Et tu l'utilise comme ça :
Dim machin As SQL_Reader 'tu déclenche l'énènement New()
Dim truc As DataReader = machin.Read
' là tu mets tout le traitement qui a besoin que la connexion soit ouverte
machin = Nothing ' tu déclenche l'évènement Finalize() et ça ferme la connexion
Nurgle
C'est une grande folie que de vouloir être sage tout seul !
Dans ce cas là tu dois créer une classe :
Public Class SQL_Reader
Private
oConn
As
New SqlConnection(ConfigurationSettings.AppSettings("SqlServer"))
Public Sub New()
oConn.Open
End Sub
Public Sub Finalize()
oConn.Close
oConn = Nothing
End Sub
Public
Function Read(
ByVal Req_SQL
As
String)
As SqlDataReader
Dim oConn
As
New SqlConnection(ConfigurationSettings.AppSettings("SqlServer"))
oConn.Open()
Dim myCommand
As SqlCommand =
New SqlCommand(Req_SQL, oConn)
Dim monSQL_Reader
As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
Read = monSQL_Reader
End
Function
End Class
Et tu l'utilise comme ça :
Dim machin As SQL_Reader 'tu déclenche l'énènement New()
Dim truc As DataReader = machin.Read
' là tu mets tout le traitement qui a besoin que la connexion soit ouverte
machin = Nothing ' tu déclenche l'évènement Finalize() et ça ferme la connexion
Nurgle
C'est une grande folie que de vouloir être sage tout seul !