AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 10 03:10:14
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Compacter une base de donnée access sous VB [ Archives Visual Basic / Bases de données ] (Appil)

mercredi 18 septembre 2002 à 18:01:32 | Compacter une base de donnée access sous VB

Appil
Comment compacter une base de donnée access sous VB ?
-=-[ Golden-X] -=-
jeudi 19 septembre 2002 à 11:01:44 | Re : Compacter une base de donnée access sous VB

imer
Public Sub Compactage(BaseSource As String, Compact As Boolean, Optional Repair As Boolean = False)
On Error GoTo CompactageErreur

Dim LignErreur As Integer
Dim BaseCompact As String
Dim BaseAvCompact As String

LignErreur = 0
'réparation de la base source
'méthode disponible que pour les bases Access 97 ou moins
If Repair = True Then
On Error Resume Next
DBEngine.RepairDatabase BaseSource
On Error GoTo 0
End If

LignErreur = 1
'compactage de la base source
If Compact = True Then

LignErreur = 2
'préparation de la base destination de compactage
BaseCompact = BaseSource & "Compact"

If Dir(BaseCompact) <> "" Then
Kill BaseCompact
End If

LignErreur = 3
'commande de compactage
DBEngine.CompactDatabase BaseSource, BaseCompact

LignErreur = 4
'préparation des nominations des bases
BaseAvCompact = BaseSource & "AvCompact"

If Dir(BaseAvCompact) <> "" Then
Kill BaseAvCompact
End If


LignErreur = 5
'renommage de la base source en base avant compactage
Name BaseSource As BaseAvCompact

LignErreur = 6
'renommage de la base compactée en base source
Name BaseCompact As BaseSource

Kill BaseAvCompact

End If

Exit Sub

'Traitement des erreurs
CompactageErreur:

MsgBox "Erreur à la ligne " & CStr(LignErreur) & Chr(13) & Err.Number & Chr(13) & Err.Description

Exit Sub

End Sub
-------------------------------
Réponse au message :
-------------------------------

Comment compacter une base de donnée access sous VB ?
-=-[ Golden-X] -=-
jeudi 19 septembre 2002 à 11:03:41 | A lire en premier

imer
'Il y a une méthode CompactDatabase dans DAO.
'Elle permet de compacter une base access avec un autre nom (on se retrouve alors avec deux bases, une non compactée et une compactée)
'Dans le menu Projet/Références... cocher "Microsoft DAO X.X ..."



-------------------------------
Réponse au message :
-------------------------------

Public Sub Compactage(BaseSource As String, Compact As Boolean, Optional Repair As Boolean = False)
On Error GoTo CompactageErreur

Dim LignErreur As Integer
Dim BaseCompact As String
Dim BaseAvCompact As String

LignErreur = 0
'réparation de la base source
'méthode disponible que pour les bases Access 97 ou moins
If Repair = True Then
On Error Resume Next
DBEngine.RepairDatabase BaseSource
On Error GoTo 0
End If

LignErreur = 1
'compactage de la base source
If Compact = True Then

LignErreur = 2
'préparation de la base destination de compactage
BaseCompact = BaseSource & "Compact"

If Dir(BaseCompact) <> "" Then
Kill BaseCompact
End If

LignErreur = 3
'commande de compactage
DBEngine.CompactDatabase BaseSource, BaseCompact

LignErreur = 4
'préparation des nominations des bases
BaseAvCompact = BaseSource & "AvCompact"

If Dir(BaseAvCompact) <> "" Then
Kill BaseAvCompact
End If


LignErreur = 5
'renommage de la base source en base avant compactage
Name BaseSource As BaseAvCompact

LignErreur = 6
'renommage de la base compactée en base source
Name BaseCompact As BaseSource

Kill BaseAvCompact

End If

Exit Sub

'Traitement des erreurs
CompactageErreur:

MsgBox "Erreur à la ligne " & CStr(LignErreur) & Chr(13) & Err.Number & Chr(13) & Err.Description

Exit Sub

End Sub
-------------------------------
Réponse au message :
-------------------------------

Comment compacter une base de donnée access sous VB ?
-=-[ Golden-X] -=-
jeudi 19 septembre 2002 à 14:23:48 | Re : Compacter une base de donnée access sous VB

Appil
Merci imer ..

-=-[ Golden-X] -=-


-------------------------------
Réponse au message :
-------------------------------

Comment compacter une base de donnée access sous VB ?
-=-[ Golden-X] -=-
jeudi 19 septembre 2002 à 14:39:39 | Re : A lire en premier

Appil
merci imer ..

