Compacter une base Access [Résolu]

olanfr 46 Messages postés mardi 9 décembre 2003Date d'inscription 25 novembre 2006 Dernière intervention - 10 août 2004 à 12:12 - Dernière réponse : olanfr 46 Messages postés mardi 9 décembre 2003Date d'inscription 25 novembre 2006 Dernière intervention
- 11 août 2004 à 07:40
Bonjour,
Quelqu'un aurait il un exemple de code vb.Net pour compresser une base Ms Access ?
D'avance merci
Olan
Afficher la suite 

6 réponses

Meilleure réponse
cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 10 août 2004 à 16:50
3
Merci
le lien pour vb.Net est a copier
dans ton explorateur

http://support.microsoft.com/default.aspx?scid=kb;fr;306287

It@li@

Merci cs_ITALIA 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

cs_frop01 1356 Messages postés lundi 27 octobre 2003Date d'inscription 19 novembre 2008 Dernière intervention - 10 août 2004 à 15:02
0
Merci
Cet exemple utilise la méthode CompactDatabase pour modifier l'ordre de classement d'une base de données. Vous ne pouvez pas utiliser ce code dans un module appartenant à Comptoir.mdb.


Sub CompactDatabaseX()

Dim dbsNorthwind As Database

Set dbsNorthwind = OpenDatabase("Comptoir.mdb")

' Montre les propriétés de la base de données de 
' départ.
With dbsNorthwind
Debug.Print .Name & ", version " & .Version
Debug.Print "    CollatingOrder = " & .CollatingOrder
.Close
End With

' Vérifie qu'aucun fichier ne porte le nom de la 
' base de données compressé.
If Dir("NwindKorean.mdb") <> "" Then _

Kill "NwindKorean.mdb"

' Cette instruction crée une version compressée de 
' la 
' base de données Comptoir utilisant un ordre de 
' classement 
' coréen.
DBEngine.CompactDatabase "Comptoir.mdb", _
"NwindKorean.mdb", dbLangKorean

Set dbsNorthwind = OpenDatabase("NwindKorean.mdb")

' Affiche les propriétés de la base de données 
' compressée.
With dbsNorthwind
Debug.Print .Name & ", version " & .Version

Debug.Print "    CollatingOrder = " & .CollatingOrder
.Close
End With

End Sub



Cet exemple utilise la méthode CompactDatabase pour changer la version d'une base de données. Pour exécuter ce code, vous devez disposer d'une base de données Microsoft Jet version 1.1 nommée Nwind11.mdb, et vous ne pouvez pas employer ce code dans un module appartenant à Nwind11.mdb.


Sub CompactDatabaseX2()

Dim dbsNorthwind As Database
Dim prpLoop As Property

Set dbsNorthwind = OpenDatabase("Nwind11.mdb")

' Affiche les propriétés de la base de données 
' d'origine.
With dbsNorthwind
Debug.Print .Name & ", version " & .Version
Debug.Print "    CollatingOrder = " & .CollatingOrder
.Close
End With

' Vérifie qu'aucun fichier ne porte le nom de la 
' base 
' de données compressée.

If Dir("Nwind20.mdb") <> "" Then _
Kill "Nwind20.mdb"

' Cette instruction crée une version compressée 
' et cryptée de Microsoft Jet 2.0 à partir d'une 
' base de données Microsoft Jet version 1.1.
DBEngine.CompactDatabase "Nwind11.mdb", _
"Nwind20.mdb", , dbEncrypt + dbVersion20

Set dbsNorthwind = OpenDatabase("Nwind20.mdb")

' Affiche les propriétés de la base de données 
'compressée.

With dbsNorthwind
Debug.Print .Name & ", version " & .Version
For Each prpLoop In .Properties
On Error Resume Next
If prpLoop <> "" Then Debug.Print "    " & _
prpLoop.Name & " = " & prpLoop
On Error GoTo 0
Next prpLoop
.Close
End With

End Sub



:-p [mailto:cyberscorp2004@msn.com MSN] :big)
cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 10 août 2004 à 15:50
0
Merci
c du Vb . NET ca ????

It@li@
cs_frop01 1356 Messages postés lundi 27 octobre 2003Date d'inscription 19 novembre 2008 Dernière intervention - 10 août 2004 à 16:30
0
Merci
Je l'ai pas essayé sur .NET mais ca fonctionne en vb5 et 6

:-p [mailto:cyberscorp2004@msn.com MSN] :big)
cs_ITALIA 2169 Messages postés vendredi 20 avril 2001Date d'inscription 30 juin 2009 Dernière intervention - 10 août 2004 à 16:49
0
Merci
je ne suis pas sur du tout que ce soit le même langage !!

sinon en vb 6 il y a beaucoup plus court :
http://www.vbfrance.com/code.aspx?ID=6267

et en vb.Net
fr 306287 http://support.microsoft.com/default.aspx?scid=kb;fr;306287

It@li@
olanfr 46 Messages postés mardi 9 décembre 2003Date d'inscription 25 novembre 2006 Dernière intervention - 11 août 2004 à 07:40
0
Merci
Merci beaucoup, c'est exactement ce qu'il me fallait.
@+
Olan

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.