Visual Basic World, Visual basic 6 et .net Visual Basic 6 et .net World
Revenir à la liste des sources


puceCode source n°1 : Compacter une base de données Acces depuis VB
Auteur : P. Cuisinaud Codes source visual studio .net codevb2.zip - Taille : 1 Ko
Function CompacterBase(VDb As String, VPath As String)
    'Fonction de compactage d'une base de données
    'Pour cette fonction, vous devez ajouter la référence Microsoft DAO
    'VDb = Nom de la base données
    'VPath = Variable chemin
    
    Dim VPath1 As String
    
    'On met le sablier
    Screen.MousePointer = 11
    'Si la base n'est pas nulle
    If VDb <> "" Then
	'On regarde si le chemin fini par un \ si no on le met
        If Right(VPath, 1) <> "\" Then VPath = VPath & "\"
	'On regarde si la base finie par .mdb si no on le met
        If UCase(Right(VDb, 4)) <> ".MDB" Then VDb = VDb & ".MDB"
	'On ferme la base
        On Error Resume Next
        Db.Close
        On Error GoTo 0
	'On compacte dans un autre fichier
        DBEngine.CompactDatabase (VPath & VDb), (VPath & "BaseTmp.MDB")
	'On efface la base
        Kill (VPath & VDb)
	'On renome le nouvelle avec le nom de l'ancienne
        Name (VPath & "BaseTmp.MDB") As (VPath & VDb)
	'On remet la flèche
        Screen.MousePointer = 1
    End If
End Function

Remonter