DELETE DE MERDE !!!

galldup Messages postés 90 Date d'inscription vendredi 18 octobre 2002 Statut Membre Dernière intervention 27 décembre 2004 - 16 janv. 2003 à 05:09
cs_moustachu Messages postés 1079 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 1 janvier 2012 - 16 janv. 2003 à 11:37
'DELETE ALL DATAS FROM AFFAIRE INFO

J'arrive pas a deleter des enregistrements dans une table
je suis en DAO...

il me met " No current record..." alors que ma table est pleine!!!

Set rst = dbs.OpenRecordset("SELECT * FROM [affaire info] ;")
rst.MoveFirst
Nbr = rst.RecordCount
p = rst.GetRows(Nbr)

rst.MoveFirst
For i = 0 To Nbr - 1
If (p(4, i) Like ref) Then
rst.Move (i)
Else
rst.Edit
rst.Delete
rst.Update
End If
Next i

merci de m'aider
jo

4 réponses

cs_moustachu Messages postés 1079 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 1 janvier 2012
16 janv. 2003 à 09:06
DELETE FROM <nom de table> .. c'est pas ça pour effacer en sql?
0
zeprogrameur Messages postés 12 Date d'inscription lundi 30 septembre 2002 Statut Membre Dernière intervention 15 mars 2003
16 janv. 2003 à 10:32
A 1ère vue,Cé peut être que t'as oublié le rst.movenext dans ta boucle, après ton delete.....
0
galldup Messages postés 90 Date d'inscription vendredi 18 octobre 2002 Statut Membre Dernière intervention 27 décembre 2004 1
16 janv. 2003 à 11:33
Si je l'avais pense mais cela ne marche pas non plus :
j'avais mis ca :

REF = "001"
"DELETE FROM [affaire info] WHERE [ref num] <> '"+ REF+"';"

il me met "invalid operation"
Alors que je sais que mon schema relationelle de la base le permet...autrement dit que je peux les supprimer directement...
0
cs_moustachu Messages postés 1079 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 1 janvier 2012
16 janv. 2003 à 11:37
Regarde la réponse de zeprogrammeur, c'est peut être un .movenext qu'il manque
0
Rejoignez-nous