Discussion :

[floran30]

Bonjour,
débutant en sql je viens ici vous demander de l'aide.
Voila j'ai une table facture dans la base de données access et je souhaiterais faire une requete pour supprimer une ligne de cette table.
J'ai fais ceci :

Dim bd As DAO.Database
Dim tbl As DAO.Recordset
Dim str As String

Set bd = OpenDatabase(".\bdtest.mdb")
Set tbl = bd.OpenRecordset(str)

str = "DELETE Document.Id_document" _
& "FROM Document" _
& "WHERE Document.Id_document = 13"

Mais j'ai un message d'erreur :
"Le moteur de base de données Microsoft Jet ne peut pas trouver la table ou la requete source. Assurez vous qu'elle existe et qu'elle est correctement orthographiée."

[sab_etudianteBTS]

Salut,
A mon avis ta requete n'est pas bonne. Si "document" est le nom de ta table alors essaye ca:

Code :

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

1
2
3
 
 
str="DELETE Document WHERE Id_Document=13"

Mais bon je peux me tromper...

[floran30]

Meme problème.

[ThierryAIM]

http://www.developpez.net/forums/sho...d.php?t=167389

sujet déplacé, merci de poster sur le bon forum, à l'avenir

[sab_etudianteBTS]

Ah
C'est peut etre parce que tu devrais placer cette ligne

Code :

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

1
2
 
Set tbl = bd.OpenRecordset(str)

aprés avoir écrit ta requète...
essaye pour voir!

[floran30]

Il me dit opération non valide maintenant.

[ThierryAIM]

si déjà tu définissais str AVANT le Set tbl = bd.OpenRecordset(str), ca ne serait pas plus mal

ensuite pour une requete DELETE un simple

Code :

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

1
2
bd.Execute "DELETE FROM Document " _
& "WHERE Document.Id_document = 13"

devrait suffire
et attention aux espaces dans la requete

[floran30]

Merci ca marche nickel.

Maitenant je souhaiterais remettre a jours toute ma table.
C'est a dire que si je supprimer l'Id_document 13, toute les autres ID a partir du 13 se remete a jours.
Donc la 14 devient 13
la 15 devient 14
etc...

[totof39]

Salut,
Perso, j'utilise la propriété delete de la recordset et elle me gère la mise à jour automatiquement.

Code :

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

1
2
3
4
5
6
7
8
 
LReq = "SELECT * FROM " Document " _
           & "WHERE Document.Id_document = 13""                'la requete de recherche
 
Set RscDico = BDD.OpenRecordset(LReq, dbOpenDynaset)    
 
RscDico.Delete
RscDico.Close