Discussion :

[jeanmy]

Bonjour à tous,

J'ai un programme en VB6 qui utilise une basse de données Acces 2007.

Actuellement pour accéder à ma base, j'utilise la fonction Opendatabase

Code :

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

1
2
3
4
5
6
7
8
 
    Call FileCopy(GLB_sCheminBase, GLB_sCheminBackup & "\" + sNomBackup)
    ' ouverture de la base toto.MDB en globale en mode partagé et lecture/écriture
    Set GLB_dbtoto = OpenDatabase(GLB_sCheminBase, False, False)
 
   avec 
            GLB_sCheminBase = "E:\toto.mdb"
            Public GLB_dbToto  as Database

Puis dans le programme j'utilise la foncftion GLB_dbtoto.OpenRecordset("GRADES",dbOpenTable)

J'ai convertir cette base en acces 2013.

Mes questions

Puis-je ouvrir avec VB6 ma base Acces 2013 ?
Si oui comment ?
Suis-je obliger d'installé acces 2013 sur mon pc ?

[jeanmy]

Pour mes essais, j'ai fait un mini programme

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Private Sub cAcces2013_Click()
'****************************************************
'**   Lecture de d'une Base au format acces 2013
'****************************************************
 
Dim DB As Database
Dim rdPalettes As Recordset
 
Set GLB_dbGIRAUD = OpenDatabase("D:\toto\toto.accdb", False, False)
Set rdProduction = GLB_dbGIRAUD.OpenRecordset("PRODUCTION", dbOpenTable)
 
'****************************************************
'**  Aficchage du resultat dans un Label
'****************************************************
Label1.Caption = "Lecture avec Acces 2013 : Secheur <== " & rdProduction("SECHEUR")
 
End Sub
Private Sub cAcces97_Click()
'****************************************************
'**   Lecture de d'une Base au format acces 97
'****************************************************
 
Dim DB As Database
Dim rdPalettes As Recordset
 
Set GLB_dbGIRAUD = OpenDatabase("D:\toto\toto.mdb", False, False)
Set rdProduction = GLB_dbGIRAUD.OpenRecordset("PRODUCTION", dbOpenTable)
 
'****************************************************
'**  Aficchage du resultat dans un Label
'****************************************************
Label1.Caption = "Lecture avec Acces 97 : Secheur <== " & rdProduction("SECHEUR")
 
End Sub

Pas de problème pour accéder à basse acces 97.

Mais j'ai ce message d'erreur "Erreur d'exécution '3343' : Format de base de données ('D:\toto\toto.accbd') non reconnu."
Sur mon Pc, je n'ai pas acces 2013. Mais j'ai installé AccessDatabaseEngine.exe.

[jeanmy]

J'ai trouvé la solution a mon problème :

Il faut installé le pilote office.
Voici le Lien

Puis aller dans Projet => réferences ...
a) Désélectionner Microsoft DAO 3.6 object library
b) Sélectionner Microsoft Office 14 access database engine object library

Voici mon code programme corrigé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
'============================================================================
Private Sub cAcces2013_Click()
'****************************************************
'**   Lecture de d'une Base au format acces 2013
'**
'**
'**    ==> Deselect Microsoft DAO 3.6 object library
'**    ==> Select Microsoft Office 14 access database engine object library
'**
'**
'****************************************************
 
Dim db As Database
Dim rd As Recordset
 
Set db = OpenDatabase("D:\toto\toto.accdb", False, False)
Set rd = db.OpenRecordset("PRODUCTION", dbOpenTable)
 
'****************************************************
'**  Aficchage du resultat dans un Label
'****************************************************
Label1.Caption = "Lecture avec Acces 2013 : Secheur <== " & rd("SECHEUR")
 
 
End Sub
Private Sub cAcces97_Click()
'****************************************************
'**   Lecture de d'une Base au format acces 97
'**
'**
'**    ==> Microsoft DAO 3.6 object library
'**
'**
'****************************************************
 
Dim db As Database
Dim rd As Recordset
 
Set GLB_dbGIRAUD = OpenDatabase("D:\toto\toto.mdb", False, False)
Set rd = GLB_dbGIRAUD.OpenRecordset("PRODUCTION", dbOpenTable)
 
'****************************************************
'**  Aficchage du resultat dans un Label
'****************************************************
Label1.Caption = "Lecture avec Acces 97 : Secheur <== " & rd("SECHEUR")
 
End Sub

J'ai testé dans ma vraie application cela marche aussi .