Essaie un truc comme ceci:
Dim iCmpt As Integer
Dim MyDB As Database
Dim SQLQry As String
Dim iNbr1 As Integer
Dim sTblCour As String
Set MyDB = DBEngine.OpenDatabase("C:\bd1.mdb", True, False)
iNbr1 = MyBD.TableDefs.Count - 1
For iCmpt = 0 To iNbr1
sTblCour = MyBD.TableDefs(iCmpt).Name
' Les noms commencant par "MSys" sont des tables systèmes de Access
If (StrComp(Left$(sTblCour, 4), "MSys", vbTextCompare) <> 0) Then
SQLQry = "DELETE * FROM " & sTblCour & ";"
MyDB.Execute SQLQry, dbFailOnError
'Else
End If
Next iCmpt
MyDB.Close
|
J'ai pas testé le code mais ça devrait te mettre sur le chemin.
n'oublie pas d'insérer une référence à "Microsoft DAO 3.x Object Library"
-------------------------------
Réponse au message :
-------------------------------
Salut,
Je souhaiterais juste savoir si il met possible d'effacer le contenu d'une base de données access et ce à partir de mon programme?
Si oui, quel est l'instruction que je peux utiliser.
Merci d'avance...