Comment suprimer un enregistrement
bouazizsalah
Messages postés
14
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
28 août 2002
-
9 août 2002 à 20:51
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 11 août 2002 à 00:48
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 11 août 2002 à 00:48
A voir également:
- Comment suprimer un enregistrement
- Sql recuperer dernier enregistrement ✓ - Forum PHP
- Code vba access pour rechercher un enregistrement - Forum Visual Basic
- Ajouter un enregistrement dans une table access vba - Forum Visual Basic
- Access vba recherche de donnee ds une table - Forum Visual Basic
- Recherche d'un enregistrement - Forum Visual Basic 6
3 réponses
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
9 août 2002 à 23:47
9 août 2002 à 23:47
Autre possibilité : recopier dans un 2ème fichier tous les enregistrements sauf l'indésirable ; fermer tout, supprimer le fichier d'origine et renommer le nouveau.
bouazizsalah
Messages postés
14
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
28 août 2002
10 août 2002 à 17:48
10 août 2002 à 17:48
Bounjour
tu peux me dire comment suprimer et renomer un fichier .
merci pour ta reponse.
tu peux me dire comment suprimer et renomer un fichier .
merci pour ta reponse.
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
11 août 2002 à 00:48
11 août 2002 à 00:48
Tu veux supprimer l'enregistrement n° 7 dans le fichier aléatoire CheminFichier1 ; les enregistrements ont pour longueur 50
-------------------------------------------
Dim i as integer, Enreg as string*50
Open "CheminFichier1" For Random As #1 Len = 50
Open "CheminFichier2" For Random As #2 Len = 50
For i = 1 To 6
Get 1, i, Enreg
Put 2, i, Enreg
Next i
For i = 8 To Lof(1)
Get 1, i, Enreg
Put 2, i - 1, Enreg
Next i
Close
Kill "CheminFichier1" ' suppression du fichier 1
Name "CheminFichier2" As "CheminFichier1" ' On renomme le fichier 2 du nom du fichier 1
-------------------------------------------
Dim i as integer, Enreg as string*50
Open "CheminFichier1" For Random As #1 Len = 50
Open "CheminFichier2" For Random As #2 Len = 50
For i = 1 To 6
Get 1, i, Enreg
Put 2, i, Enreg
Next i
For i = 8 To Lof(1)
Get 1, i, Enreg
Put 2, i - 1, Enreg
Next i
Close
Kill "CheminFichier1" ' suppression du fichier 1
Name "CheminFichier2" As "CheminFichier1" ' On renomme le fichier 2 du nom du fichier 1
