Base de données en acces dynamique par module :) ( ado)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 709 fois - Téléchargée 45 fois

Contenu du snippet

Voila ! :) comme j'ai pas trouvé de méthode en parlant ici, et comme j'ai réussi à le faire, ben je vous le file si ca peut vous aider tant mieux :)
avec cette methode vous pouvez bouger le rep de l'appli, la base est toujours trouvée :)
De plus, UNE SEULE CONNEXION A LA BASE POUR TOUT LE PROG :)

Source / Exemple :


'dans un module

Public basecourante As String 'le chemin de la base de données
Public Cx As ADODB.Connection 'acces a la base
Public rs_jeu1 As ADODB.Recordset 'pour operer sur la base
Public sql_requete1 as string 'requete sql

'on peut initialiser les requetes dans le module ou dans le code des form

'init du chemin la base
basecourante = App.Path & "\bases\video1.mdb"

'init de la connexion et ouverture (regardez dans msdn pour les options précises)
Set Cx = New ADODB.Connection
Cx.Mode = adModeReadWrite 
Cx.Provider = "Microsoft.jet.OLEDB.4.0"
Cx.Open basecourante

'init du recordset
Set rs_jeu1 = New ADODB.Recordset
rs_jeu.CursorLocation = adUseClient

'init de la requete SQL
sql_requete1 = "SELECT * From table1 ORDER BY table1.champ1;"

'ensuite, quelque part dans le code avec disons une list
Private Sub Form_Load()
'on ouvre le recodset
'et on remplit la liste

rs_jeu1.Open sql_requete1, Cx, adOpenForwardOnly, adLockOptimistic
rs_jeu1.Properties.Refresh
       
    Me.liste1.AddItem ""
    While (Not rs_jeu1.EOF)
        liste1.AddItem rs_jeu1.Fields(0) 'je prend juste le premier champ
        rs_jeu1.MoveNext
    Wend
        rs_genres.Close
End Sub

Conclusion :


voila :)
si y a un pb, que mon code est faux, erroné, que vous l'aimez, ou que vous voulez des précisions, ben laissez moi un msg :)
en espérant que ca vous aide, @+

A voir également

Ajouter un commentaire

Commentaires

SenseiKakashi
Messages postés
35
Date d'inscription
mardi 15 février 2005
Statut
Membre
Dernière intervention
30 mars 2005
-
Alors là, c'est exactement ce qu'il me fallait, PARFAIT 10/10 !!!
Ca c'est du code utile !!
++
tapas64
Messages postés
33
Date d'inscription
vendredi 27 février 2004
Statut
Membre
Dernière intervention
14 novembre 2004
-
Super, c'est exactement ce qu'il me fallait.
Merci
soueldi
Messages postés
1
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
9 avril 2003
-
g un petit probleme:

La function "Set" genere une erreur lorsque celle ci ne se trouve pas dans une procédure:
Message: "Erreur de compilation Incorrect à l'exterieur d'une procédure".

Quelqu'un saurait comment résoudre ce problème?

Merci
oufben
Messages postés
17
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
2 mai 2007
1 -
Eskeu par hasard, tu pourrais me faire la meme chose, mais avec un datagrid ?:p
cs_jeanyves
Messages postés
57
Date d'inscription
samedi 30 mars 2002
Statut
Membre
Dernière intervention
24 mars 2003
-
Comme je me suis mis à ADO je glane toutes les infos sur ce sujet.
Merci pour l'exemple

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.