Fonction de connexion à SQL SERVER

Fonction de connexion à SQL SERVER - VB/VBA/VBS - Programmation

Marsh Posté le 04-05-2005 à 11:54:27    

Bonjour,
 
je vais commencer directement par mon code :
 
 
Voici ma fonction de connexion à SQL SERVER :

Code :
  1. Public Function Connexion() As Boolean
  3.                     Public Server As String
  4.                     Dim BDD As String
  5.                     Dim User As String
  6.                     Dim Password As String
  7.                     Dim CoBase As Connection
  8.                    
  9.                                         ' Paramètres de la base de données
  10.                     Server = "MILOUSE"
  11.                     BDD = "bibliotheque_vb"
  12.                     User = "***"
  13.                     Password = "***"
  14.                          
  15.                     ' Ecriture de la connexion
  16.                     Set CoBase = New Connection
  17.                     With CoBase
  18.                         .ConnectionTimeout = 25
  19.                         .Provider = "SQLOLEDB.1"
  20.                         .Properties("Data Source" ).Value = Server
  21.                         .Properties("Initial catalog" ).Value = BDD
  22.                         .Properties("User ID" ).Value = User
  23.                         .Properties("Password" ).Value = Password
  24.                         .Open
  25.                     End With
  26. End Function


 
Code de du bouton rechercher :

Code :
  1. Private Sub Command1_Click()
  2.     ' Recherche d'un auteur
  3.     Dim recherche As String
  4.    
  5.     If BoxRechercheAuteur.Text <> "" Then
  6.         recherche = BoxRechercheAuteur.Text
  7.         ' Appel de la fonction de recherche
  9.             Connexion
  10.                     Dim BibliBase As Command
  11.                     Dim nom As String
  12.                     Dim resultRech As Recordset
  14.                    
  15.                     ' Lancement de la connexion
  16.                     Set BibliBase = New Command
  17.                     BibliBase.ActiveConnection = CoBase
  18.                    
  19.                     ' Ecriture de la requete
  20.                     BibliBase.CommandText = "SELECT naissance FROM auteurs WHERE nom='riri';"
  21.                     ' Lancement de la requete
  22.                     Set resultRech = BibliBase.Execute
  23.                     ' Affectation des résultats de la requete aux Box
  24.                     BoxNaissanceAuteur.Text = resultRech!naissance
  25.                     ' Fermeture de la connexion
  26.                     Set BibliBase = Nothing
  27.                     CoBase.Close
  28.                     Set CoBase = Nothing
  29.        
  30.                    
  31.     Else
  32.         MsgBox ("Veuillez insérer le nom à rechercher" ), , "Attention"
  33.     End If
  34. 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 :jap:

Reply

Marsh Posté le 04-05-2005 à 11:54:27   

Reply

Marsh Posté le 04-05-2005 à 12:14:37    

J'ai crée ce module pour me faciliter les requetes...
Voici le code... en espérant que ca te soit utile...
 

Code :
  1. Module Connexion
  2.     '  Déclaration Objet Connexion
  3.     Public ObjetConnection As SqlClient.SqlConnection
  4.     ' Déclaration Objet Commande
  5.     Public ObjetCommand As SqlClient.SqlCommand
  6.     '  Déclaration Objet DataAdapter
  7.     Public ObjetDataAdapter As SqlClient.SqlDataAdapter
  8.     ' Déclaration Objet DataSet
  9.     Public ObjetDataSet As New DataSet
  10.     'String contenant la 'Requête SQL'
  12.     Public ObjetDataTable As DataTable
  13.     ' Déclaration Objet DataRow (ligne)
  14.     Public ObjetDataRow As DataRow
  16.     Public strConn As String
  18.     Public ObjetCommandBuilder As SqlClient.SqlCommandBuilder
  20.     Public Function ConnexionSQL(ByVal requete As String, ByVal table As String) As DataTable
  22.         ObjetDataSet = New DataSet
  23.         'Ouverture
  24.         'Initialisation de la chaîne de paramètres pour la connexion
  25.         strConn = "Server=STAGE;Initial Catalog=CPAG;uid=Administrateur;password=*****"
  27.         'Instanciation d'un Objet Connexion
  28.         ObjetConnection = New SqlClient.SqlConnection
  29.         'Donner à la propriété ConnectionString les paramètres de connexion
  30.         ObjetConnection.ConnectionString = strConn
  31.         'Ouvrir la connexion
  32.         ObjetConnection.Open()
  33.         'Instancer un objet Commande
  34.         ObjetCommand = New SqlClient.SqlCommand(requete)
  35.         'Instancer un objet Adapter
  36.         ObjetDataAdapter = New SqlClient.SqlDataAdapter(ObjetCommand)
  37.         'initialiser l'objet Command
  38.         ObjetCommand.Connection() = ObjetConnection
  40.         'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
  41.         ObjetDataAdapter.Fill(ObjetDataSet, table)
  43.         'Mettre dans un Objet DataTable une table du DataSet
  44.         ConnexionSQL = ObjetDataSet.Tables(table)
  45.     End Function
  47.     Public Function FermetureSQL()
  48.         ObjetConnection.Close()
  49.     End Function
  50. End Module


Message édité par Arwenalia le 04-05-2005 à 12:15:57
Reply

Marsh Posté le 04-05-2005 à 13:49:30    

Sinan a écrit :

Bonjour,
 
je vais commencer directement par mon code :
.
.
.
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 :jap:


Salut,
 
Alors il y a plusieurs choses à considérer... Premièrement, ce n'est pas forcément très utile d'ouvrir et fermer la connexion à ta DB à chaque requête. Il serait plus logique de l'ouvrir au début de ton programme et de fermer la connexion à la fin de ton programme. Ca c'est une chose.
 
Ensuite, c'est normal que ton code de recherche ne connaisse pas la variable coBase puisqu'elle est déclarée dans le code d'une autre fonction! Il te faut réviser la question de la portée des variables :)
 
Pour ce qui est du code que tu as écrit pour le bouton rechercher... Hum, comment dire... Ne déclare jamais des variables au milieu de ton code, déclare les toujours au début de ta fonction/procédure. Et ceci juste pour plus de clarté dans la relecture de ton code... Et puis si VB te laisse le faire, ce n'est pas le cas de tout les autres langages. Donc prend tout de suite des bonnes habitudes!
 
Pour revenir à ton problème principal qui est la connexion à ta DB. Ce que je te propose c'est soit de définir une classe "connexion" que tu instancies à chaque fois que tu en as besoin. Comme ça tu auras accès à ta connexion... Autrement, ce que tu peux faire c'est de définir comme "public" à tout ton projet la variable de connexion. Et le tour est joué.
 
Mais dans les deux cas, je te propose tout de même de tenir compte de ce que je disais au début de mon message: ouvre une fois ta base au début de ton programme, ferme la une fois à la fin.

Reply

Marsh Posté le 04-05-2005 à 16:06:59    

Très bien, merci gfa pour ton message :jap:
 
Je vais tenter d'ouvrir et de fermer la base à l'ouverture et à la fermeture du programme.
Mais seulement, je ne comprend pas où, dans mon code, je peux faire ça, vu que tout est évenementiel.
 
Sinon, suffit t'il que je déclare mes variables et fonctions en 'public' pour que je n'ai pas de problèmes lors de l'appel de mes fonctions sql ?

Reply

Marsh Posté le 04-05-2005 à 16:24:25    

Sinan a écrit :

Très bien, merci gfa pour ton message :jap:
 
Je vais tenter d'ouvrir et de fermer la base à l'ouverture et à la fermeture du programme.
Mais seulement, je ne comprend pas où, dans mon code, je peux faire ça, vu que tout est évenementiel.
 
Sinon, suffit t'il que je déclare mes variables et fonctions en 'public' pour que je n'ai pas de problèmes lors de l'appel de mes fonctions sql ?


C'est pas parce que c'est de l'événementiel que ton programme n'as pas un début et une fin :) Il y a toujours un début et une fin :)
 
