Discussion :

[AADIL]

j'ai crée une base de donnée sous access 2007 .. et je voulais l'utiliser a partir du vb6 .. mais on m'a envoyé un message "format de base de donnée non reconnu" .. j'ai cru qe c'ast un problee de compatibilité alors j'ai enregistré le fichier sous access 2002 2003 mais j'ai rencontré le meme probleme ... keske vous me conseillez ??

[AADIL]

Sayez .. j'ai trouvé la solution

[DAUDET78]

Sayez .. j'ai trouvé la solution

Ben, avec ces informations très complètes, ça aidera beaucoup quelqu'un qui a le même problème !

[AADIL]

déjà personne n'a essayé de m'aider c'est pour cela que je suis devenu méchante :p !! mais bon je vais partager le truc
j'ai assuré la liaison en utilisant les lignes de code suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private daoDB36 As DAO.Database
Private rs As DAO.Recordset
Dim sPath As String
 
Private Sub Form_Load()
sPath = _
"C:\Users\accent\Desktop\projet\maBD.mdb"
Set daoDB36 = DBEngine.OpenDatabase(sPath)
Set rs = daoDB36.OpenRecordset("Document")
Set Data1.Recordset = rs
 
End Sub

et ça a bien marché

[AADIL]

Maintenant j'ai rencontré un autre problème

Garce au contrôle DATA je peux facilement lire tous les enregistrements.

Mais je n'arrive pas a trouver la position actuelle ni a compter le nombre des enregistrements .

Je vais vous montrer mon code qui a fonctionné parfaitement quant j'ai fait la liaison seulement avec les propriétés du contrôle Data (Databasename).. mais maintenant que j'utilise les lignes déjà mentionnées dans le commentaire précédant çà marche plus

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'.....
 
With Data1.Recordset
    .MoveLast
    TotalRecords = .RecordCount
    .MoveFirst
End With
 
'.......
 
Data1.Caption = Data1.Recordset.AbsolutePosition + 1 & " sur " & ITotalRecords & " enregistrements"

pour le calcul des enregistrements .. ça donne toujours 1 meme si j'ai plusieurs enregistrements

[ProgElecT]

Salut
Ligne 11 du code en exemple

Code :

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

1
2
3
 
'Data1.Caption = Data1.Recordset.AbsolutePosition + 1 & " sur " & ITotalRecords & " enregistrements"
Data1.Caption = Data1.Recordset.AbsolutePosition + 1 & " sur " & TotalRecords & " enregistrements"

Mauvais copier/coller ou le I est de trop, variable TotalRecords

[AADIL]

Oui en fait c'est une faute de copier/coller. Elle provient du fait que je fais plusieurs tests sur deux codes pour trouver d'où vient le problème. Mais je vous assure que ce n'est pas le vrai problème

[ProgElecT]

Après le Set Data1.Recordset = rs(ligne 10 du code en exemple post 4)
et avant le With '..... End With (ligne 3 du code en exemple post 5) je tenterai bien un Data1.Refresh

[AADIL]

merci. il y a maintenant un avancement. le nombre d'enregitrement est devenu correcte. mais pour la position actuelle du control data (ligne 11 du code du poste 5), on continue à me lancer un erreur ( opération non autorisée pour ce type d'objet)