supression d'un enregistrement en vb6 - access

Question

salut 

je cherche une instruction qui me permet de detruire un enregistrement physiquement et non pas logiquement
je procede comme suite
Global con As New ADODB.Connection
Dim rsraison As New Recordset
With con
        .Provider = "Microsoft.jet.oledb.4.0"
        .ConnectionString = App.Path & "\repertoire.mdb"
        .Open
    End With
rsraison.Open "select * from raison", con, adOpenDynamic, adLockPessimistic
On Error GoTo mes
rsraison.MoveFirst
Do While Not rsraison.EOF
  if rsraison!raison = "...???.." then 
  rsraison.Delete
  exit do 
  endif
  rsraison.MoveNext
Loop
avec cette procedure je supprime l'enregistrement logiquement
mais avec dbu.exe je visualise la table et je trouve toujours les données ce qui alourdi ma table donc je cherche comment les detruire physiquement merci

cs_trabice · Answer

pkoi tu fai pas une requete delete * from...

Fabrice

cs_akassou · Answer

c'est simplement pour reduire le nombre de ligne je croix
j'ai pas encore tester

cs_CanisLupus · Answer

Heu, je dis peut-être une connerie mais si tu faisais un compactdatabase ?
En DAO, en tous cas ça fonctionne bien, en ADO, je ne sais pas faire.
Cordialement, CanisLupus

Supression d'un enregistrement en vb6 - access

3 réponses

Discussions similaires