Accueil > Forum > > > > Compacter une base de donnée access sous VB
 Compacter une base de donnée access sous VB
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
|
Cette discussion est classée 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
 Livres en rapport
|
Derniers Blogs
 [RIA SERVICES] INCLUDE ET DOMAINDATASOURCE[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE par Audrey
Dans un de mes articles précédents , j'avais parlé des DomainDataSource avec RIA Services dans le cas d'une interface Maître - Détail. Dans le même principe, je vais parler d'une autre manière de mettre en forme ce cas d'interface avec RIA Services. Et po...
Cliquez pour lire la suite de l'article par Audrey ZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATIONZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATION par ROMELARD Fabrice
Une des nouveautés de la version V 3.0 était l'apparition de l'onglet Social qui ne fonctionnait que si le MarketPlace était activé sur son poste. Cela limitait donc son intérêt, car hors du cadre commercial USA-CANADA, peu de monde trouva...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2 par ROMELARD Fabrice
Avec la dernière génération du lecteur MP3 de Microsoft, le ZUNE HD, Microsoft a publié une nouvelle version du logiciel pour PC. Ainsi, je me suis décidé à installer celle-ci sur mon Tablet PC ACER, comme toujours le logiciel est donc tél...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|