Résolu [VBA] requete SQL

Solutions (5)
Tags :
  • Fic
  • Sql
  • Programmation
|
Bonjour ,
J'ai une erreur pour supprimer des données d'une BDD Access a partir de mon code VBA Excel :
  1. 'Se connecter à la base de données
  2. CheminBDD = ThisWorkbook.Path & "\BDD_WOP.accdb"
  3. Set base = DBEngine.OpenDatabase(CheminBDD)
  4. 'Déclaration la requète de selection
  5. requete = "DELETE id_fic, nom_fic, type_fic, loc_fic FROM fichiers WHERE nom_fic = '" & liaison1 & "'"
  6. 'Déclaration du recordset
  7. Set table = base.OpenRecordset(requete)


Il me mette Erreur d'exécution '3219' : Opération non valide. !! En mode débogage, je tombe sur la ligne : Set table = base.OpenRecordset(requete)

Je ne vois pas d'ou vien le probleme.

Merci d'avance.
Contenus similaires
Meilleure solution
partage
|
bonjour


essaie base.Execute "DELETE * FROM ..... WHERE...
  • Commenter cette solution |
Score
0
òh
òi
|
Meilleure réponse sélectionnée par jacouille35.
  • Commenter cette réponse |
Score
0
òh
òi
|
Bonjour,

voila deux fonctions qui te permettront d'ouvrir et fermer une connexion vers un fichier access :
  1. Public cn As New OleDbConnection
  2.  
  3. Public Sub OuvrirConnexion()
  4. Try
  5. If cn.State = ConnectionState.Open Then
  6. cn.Close()
  7. End If
  8.  
  9. Dim strcon As String
  10. strcon = ""
  11.  
  12. strcon = "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & txtNomFich.Text & "; "
  13.  
  14. With cn
  15. .ConnectionString = strcon
  16. .Open()
  17. End With
  18.  
  19. If cn.State = ConnectionState.Open Then
  20. btnDisconnect.Enabled = True
  21. End If
  22.  
  23. Catch ex As Exception
  24. MessageBox.Show("Probleme de connexion : " & ex.Message)
  25. End Try
  26.  
  27. End Sub
  28.  
  29. Public Sub FermerConnexion()
  30. Try
  31. If cn.State = ConnectionState.Open Then
  32. cn.Close()
  33.  
  34. If cn.State = ConnectionState.Closed Then
  35. MessageBox.Show("Connexion fermée sans problème")
  36. btnDisconnect.Enabled = False
  37. End If
  38. End If
  39.  
  40. Catch ex As Exception
  41. MessageBox.Show("Probleme de déconnexion : " & ex.Message)
  42. End Try
  43. End Sub


En espérant que ça va t'aider ;)  Si c'est les requêtes qui coince, je dois pouvoir te retrouver ça aussi si besoin ^^

Edit : c'est un code que je t'ai épuré car je l'utilisais dans un projet, donc tu retrouveras des bouton et text mais c'est assez explicite tu devrais te retrouver facilement ;) 
  • Commenter cette réponse |
Score
0
òh
òi
|
Exelent. Merci beaucoup
  • Commenter cette réponse |
Score
0
òh
òi
|
Personne a une petite idée???
  • Commenter cette réponse |

Ce n'est pas ce que vous cherchiez ?

Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS