je n'arrive pas a enregistrer dans la base avec cette commande, et voila ce qu'on me dis a chaque foi.

Question

"cette opération n'est pas autorisée si l'objet est fermé"

Private Sub Enregistrer_Click()

If (MsgBox("êtes vous sûr de bien vouloir ajouter ce service", _
vbQuestion + vbYesNoCancel) = vbYes) Then
dbsBase.Execute ("insert into service (code_ser, nom_ser, sigle) values ('" & UCase(Trim(Replace(txtcode_ser.Text, "'", "''"))) & "', '" & Trim(Replace(txtnom_ser.Text, "'", "''")) & "', '" & Replace(txtsigle.Text, "'", "''") & "';")

MsgBox "Un service a été ajouté", vbInformation
dbsBase.Close
openbdr


End If
End Sub

Answer 1

Avant d'exécuter une base par "dbsBase.Execute" , il faut qu'elle soit ouverte dbs.Base.open...

Answer 2

Bonjour,

as tu fais Set oRst = Server.CreateObject("ADODB.Recordset" ) ?

Answer 3

oui, il faut ouvrir un objet connection OleDb, je crois