-=-[ Golden-X] -=-


-------------------------------
Réponse au message :
-------------------------------

'Il y a une méthode CompactDatabase dans DAO.
'Elle permet de compacter une base access avec un autre nom (on se retrouve alors avec deux bases, une non compactée et une compactée)
'Dans le menu Projet/Références... cocher "Microsoft DAO X.X ..."



-------------------------------
Réponse au message :
-------------------------------

Public Sub Compactage(BaseSource As String, Compact As Boolean, Optional Repair As Boolean = False)
On Error GoTo CompactageErreur

Dim LignErreur As Integer
Dim BaseCompact As String
Dim BaseAvCompact As String

LignErreur = 0
'réparation de la base source
'méthode disponible que pour les bases Access 97 ou moins
If Repair = True Then
On Error Resume Next
DBEngine.RepairDatabase BaseSource
On Error GoTo 0
End If

LignErreur = 1
'compactage de la base source
If Compact = True Then

LignErreur = 2
'préparation de la base destination de compactage
BaseCompact = BaseSource & "Compact"

If Dir(BaseCompact) <> "" Then
Kill BaseCompact
End If

LignErreur = 3
'commande de compactage
DBEngine.CompactDatabase BaseSource, BaseCompact

LignErreur = 4
'préparation des nominations des bases
BaseAvCompact = BaseSource & "AvCompact"

If Dir(BaseAvCompact) <> "" Then
Kill BaseAvCompact
End If


LignErreur = 5
'renommage de la base source en base avant compactage
Name BaseSource As BaseAvCompact

LignErreur = 6
'renommage de la base compactée en base source
Name BaseCompact As BaseSource

Kill BaseAvCompact

End If

Exit Sub

'Traitement des erreurs
CompactageErreur:

MsgBox "Erreur à la ligne " & CStr(LignErreur) & Chr(13) & Err.Number & Chr(13) & Err.Description

Exit Sub

End Sub
-------------------------------
Réponse au message :
-------------------------------

Comment compacter une base de donnée access sous VB ?
-=-[ Golden-X] -=-
jeudi 22 avril 2004 à 21:07:39 | Re : Compacter une base de donnée access sous VB

Philippe734
merci imer ! ca marche impec !


Cette discussion est classé dans : access, base, vb, donnée, compacter

Répondre à ce message

Sujets en rapport avec ce message

Compacter base de donnée vb access [ par manhino ] bonjour,J'ai un petit soucis car je voudrai compacter une table de ma base de donnée par programmation vba.J'ai une base de donnée dans laquelle j'ai creer une base de donnée access depuis VB.NET [ par sarapotter987 ] Bonjour à tous, voila j'ai un probleme et ca m'obsede , bon je voudrai créer une base de donnée access avec un code VB.NET mais j'y arrive pas donc si vb et access ( comment les relier ) [ par mboudllal ] bonjourj'ai créé une simple  base de donnée acess 2003 et un simple interface graphique vb 6 dans lequel j'ai inseré   un data pour les relié.dans les Base de donnée Access et VB.NET [ par shadow1779 ] Bonjour,j'apprend aujourd'hui les bases de données Access avec VB.NET cependant je n'arrive pas a mettre mon Reader dans une textbox car il me dis que vb.net et Access [ par poilusduboux ] J’ai un petit problème avec VB.net et ma base de donnée. J’ai sur ma feuille environ 130 textbox que j’aimerais Access Base de donnée [ par luckyluke33 ] Bonjour tout le monde !Voila, j'aurai besoin de quelque conseil. En fait je conçois la partie logicielle d'un outils et j'ai appris que VB était sympa Accès à une base de donnée Access sous VB [ par lolo ] J'aimerais réaliser une sorte de moteur de recherche en VB :il y a différents champs à remplir par l'utilisateur; une fois ces derniers remplis l'appl Base de Donnée access sous VB 6.0 [ par breizhoneg ] J'aimerais savoir 2 choses1erement : Comment en entrant un champ de la base de données, peut-on avoir automatiquement les champs qui lui sont associés compacter une base ACCESS avec VB [ par Gilles ] J'utilise une base ACCESS qui grossi à chaque acces que je fais avec un programme VB et il arrive une limite où la base est trop grosse.Selon microsof Base de donnée Access VB [ par rageagainst ] Bonjour,Je voudrais savoir si il était possible dans l'expression ci-dessous, d'utiliser une variable (type string ou variante ou autre...), à faire p


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


Console Sony Playstation 3 80GB
Entre 398€ et 425€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo alphabet langue des sourds
Photo pretty teenage girl 

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 1,310 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.