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