[AC-2010] Création d'un enregistrement dans une table en SQL

[Kenny66]

Bonjour,

J'ai un formulaire de consultation, à partie duquel je souhaite ajouter un enregistrement à une table.

En cliquant sur un bouton, une fenêtre de saisi s'ouvre puis il faut compléter les champs du nouvel enregistrement.

Mais j'ai un problème avec mon code il ne fonctionne pas il me renvoie des erreurs d'exécution.

Pourriez vous m'aider s'il vous plaît ?

voici le code en question :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
 
Private Sub Valider_btn_Click()
 
    Dim req As DAO.Recordset
    Dim sqlSelect As String
    Dim sqlInsert As String
    Dim db As DAO.Database
    Dim activite As Integer
 
    If (Not IsNull(NOMTITULAIRE) And Not IsNull(ADRTITULAIRE) And Not IsNull(LIBAGENCE) And Not IsNull(LIBBANQUE) And Not IsNull(BIC) And Not IsNull(CODEGUICHET) And Not IsNull(NUMCOMPTE) And Not IsNull(CLERIB) And Not IsNull(IBANCP) And Not IsNull(IBANCC) And Not IsNull(BBAN) And Not IsNull(DATEDEBUT) And Not IsNull(DATEFIN)) Then
 
 
            Set db = CurrentDb()
 
 
            ' Ouverture du recordset
            Set req = db.OpenRecordset("GA_COMPTETITRE_D", dbOpenTable)
 
 
                If (DateDiff("d", DATEDEBUT, DATEFIN) >= 0) Then
 
                    If (DateDiff("d", Now, DATEFIN) >= 0) Then
 
                        sqlInsert = "Insert into GA_COMPTETITRE_D (NOMTITULAIRE, ADRTITULAIRE, LIBAGENCE, LIBBANQUE, BIC, CODEBANQUE, CODEGUICHET, NUMCOMPTE, CLERIB,IBANCP,IBANCC,BBAN,DATEDEBUT,DATEFIN) values ('" & NOMTITULAIRE & "', '" & ADRTITULAIRE & "','" & LIBAGENCE & "','" & LIBBANQUE & "','" & BIC & "','" & CODEBANQUE & "','" & CODEGUICHET & "','" & NUMCOMPTE & "','" & CLERIB & "','" & IBANCP & "','" & IBANCC & "','" & BBAN & ",'" & DATEDEBUT & "','" & DATEFIN & ")"
                        db.Execute sqlInsert
 
                        If (db.RecordsAffected = 1) Then
                           message = Null
                           message.ForeColor = RGB(0, 176, 80)
                           message = "Le Compte titre de " & NOMTITULAIRE & " a été créé avec succès !!"
                        Else
                           message = Null
                           message.ForeColor = vbRed
                           message = "Une erreur s'est produite au moment de l'insertion"
                        End If
                    Else
                        message = Null
                        message.ForeColor = vbRed
                        message = "La date de fin est inférieure à la date du jour"
                    End If
                Else
                    message = Null
                    message.ForeColor = vbRed
                    message = "La date de début est supérieure à la date de fin"
 
                End If
 
            ' Fermeture du Recordset
            req.Close
            Set req = Nothing
            db.Close
            Set db = Nothing
 
        Else
            message = Null
            message.ForeColor = vbRed
            message = "Un des champs obligatoires n'est pas rempli"
        End If
 
End Sub
 
Private Sub Annuler_btn_Click()
    Form_Load
End Sub
 
Private Sub Form_Load()
 
    NOMTITULAIRE = Null
    ADRTITULAIRE = Null
    LIBAGENCE = Null
    LIBBANQUE = Null
    BIC = Null
    CODEBANQUE = Null
    CODEGUICHET = Null
    CODEGUICHET = Null
    NUMCOMPTE = Null
    CLERIB = Null
    IBANCP = Null
    IBANCC = Null
    BBAN = Null
    CODEGUICHET = Null
    message = Null
    DATEDEBUT = Format(Now, "dd/mm/yyyy")
    DATEFIN = Null
 
End Sub

Merci pour votre aide.

[jpcheck]

Salut,

plutot que de sortir ma boule de cristal, je prefererai que tu puisses nous dire les lignes où les erreurs d'executions sont générées.

Dans ta requete sqlinsert, tu sembles ne pas traiter tes champs de type date avec le bon format de données pour commencer

[Kenny66]

Bonjour,

Désolé, effectivement l'erreur que j'ai c'est "erreur d’exécution 3075 erreur de syntaxe(opérateur absent) dans l'expression "DSF, puis les dates ...

Merci encore

[jpcheck]