Tu as un événement Load dans les forms... Et quand tu ouvres le premier écran de ton programme, cet événement est forcément lancé... On peut considérer que c'est le début de ton programme. De la même manière, lorsque ton utilisateur ferme la première fenêtre de ton appli (celle où tu as mis le menu bien entendu...), l'événement Close est lancé... On peut donc considérer que c'est la fin de ton programme...
 
La déclaration de toutes tes variables et fonctions en "public" n'est pas du tout une bonne solution. Par contre, tu peux déclarer ta variable "coBase" en "public". La fonction ouvrant la connexion utilise cette variable mais elle est uniquement visible dans la form qui l'utilise. Si tu choisis d'ouvrir ta DB au début de ton programme et de la fermer à la fin, il n'y a que la variable connexion qui doit être publique...
 
Voilà, j'espère que cela va t'aider... Ah oui... Regarde peut-être un peu de doc sur la programmation... Tu m'as l'air d'être un peu perdu :)
 
A+

Reply

Marsh Posté le 04-05-2005 à 18:07:55    

oui j'y connais pas grand chose en VB, j'y suis depuis hier :D
 
Ca roule merci :jap:
 
Mon module :

Code :
  1. '--------------------------------------------------------------------
  2. '---------------------- Variables publiques  ------------------------
  3. '--------------------------------------------------------------------
  5. Public CoBase As Connection
  6. Public BibliBase As Command
  9. '--------------------------------------------------------------------
  10. '---------------- Fonction de connexion à SQL SERVER  ---------------
  11. '--------------------------------------------------------------------
  14. Public Function connexionSQL() As Boolean
  15.     Dim Server As String
  16.     Dim BDD As String
  17.     Dim User As String
  18.     Dim Password As String
  19.    
  20.     ' Paramètres de la base de données
  21.     Server = "MILOUSE"
  22.     BDD = "bibliotheque_vb"
  23.     User = "***"
  24.     Password = "***"
  25.          
  26.     ' Ecriture de la connexion
  27.     Set CoBase = New Connection
  28.     With CoBase
  29.         .ConnectionTimeout = 25
  30.         .Provider = "SQLOLEDB.1"
  31.         .Properties("Data Source" ).Value = Server
  32.         .Properties("Initial catalog" ).Value = BDD
  33.         .Properties("User ID" ).Value = User
  34.         .Properties("Password" ).Value = Password
  35.         .Open
  36.     End With
  37.         ' Lancement de la connexion
  38.     Set BibliBase = New Command
  39.     BibliBase.ActiveConnection = CoBase
  40. End Function
  43. '--------------------------------------------------------------------
  44. '--------------- Fonction deconnexion à SQL SERVER  -----------------
  45. '--------------------------------------------------------------------
  47. Public Function deconnexionSQL() As Boolean
  48.     Set BibliBase = Nothing
  49.     CoBase.Close
  50.     Set CoBase = Nothing
  51. End Function


 
Mon form :
 

Code :
  1. Option Explicit
  4. Private Sub Form_Load()
  5.     connexionSQL
  6. End Sub
  8. Private Sub Form_Unload(Cancel As Integer)
  9.     deconnexionSQL
  10. End Sub
  12. Private Sub CancelButton_Click()
  13.     ' Fermeture de la fenêtre
  14.     Unload ConsultOuModif_auteur
  15. End Sub
  17. Private Sub Command1_Click()
  18.      ' Recherche d'un auteur
  19.          Dim recherche As String
  20.          Dim nom As String
  21.          Dim resultRech As Recordset
  22.        
  23.          If BoxRechercheAuteur.Text <> "" Then
  24.              recherche = BoxRechercheAuteur.Text
  25.              ' Appel de la fonction de recherche
  28.                 ' Ecriture de la requete
  29.                 BibliBase.CommandText = "SELECT naissance FROM auteurs WHERE nom='riri';"
  30.                 ' Lancement de la requete
  31.                 Set resultRech = BibliBase.Execute
  32.                 ' Affectation des résultats de la requete aux Box
  33.                 BoxNaissanceAuteur.Text = resultRech!naissance
  34.    
  35.      Else
  36.          MsgBox ("Veuillez insérer le nom à rechercher" ), , "Attention"
  37.      End If
  38. End Sub


Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed