suppression dans un bd access

Question

Bonjour, 

Je n'arrive pas à supprimer un champ de ma base de donnée, ça m'affiche le message d'erreur suivant : 

"Erreur d'execution '3251':
Le jeu d'enregistrements suivant ne prend pas en charge la mise à jour. Il s'agit peut-être d'une limitation du fournisseur ou du type de verrou sélectionné."
__________________________________________________________

Et voici mon code:

Private Sub Sup_Click()

Dim cn As New Connection
Dim Rs As ADODB.Recordset
Dim stSQL As String

    cn.Provider = "microsoft.jet.OLEDB.4.0"
    cn.ConnectionString = "data source=C:\Documents and Settings\user03\Bureau\VbAlload\BaseDeDonnéesEntreprises.mdb"
    cn.Open

    Set Rs = New ADODB.Recordset
    'requete sql
    If Nom = "" Then        RQT "SELECT * FROM entreprises WHERE NomEntreprise '" & Suppression.SelEntr & "'"
    Else        RQT "SELECT * NomEntreprise FROM entreprises WHERE NomEntreprise '" & Suppression.SelEntr & "' and nom = '" & SelNom & "'"
    End If
    
    'ouverture avec la requete contenu dans Rqt
    Rs.Open "entreprises", cn
    
    Rs.Move I
    
    Rs.Delete
    
    'mise a jour des champs avec leur valeurs respectives
    Rs.Update vartChamps, vartValeur

    'Allé à l'enregistrement suivant
    Rs.MoveNext
    'Si le recordset va dans un champs qui n'existe pas
    'pour eviter une erreur il va au précédent
    If Rs.EOF Then Rs.MoveLast
    
    Rs.Close
    cn.Close
    
    Suppression2.Hide
    
End Sub
__________________________________________________________

Que dois-je faire? 

Je vous remercie par avance :)

plaineR · Answer

Ton lock doit être en read only

plaineR · Answer

Ton lock doit être en read only

Suppression dans un bd access

2 réponses

Discussions similaires