Pb d'ajout d'enregistrement

Question

Salut !

Bon, j'ai un petit soucis pour ajouter des enregistrements dans ma DB...

Le code me parait pourtant bon mais rien ne s'enregistre...

Dans un module de connexion
Public Sub Chargement_Machine()
'Chargement du recordset contenant les infos machine
Set com_mach = New ADODB.command
With com_mach
    .ActiveConnection = Conn
    .CommandText = "SELECT * FROM Machine;"
End With
End Sub

Dans ma proc&#233;dure du bouton valider_click...

Private Sub b_ok_Click()
    message = MsgBox(" Vous &#234;tes sur le point d'ajouter une machine. Continuer ?", vbYesNo, "Ajout de machine")
    If message = vbYes Then
        error = False
        If nom.Text = "" Then
            error = True
        End If
        If error = False Then
            Call ModuleConnexion.Chargement_Machine
            Set rc_mach = com_mach.Execute
            rc_mach.AddNew
            rc_mach.Fields("nom_machine") = nom.Text
            rc_tache.Update
            Set rc_tache = Nothing
        End If
        Else
        nom.Text = ""
        nom.SetFocus
    End If
End Sub

Qqun sait pourquoi ca tourne pas ?? Je sais que c'est pourtant facile &#224; faire mais l&#224; ca veut pas...
Quelle est mon erreur ?

Merci ! ++

C'est en forgeant qu'on devient forgeron...

macgyver49 · Answer

Petit probl&#232;me:
La requ&#234;te que tu utilise est faite pour obtenir des infos de ta base de donn&#233;es.
Si tu veux enregistrer des infos, il faut que tu utilise plut&#244;tcelles-ci:

INSERT INTO Nomtable (NomChamps1, Nomchamps2, ...) VALUES (Valeur1, Valeur2, ...)
UPDATE NomTable SET NomChamps1=..  WHERE NomChamps2=..

En esp&#233;rant que cela t'aide

Titi & Panpan

Pb d'ajout d'enregistrement

1 réponse

Discussions similaires