très bien, mais sur quelle ligne de code cela arrive-t-il ?

[Kenny66]

Sur

db.Execute sqlInsert

[jpcheck]

ok,
peux tu nous dire ce qui est contenu dans la chaine de caracteres sqlinsert stp ?

entre les types de champs incorrects et la non prise en compte des potentiels "'" ca risque de poser problème

[Kenny66]

Désolé je ne comprends pas ? c'est à dire la chaine de caractères ?

Ceux là ?

If (DateDiff("d", DATEDEBUT, DATEFIN) >= 0) Then

If (DateDiff("d", Now, DATEFIN) >= 0) Then

[jpcheck]

que t'affiche la ligne suivante:

Code :

Debug.Print sqlinsert

si tu la places avant le

Code :

db.Execute sqlinsert

?

[Kenny66]

Exactement la même erreur...

"erreur d’exécution 3075 erreur de syntaxe(opérateur absent) dans l'expression "DSF, puis les dates ..

[jpcheck]

Envoyé par jpcheck

que t'affiche la ligne suivante:

Code :

Debug.Print sqlinsert

?

à voir dans la fenetre d'execution

[Kenny66]

Voici l'erreur renvoyé en pJ

[jpcheck]

OK,

mets en commentaire la ligne d'execution, et dis nous ce qui est affiché dans la fenetre d'execution stp ?
Affichage>Fenetre d'execution

je ne m'interesse pas au cniotneu de l'erreur, je sais à quoi elle est due. Le but etant que tu la comprennes, on y va par étape

[Kenny66]

Code SQL :

INSERT INTO GA_COMPTETITRE_D (NOMTITULAIRE, ADRTITULAIRE, LIBAGENCE, LIBBANQUE, BIC, CODEBANQUE, CODEGUICHET, NUMCOMPTE, CLERIB,IBANCP,IBANCC,BBAN,DATEDEBUT,DATEFIN) VALUES ('cfvsdgs', 'sdfsdf','sdfsdf','sdfsdf','fsdf','fsdf','fdsf','fsdf','sdfsdf','dsfsd','fsdf','sdfsdf,'09/02/2012','09/02/2012)

[jpcheck]

Alors, avec la coloration du forum, on voit clairement 2 choses :
- l'emplacement du "'" qui n'est pas bon
- le format des dates sous SQL doit etre de la forme

Code :

#MM/dd/YYYY#

tu peux commencer à faire les mises à jour en conséquence

[Kenny66]

Ok mais je le fais ou au niveau du code

désolé je suis novice.

[jpcheck]

Aucun soucis, on est tous passé par là

la ligne à modifier est celle dans laquelle tu attribues la valeur à ta chaine sqlinsert, c'dest à dire

Code :

sqlInsert = "Insert into GA_COMPTETITRE_D (NOMTITULAIRE, ADRTITULAIRE, LIBAGENCE, LIBBANQUE, BIC, CODEBANQUE, CODEGUICHET, NUMCOMPTE, CLERIB,IBANCP,IBANCC,BBAN,DATEDEBUT,DATEFIN) values ('" & NOMTITULAIRE & "', '" & ADRTITULAIRE & "','" & LIBAGENCE & "','" & LIBBANQUE & "','" & BIC & "','" & CODEBANQUE & "','" & CODEGUICHET & "','" & NUMCOMPTE & "','" & CLERIB & "','" & IBANCP & "','" & IBANCC & "','" & BBAN & ",'" & DATEDEBUT & "','" & DATEFIN & ")"

l'erreur se situe pour BBAN, datedebut et datefin

[Kenny66]

Merci et il faut modifier quoi ?

Que faut il modifier dans la valeur "datedebut et "datefin"

pour le bban j'ai ajouté le ' qui manquait

Merci encore

[jpcheck]

je te recommande un peu de lecture pour que tu apprennes les bases:
http://ledzeppii.developpez.com/instrsqlvb/
sinon l'erreur se situe dans cette partie là du code :

Code :

,'" & BBAN & ",'" & DATEDEBUT & "','" & DATEFIN & ")"

[Kenny66]

Merci pour la lecture.

Alors j'ai corrigé les dates mais maintenant j'en ai un autre, l'enregistrement n'est pas pris en compte ca me renvoie le message suivant :
"Une erreur s'est produite au moment de l'insertion"

du code :

Code :

1
2
3
4
5
Else
                           message = Null
                           message.ForeColor = vbRed
                           message = "Une erreur s'est produite au moment de l'insertion"
                        End If

[jpcheck]

Peux-tu nous redonner le contenu de sqlinsert stp ?

Il est probable qu'une des valeurs ne soit pas valide (cas des valeurs à Null notamment)