Discussion :

[guefrachi]

bonsoir à tous

j'ouvre un fichier mdb avec ce code (d'après le FAQ)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim MaDbMat As String
Dim MesEtats As Access.Application
 
MaDbMat = App.Path & "\MaBase.mdb"
 
Set MesEtats = New Access.Application      
MesEtats.OpenCurrentDatabase MaDbMat, False

je veux savoir comment sélectionner une table de cette base pour y accéder

Merci d'avance

[DarkVader]

Bonjour,
Tu as essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
With MesEtats.CurrentDb
'...

[guefrachi]

bonsoir

Merci, maintenant je veux compacter cette base.

Toujours d'après le FAQ j'ai essayé ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\MaBase.mdb;Jet OLEDB:Database Password=test", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\MaBaseCompactee.mdb;Jet OLEDB:Engine Type=4;Jet OLEDB:Database Password=test"

Mais un message d'erreur s'affiche "impossible d'effectuer cette opération;les fonctionnalités de cette version ne sont pas disponibles dans les bases de données d'un format antérieur"
comment résoudre ce problème
Merci d'avance

[Graffito]

Convertir la base dans un format Access récent.
Ou peut-être installer DAO35 (mais j'y crois pas trop).

[Biggy30]

Bonjour!
pour avoir eu le meme problème et l'avoir réglé je peut confirmer
que transféré ta base en access 97 regle le tout !

au cas ou tu te demande comment...
(moi j'ai une version anglaise d'office par ailleur...donc dsl)

Tools -> Database Utilities -> Convert database to prior version

A+

[DarkVader]

Bonjour,
Tu me sembles bien compliqué !
Tu as essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 MesEtats.CompactRepair sourcefileMdb, destFileMdb, True

?

[guefrachi]

Bonsoir

Merci pour toutes vos réponses

c
résolu

voir aussi:

http://www.developpez.net/forums/d93...r-base-donn-e/

Maintenant je veux supprimer des records en utilisant une requête
1/ soit les supprimer tous avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cnn1.Execute "DELETE FROM ert "

et ça marche sans problèmes

2/soit en supprimer quelques uns dont la date correspond à une date saisie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cnn1.Execute "DELETE FROM ert WHERE DAT=#" & Format$(DTPicker1.Value, "dd-mm-yyyy") & "# "

et là rien ne se passe (pas d'erreur mais aussi pas de suppression de records)

Merci d'avance