Connexion entre BDD Access et Excel(VBA) Résolu

Question

Bonjour, 
Dans le cadre de mon BTS SIO où je suis en 1re année je dois créer une base de données et des formulaires sous excel pour parcourir la base de données et à termes créer des graphiques etc.. Et maintenant que j'ai créé mes différents USERFORM je bute sur la connection entre mon code VB dans l'userform et ma base de données ACCESS. D'habitude je travaille sous visual studio en VB6 et là le code change ça me perturbe...  
J'aimerais savoir si le code de connection devra etre dans toutes les procédures "Private Sub[...]End Sub" car je vais faire le liens entre mon code et Excel pour beaucoup de choses... appuyer sur diff boutons, liste déroulantes, redirection.. etc 

J'ai eu beau chercher sur le net, je n'ai pas trouvé de solution.  
Si une âme charitable en a une, je luis serais éternellement reconnaissant. 
  
Par avance,  
Merci.  
Adresse supprimée par Modération CCM

f894009 · Accepted Answer

Re,

Modifiee pour Userform3

https://www.cjoint.com/?BFepLHaSjD3

A+

f894009 · Answer

Bonjour,
Quelle type de connexion faites vous: ADO,DAO.......
Il y a quelques differences de definition de variable entre VBA et VB6. L'utilisation reste la meme.

A+

Bull_0125 · Answer

Tout d'abord merci pour la rapidité de votre réponse !

Habituellement je procède comme cela :
Imports.System.Data.OleDb

Dim cnn as new OledbConnection 'Connexion a une bdd
Dim cmd as new oledbCommand 'Faire des requêtes sur une bdd
Dim drr as oledbdatareader 'Récupéré le jeu d'enregistrement de la requête
Dim existeenreg as boolean 'Pour tester si il y a un enregistrement

cnn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="MA_BDD"
cnn.open()

cmd.commandText="Ma requete SQL"
cmd.Connection.cnn 'Pour situer ma Bdd

drr = cmd.ExecuteReader() 'Executer la requête et récupéré en mémoire
existeenreg = drr.read

while existeenreg = TRUE
blablabla..
End While

drr.close()
cnn.close()


Donc je pense rester sur une connexion ADO.net

Encore Merci de prendre de votre temps pour moi :)
Cordialement 
Lilian.

f894009 · Answer

Re, 

Ce n'est pas du VB6, mais du VB.net et la il y a un peu plus de differences avec du VBA. je vous cherche un exemple dans mes archives. 

A+

Bull_0125 · Answer

Re, 

Effectivement c'est du VB.net ;) 
Merci beaucoup

f894009 · Answer

Re, 

un exemple simple de connexion ADO 

UserForm3: un exemple de connexion DAO (ne marche pas avec la base fourni, changez le chemin et le nom de table,etc...) 

https://www.cjoint.com/?BFeluZurenz 

Bon courage

Bull_0125 · Answer

Re,

Merci j'essaye tout de suite ;)

Bull_0125 · Answer

Re, 

Tout cela est très bien expliqué mais je ne comprend pas plusieurs choses... Et j'ai quelques questions!

Première Question : J'utilise Microsoft Access 2010 donc le provider reste : Microsoft.ACE.OLEDB.12.0 ou il a évolué ?

Deuxième question : Que signifie le TBon_RST.Fields(4) dans le userform1

Pour ce qui est des difficultés de compréhension c'est dans l'userform3 car je ne comprend pas le liens vers la fiche méthode  et je ne comprend pas dans le DO ce que représente le feuille.range( "A" & i )=enregis("type_bon") Je me doute que A représente la colonne et i le nombre passage dans la boucle.. Mais vu que je ne peux pas visualiser ce que fait ce userform3 j'ai un peu de mal a comprendre cela ...

Merci d'avance
@+
Lilian

Bull_0125 · Answer

Re, 

Et dire que je galère dessus depuis quatre jours :)

A+

Bull_0125 · Answer

Re,

' Initialisation du Formulaire
Private Sub UserForm_Initialize()
    RdoNon = True
    RdoRT = True

    Set Mabase = CreateObject("ADODB.Connection")
    Set TBon_RST = CreateObject("ADODB.Recordset")
    'Définition du Provider (outils de développement de bdd)
    Mabase.Provider = "Microsoft.ACE.OLEDB.14.0"
    Mabase.Open "data source =C:\TEST\AccidentsAT.accdb"

    Me.BtnValider.Enabled = True
    Me.BtnQuitt.Enabled = True
    Me.BtnValidAjoutActions.Enabled = True
    Me.BtnValidAjoutAnalyses.Enabled = True

