Bonjour,
je vais commencer directement par mon code :
Voici ma fonction de connexion à SQL SERVER :
Code :
- Public Function Connexion() As Boolean
- Public Server As String
- Dim BDD As String
- Dim User As String
- Dim Password As String
- Dim CoBase As Connection
-
- ' Paramètres de la base de données
- Server = "MILOUSE"
- BDD = "bibliotheque_vb"
- User = "***"
- Password = "***"
-
- ' Ecriture de la connexion
- Set CoBase = New Connection
- With CoBase
- .ConnectionTimeout = 25
- .Provider = "SQLOLEDB.1"
- .Properties("Data Source" ).Value = Server
- .Properties("Initial catalog" ).Value = BDD
- .Properties("User ID" ).Value = User
- .Properties("Password" ).Value = Password
- .Open
- End With
- End Function
|
Code de du bouton rechercher :
Code :
- Private Sub Command1_Click()
- ' Recherche d'un auteur
- Dim recherche As String
-
- If BoxRechercheAuteur.Text <> "" Then
- recherche = BoxRechercheAuteur.Text
- ' Appel de la fonction de recherche
- Connexion
- Dim BibliBase As Command
- Dim nom As String
- Dim resultRech As Recordset
-
- ' Lancement de la connexion
- Set BibliBase = New Command
- BibliBase.ActiveConnection = CoBase
-
- ' Ecriture de la requete
- BibliBase.CommandText = "SELECT naissance FROM auteurs WHERE nom='riri';"
- ' Lancement de la requete
- Set resultRech = BibliBase.Execute
- ' Affectation des résultats de la requete aux Box
- BoxNaissanceAuteur.Text = resultRech!naissance
- ' Fermeture de la connexion
- Set BibliBase = Nothing
- CoBase.Close
- Set CoBase = Nothing
-
-
- Else
- MsgBox ("Veuillez insérer le nom à rechercher" ), , "Attention"
- End If
- End Sub
|
Si je met le code de la fonction directement dans mon sub, je n'ai aucun soucis, je récupére bien mes variables de la requête.
Mais je cherche à ne pas réecrire le code de connexion à chaque fois que j'ai besoin de faire un requête. Donc j'ai écrit la fonction de connexion, mais le script ne retrouve pas la variable CoBase. Comment puis je faire pour créer cette fonction de connexion qui sera appelée à chaque fois que j'ai besoin de faire une requete ? Faire une fonction "générique" de connexion.
je veux faire un espece d'include de l'ouverture et de la fermeture de connexion.
Quelqu'un a une idée ?
Merci