[VBA] Exporter automatiquement au format MS Access 97

Version imprimable

02/01/2008, 09h31
ClemRz

[VBA] Exporter automatiquement au format MS Access 97

Bonjour et meilleurs voeux a tous !

Je developpe une appli VBA 6.3 sous MS Access 2002 SP3 et je suis confronte a un probleme :

Comment exporter ma base vers le format MS Access 97 grace a du code VBA ?

( Habituellement on utilise le menu "Outils" puis "Utilitaires de base de donnees" puis "Convertir une base de donnees" et enfin "Vers le format de fichiers Access 97 ... " )

Merci !

Clem.
02/01/2008, 09h44
Invité

Bonjour

Peux-tu détailler le but de la manoeuvre.

Que contient ta base ? Uniquement des tables ou beaucoup de code avec des formulaires etc..., car dans ce cas tu risques d'avoir des problèmes de compatibilité entre les deux versions.

Il nous faut donc plus de détails.

Starec
02/01/2008, 10h00
ClemRz

Le but de la manoeuvre est de pouvoir lire les donnees des tables avec MS Access 97 (qui sont tres simples d'un point de vue relationnel : pas de lien entre les tables, pas de cles etrangeres, pas de requetes stoquees etc...), il n'y aura pas besoin d'avoir acces aux formulaires ni au code, donc pas de soucis du cote compatibilite... j'ai fait des tests manuels (avec le menu "Outils" ...) qui donnent un resultat a la hauteur de ce que j'attend ;) !!!

Je ne sais pas quels details je pourrais fournir en plus ... en fait je cherche juste un moyen d'effectuer l'action VBA correspondante a celle effectuee par le menu "Outils" puis "Utilitaires de base de donnees" etc ... le reste (compatibilite ...) je m'en charge ! :)

Merci pour ton attention Starec !

Clem.

Bonjour,

J'ai ça qui traine :

Code:

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
49
50
51
52
53
54
55
56
57
 
'*******************************************************************************************************
' Script permettant d'extraire au format CSV les tables d'une base Access
'
'*******************************************************************************************************
 
connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=BS.mdb"
set m_RS = CreateObject("ADODB.Recordset")
Set DBConn = CreateObject("ADODB.Connection")
DBConn.Open connstring
Set rstSchema = DBConn.OpenSchema(20)
Set fso = CreateObject("Scripting.FileSystemObject")
 
DEF_EXPORT_SEP = ";"
 
Do Until rstSchema.EOF
	If rstSchema("TABLE_TYPE") = "TABLE" Then
                chemin = rstSchema("TABLE_NAME") & ".CSV"
                Set Fic = fso.CreateTextFile(chemin, True)
 
        	txtSQL = "select * from " & rstSchema("TABLE_NAME")
                m_RS.open txtSQL, connstring
 
                ' Entête
                sLine = ""
                for i = 0 to m_RS.Fields.count - 1
                    sLine = sLine & m_RS.Fields(i).Name & DEF_EXPORT_SEP
                next
                if sLine <> "" then
                    sLine = Left(sLine, Len(sLine) - 1)
                    Fic.writeLine sLine
                end if
                ' Données
                Do Until m_RS.EOF
                    sLine = ""
                    for i = 0 to m_RS.Fields.count - 1
                         sLine = sLine & m_RS.Fields(i).Value & DEF_EXPORT_SEP
                    next
                    if sLine <> "" then
                         sLine = Left(sLine, Len(sLine) - 1)
                         Fic.writeLine sLine
                    end if
                    m_RS.MoveNext
                Loop
                Fic.Close
                Set Fic = Nothing
                m_RS.Close
	End If
	rstSchema.MoveNext
Loop
Set fso = Nothing
Set rstSchema = Nothing
DBConn.Close
Set DBConn = Nothing
set m_RS = Nothing
 
msgbox "Extraction terminée."

Citation:
Code:

1 2 3 4 '******************************************************************************************************* ' Script permettant d'extraire au format CSV les tables d'une base Access ' '*******************************************************************************************************
... Bonjour pc75, ce n'est pas exactement ce que je cherche.

Je cherche precisement un moyen d'effectuer l'action VBA correspondante a celle effectuee par le menu "Outils" puis "Utilitaires de base de donnees" puis "Convertir une base de donnees" et enfin "Vers le format de fichiers Access 97 ... "

Merci quand meme pour ton attention.

Clem.

02/01/2008, 11h06
Invité

Bonjour

Si j'ai bien compris tu veux réaliser l'opération plusieurs fois et non une seule, et c'est donc pour cela que tu veux l'automatiser. N'est-ce-pas ?

As-tu pensé à essayer de transférer les données dans une base Access 97 à partir d'instructions SQL du type INSERT INTO ?

Starec
02/01/2008, 11h30
ClemRz

Citation:

Si j'ai bien compris tu veux réaliser l'opération plusieurs fois et non une seule, et c'est donc pour cela que tu veux l'automatiser. N'est-ce-pas ?

Exactement !

Citation:

As-tu pensé à essayer de transférer les données dans une base Access 97 à partir d'instructions SQL du type INSERT INTO ?

En fait, toutes les tables du document Access sont a exporter au format MS Access 97, et leur nombre peut varier, ce qui rend la commande SQL plus difficile (detection des tables non-systeme, boucle sur le nombre de tables etc ... ) d'autant plus que le nombre d'enregistrement par table peut etre eleve (env. 900 000 enreg.) ce qui rendrai l'opperation vraiment longue ...
De plus il faudrait auparavant creer un nouveau document MS Access au format 97, est ce possible ?

Citation:

Je cherche precisement un moyen d'effectuer l'action VBA correspondante a celle effectuee par le menu "Outils" puis "Utilitaires de base de donnees" puis "Convertir une base de donnees" et enfin "Vers le format de fichiers Access 97 ... "

Pendant un moment j'avais pense a l'instruction :

Code:

DoCmd.DoMenuItem acFormBar, XXX, YYY, ZZZ, acMenuVer70

Mais je ne sais pas quels sont les index a placer dans XXX, YYY et ZZZ ... et il me semble que la barre d'outil est contextuée au formulaire, et non pas a l'application (i.e. ce menu n'est pas accessible en mode formulaire).

Merci encore pour votre disponibilite !

Clem.
03/01/2008, 10h26
ClemRz

^^ Up svp !

Bonjour....

Citation:

..toutes les tables..... au format MS Access 97, et leur nombre peut varier..... (detection des tables non-systeme, boucle sur le nombre de tables etc ... ) ...

Pour ne sélectionner QUE les tables non système, tu peux t'inspirer de ce code.... (Liste1 = Zone de liste..)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 'Affiche dans une ZdL toutes les tables non système Dim DB As DAO.Database Dim ListeTable As String Dim Tdf As DAO.TableDef Set DB = CurrentDb For Each Tdf In DB.TableDefs If Left(Tdf.Name, 4) <> "MSYS" Then ListeTable = ListeTable & Tdf.Name & " ;" End If Me.Liste1.RowSource = ListeTable Next Set DB = Nothing Set Tdf = Nothing
......ensuite, tu peux (sauf erreur..) essayer de créer une base au format AC97..:
Code:

1 2 3 4 5 6 Dim NomBase As String NomBase = "BaseAC97" & ".mdb" 'Création nouvelle base Dim dbsNew As Database Set dbsNew = CreateDatabase(CurrentProject.Path & "\" & NomBase, dbLangGeneral, dbVersion30) Set dbsNew = Nothing
.....puis tu utilise le premier code pour récupérer le nom de toutes tes tables pour les copier vers la nouvelle base....

Code:

DoCmd.TransferDatabase acExport,........

...ou

Code:

DoCmd.CopyObject.........

......ce ne sont que quelques pistes......;)

04/01/2008, 16h35
ClemRz

Citation:

Code:

Set dbsNew = CreateDatabase(CurrentProject.Path & "\" & NomBase, dbLangGeneral, dbVersion30)

Merci FreeAccess pour toutes ces pistes !!

... ca m'en a fait decouvrir une autre :

Code:

DBEngine.CompactDatabase olddb, newdb, locale, options, password

qui a l'air tres simple d'utilisation car dans option on peut specifier la version de MS Jet a utiliser !!! ... mais le seul probleme c'est que cette methode ne peut compacter qu'une base fermée. Donc pas la base en cours ... !! Quelqu'un a une idee ?

En attendant je vais essayer les autres pistes qui m'ont l'air tout de meme plus fastidieuses.

Merci encore !

Clem.
04/01/2008, 19h10
FreeAccess

Bonjour...

Content que tu trouve ton bonheur dans tout cela....;)

Par contre, évite de poser différentes questions dans un même post.....:?

Citation:

...cette methode ne peut compacter qu'une base fermée. Donc pas la base en cours ... !! Quelqu'un a une idee ?

..pour cela fais une recherche dans la :faq:...: "Comment compacter la base de données en cours ?"

...;)