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 06 03:57:06
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 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 Access vers Access via VB [ par Appolon ] Bonjour à tous,G un base de donnée à certain endroit et j'en ai une autre à un autre endroit,je voudrais importer les tables dont g besoin vers l'autr Base de donnée access sous vb [ par crust ] Bonjour,J'ai développé un logiciel de gestion et je souhaiterai savoir comment supprimer des enregistrement dans une base de donnée access d'après une base de donnée Access et VB.net [ par xzonz ] Salut à toutes et tousvoila mon souci !!je viens d'installer visual .net et je suis un peu perdu !!avec VB6 j'arrivais a afficher le contenu d'une bas Dupliquer une base de donnée Access avec VB [ par alecccc ] Bonjour,J'aimerais faire une sauvegarde de ma base de donnée Access avec Vb.J'aimerais le dupliquer et l'enrégistrer dans un répertoire portant la dat 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


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 Cockpit Airbus A320
Photo femme, Plage, Bien être,Photo alphabet signes des sourds

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 : 0,655 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é.