Ado gérer 2 table avec ACCESSRésolu

Question

Salut...

J'utilse ADO et VB6 et ACCESS

J'ai un petit probl&#232;me...

Bon je ne suis m&#234;me pas certain que ca se fais... Surement mais si ca fonctionne je n'y arrive pas....

Je veux lors du Load de ma Form ouvrir 2 Tables...

Voici mon code que j'utilise pour ouvrir qu'une seul Table

'D&#233;claration des deux variables pour la connexion
Dim Connection As New ADODB.Connection
Dim BD As New ADODB.Recordset
Dim BD2 As New ADODB.Recordset
Dim BDDossier As New ADODB.Recordset

'Dim BDTravauxenCours2005 As New ADODB.Recordset


Private Sub Form_Load()
   
    'Set Connection = New ADODB.Connection
       
    'Type de bases de donn&#233;e pour la connexion (Pour Acces 2000 (4.0), pour la version 95 et 97 (3.51)
    Connection.Provider = "Microsoft.jet.OLEDB.4.0"
    'Chemin de la base de donn&#233;e (APP.PATH permet de ce mettre dans le chemin
    'courant la ou ce trouve le projet)- Paramettrage de la chaine de connection
    Connection.ConnectionString = App.Path & "\LISTE_DE_JOBS.mdb"
    'Ouverture de la connection
    Connection.Open
    'Ouverture de la requ&#234;te sql dans le recordset
    BD.Open "Select * from GES_TEMPS", Connection, adOpenDynamic, adLockOptimistic
        
    Me.Show
    
    txtRecherche.SetFocus
   
End Sub


J'ai essay&#233; de rajouter cette ligne en d&#233;clarant la variable BDDossier (Dim BDDossier As New ADODB.Recordset)

BDDossier.Open "Select * from TRAVAUX EN COURS 2005", Connection, adOpenDynamic, adLockOptimistic


Mais ca plante...

Comment je fais pour r&#233;gler mon probl&#232;me ???


Merci d'avance


D&#233;sol&#233; pour le Font... Je ne sais pas pourquoi mais il n'a pas d'l'air &#224; faire les espaces....

cs_wape · Accepted Answer

Essaye &#233;ventuellement avec :

BDDossier.Open "Select * from [TRAVAUX EN COURS 2005]", Connection, adOpenDynamic, adLockOptimistic

wape

Ado gérer 2 table avec ACCESS

1 réponse

Discussions similaires