Discussion :

[fonduvb]

Bonjour,
Je créé une application en VB6 + DAO. J'ai une succession de recherches sur mes tables à l'aide de recordset. A chaque fois, j'ouvre et ferme ma database comme l'exemple ci-dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'on ouvre la base  **************
    Set MaBase = OpenDatabase("c:\Mabase.MDB")
    'on ouvre la table des comptes
    RefCompte = ("T_" & RefString & "_Operations")
    Set MonRecordSet = MaBase.OpenRecordset(RefCompte)
    Set MonRecordSet = MaBase.OpenRecordset("SELECT MAX(NumeroOps)AS MaxTrouve FROM " & RefCompte & "")
.............................
MonRecordSet.close
MaBase.close

Est-il possible de l'ouvrir et de ne la fermer qu'une fois ? Ca fonctionne bien comme ça mais ca me gêne quelque part de l'ouvrir et la fermer sans cesse.... J'ai essayé avec l'objet connexion d'ADO mais ca ne fonctionne évidemment pas !

Merci d'avance

[vb]

Bonjour,
Dans mes programmes je fais ceci...
1 Dans un module tu déclares

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Global Const MaBase = "XXXXXX.MDB" ' donner ici le nom ici de la base de données
Global Bd As Database 'variable database

Dans le load de l'ouverture de ta première feuille tu ouvres ta base...une fois pour toute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 ' Change le dossier de travail au dossier où l'application a été lancée.
    ChDir App.Path
    ChDrive App.Path
 
Set Bd = Workspaces(0).OpenDatabase(MaBase) 'Affecte à la variable globale
'(->"BD"="Variable DATABASE" déclarée dans le module )le chemin de la base de donnée(MaBase)

Tu crées tes recordset et tu les fermes à chaque fois bien sur.
Quant tu quittes ....tu fermes la base

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Bd.Close

VB

[fonduvb]

Merci VB c'est exactement ce qu'il me fallait.......

[ProgElecT]

Merci VB c'est exactement ce qu'il me fallait.......

Résolu ? bouton en bas de page de la discussion.

[fonduvb]

La solution fonctionne sur la feuille où se trouve la déclaration de la BD. Lorsque j'ouvre d'autres feuilles j'ai le message "objet non défini" et le chemin de la bd est vide... donc retour case départ...

[ProgElecT]

La solution fonctionne sur la feuille où se trouve la déclaration de la BD. Lorsque j'ouvre d'autres feuilles j'ai le message "objet non défini" et le chemin de la bd est vide... donc retour case départ...

Pas sur la feuille (Form) , dans le module.bas, comme te l'a signalé vb (message du 22/03/2010 14h09).

[vb]

Bonsoir
Oui comme le dis ProgElecT , ca fonctionne nickel...regarde un peu ton code !!analyse et corrige !!
Bonne programmation
vb