Lorsque je tape cela un message d'erreur apparaît...
"Erreur d'éxécution '3706': Provider Cannot be found. It may not be properly installed"
De même que si je met "Microsoft.ACE.OLEDB.12.0"

Si je met "Microsoft.jet.OLEDB.4.0" un autre message d'erreur apparaît...
"Erreur d'éxécution '-2147468259(80004005)':
Format de base de données('C:\TEST\AccidentsAT.accdb') non reconnu

Help me (encore une fois)
@+

Bull_0125 · Answer

Re,

Je viens de passé par un énorme systeme D :) ! Je m'explique... 
Je me suis dit que vu que votre base de donnée marché mais pas la mienne donc j'ai fait une copie de votre fichier et à l'intérieur j'ai importer ma base de données, j'ai renommé le fichier et enregistrer sous Access 2003 .mdb donc dans le code j'ai laissé le "Microsoft.jet.OLEDB.4.0" avec le lien vers ma base ! Et là SURPRISE :D ça à l'air de marché ... :) 
Je vous tient au courant
Merci pour tout

Bull_0125 · Answer

Re,

J'aurai encore deux questions si sa vous interesse :) (J'espère d'ailleurs):

Première question:
 A quoi sert nom = "R"  

Ensuite Deuxième question : 
Lorsque j'appuie sur un bouton je voudrai que ça effectue ma requête SQL j'ai tapé ceci dans ma procédure du bouton_click():

TBon_RST.Open "Select nom_centre from Centre", Mabase
    existeenreg = TBon_RST.EOF
    
    While existeenreg = False
    x = TBon_RST.Fields("nom_centre")
    CboCentre.AddItem "x"
    TBon_RST.movement
    Wend

Mais un message d'erreur s'affiche : Erreur d'éxécution '424' : Objet Requis

Help me je patoge dans la semoule
A+

f894009 · Answer

Re,

Première question:
A quoi sert nom = "R"

  'ouverture avec requete et variable
  nom = "R"
  TBon_RST.Open "select * from BdD_Bon a where a.Redacteur='" & nom & "'", Mabase

Je recupere les enregistrements ayant "R" dans le champ Redacteur. Cette variable nom peut etre ecrite par programme.


Ensuite Deuxième question : 


TBon_RST.movement----------> TBon_RST.MoveNext

Code modifie

    TBon_RST.Open "Select nom_centre from Centre", Mabase
    
    While TBon_RST.EOF = False
      CboCentre.AddItem TBon_RST.Fields("nom_centre")
      TBon_RST.MoveNext
    Wend

Bon courage

Bull_0125 · Answer

Bonjour,

Encore une fois merci ! Je ne sais pas ce que je ferai sans vous !
Comme je l'ai dit dans l'autre sujet je veux faire des listes déroulantes restreinte pour évité les erreurs des utilisateurs .. Je pense procédé en faisant des If mais bon j'ai du boulot :)

f894009 · Answer

Re,

Un avant gout de ce qui vous attend.....

https://www.cjoint.com/?BFgug5Xlvzy

Je continuerai demain (pour le nom manager, il faut cogiter un peu).
Les equipes sont definies a quel endroit?
Les champs RT_INT, reserves et actions (case a cocher) servent a quoi?

A demain

Bull_0125 · Answer

Bonjour, Bonjour :)

Le nom Manager est une liste déroulante de la table MANAGERS(num_manager,nom_manager) je l'ai déja créer ;) 

Le champ RT_INT sert a savoir si c'est un Intérim, Si c'est un Intérim il sera cocher!
Le champ reserves sert à savoir si son accidents est avéré ou non, il y a un droit de reserves pour dire par exemple qu'il la fait exprès.. etc
Le champ Actions sert a dire si oui ou non il y a des actions pour cet accident car pour chaque accident il y a des actions qui viendront après pour ne plus qu'il y est cet accident ;)

A bientôt

Bull_0125 · Answer

Re,

Merci beaucoup pour toutes ces belles lignes :) Tout fonctionne comme je l'avait souhaitées, il ne me reste qu'a créer la procédure du bouton Valider :)

A+

Connexion entre BDD Access et Excel(VBA)

17 réponses

Discussions similaires

Newsletters