Probleme avec recordset (requete sql)

Question

Bonjou a tous,

l'instruction sql suitevante ne fonctionne pas parcontre, elle me donne pas d'erreur;
voici le code:
Private Sub Command1_Click()
    Call connectBd
    maBase.Execute "DELETE * FROM tblMenu WHERE No =  '" &  ListView1.SelectedItem.Text & "'"

End Sub

 Public Sub connectBd() 
    Set maBase  = OpenDatabase("Menu.mdb", False, False, "MS Access;PWD=moon")
    Set monRecordset = maBase.OpenRecordset( _
        "SELECT * FROM tblMenu ORDER BY Title", dbOpenDynaset)
End Sub

Merci de votre aide
DraaFil

Simouss33 · Answer

Je comprend pas tres bien ta requ&#234;te...

"DELETE * FROM tblMenu WHERE No = '" &  ListView1.SelectedItem.Text & "'"

A quoi sert ton ListView1.SelectedItem.Text ?

DraaFil · Answer

la colonne un de mon listviw me donne le no

cs_Jack · Answer

Salut
Si ton champ No est de type num&#233;rique dans ta DB, il ne faut pas encadrer ta valeur avec des '

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

DraaFil · Answer

J'ai essayer et cela fait la meme chose

Zlub · Answer

Salut DraaFil,


A priori si ton champ est num&#233;rique dans la base de donn&#233;es alors



Private Sub Command1_Click()

    Call connectBd

    maBase.Execute "DELETE * FROM tblMenu WHERE No = " &  ListView1.SelectedItem.Text 

End Sub



sauf si No n'est pas le bon nom de champ ... et/ou si ListView1.SelectedItem.Text te renvoi une valeur stupide ..



tu peux faire un 



Debug.Print "DELETE * FROM tblMenu WHERE No = " &  ListView1.SelectedItem.Text 



juste avant ton "Call connectBd"



puis essayer d'execute la
requete directement sous MS Access et voir se qu'elle donne ... Si elle
valide, r&#233;pond non &#224; la confirmation d'ex&#233;cution.



Faut sans doute mettre &#224; jour ton recordset apres avoir fait le delete pour voir le r&#233;sultat de la suppression ... apres ton Command1_Click


++

Zlub

DraaFil · Answer

j'ai modifier mon code mias cela ne marche pas , ca me dit type incompatible.

Call connectBd
    monRecordset.MoveFirst
    Dim intSelect As Integer
    intSelect = Int(ListView1.SelectedItem.Text)
    MsgBox ListView1.SelectedItem.Text
    monRecordset.FindFirst ("No = '" & intSelect & "'") (erreur ici)
  If monRecordset.NoMatch Then
    MsgBox ("non trouve")
  Else
    monRecordset.Delete
    monRecordset.Update
    monRecordsetBookmark = monRecordset.LastModified
    End If

Pourtant dans ma bd No est numeroAuto

Je comprend pu rien

Merci

Probleme avec recordset (requete sql)

6 réponses

Discussions similaires