AU SECOURS !!! Problème addnew access

Question

Salut, je tente un ajout d'enregistrement par ADO à une base access mais Vb me jette avec comme message : 

variable objet ou variable bloc with non définie

Voici le code :

Public dbao As Database
Public cheminbase As String
Public cnnADO As New ADODB.Connection
Public cmdADO As New ADODB.Command
Public rsADO As New ADODB.Recordset
Public rsuser As New ADODB.Recordset

Set rsuser = dbao.OpenRecordset("utilisateur", dbOpenTable)
  rsuser.Open
  rsuser.AddNew
  rsuser("nomuser") = txtnomuser.Text
  rsuser("passuser") = txtpassuser.Text
  rsuser.Update
  rsuser.Close

donc AU SECOURS !!! J'attend votre aide.

Merci d'avance  :big)

cs_shun · Answer

Je sais pas si ca vient de ca mais tu peu toujours essayé:


rsuser.Open
With rsuser
.addnew
!nomuser=txtnomuser.text
!passuser=txtpassuser.text
.update
.close
End with


Voila voila, j'espère ke ca va t'aider
 :big) shun :big)

SeeNapse · Answer

Merci shun mais j'ai réussi aussi par cette méthode. Cependant, je vais quand même essayé la tienne.

Set rsuser = New ADODB.Recordset
     With rsuser
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Source = "utilisateur"
        .ActiveConnection = cnnADO
        .Open
        .AddNew
        .Fields("nomuser") = txtnomuser.Text
        .Fields("passuser") = txtpassuser.Text
        .Update
        .Close
    End With
    MsgBox "Nouvel utilisateur enregistré", vbInformation, "Enregistrement"
    menu.Show

Si tu y vois problème dans le code, quelque chose que peut causer un conflit n'hésite pas. @+ ;-)

SeeNapse · Answer

Désolé pour les fautes, j'ai écris ça en urgence avant d'aller bosser. (Voir l'heure  6:52 )  :big)

AU SECOURS !!! Problème addnew access

3 réponses

Discussions similaires