Débogage avec ma base de données mais difficile de détecter la faille

Version imprimable

Voir 40 message(s) de cette discussion en une page

Salut le forum
Je ne sais pas pourquoi le code ci dessous ne fonctionne pas bien. Jai 5 textbox numéroté par ordre. J'ai tout vérifié mais toujour le meme message derreur ci dessous:

Citation:

tye de données incompatible dans l'expression du critère

Merci de maider car je comprend vraiment pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim strsQL As String
Dim Rs
OpenConnexion Fichier
sql = "select * from  [" & Feuille5 & "] where [NUM_EXAMEN]='" & Trim(TextBox1.Value) & "';"
Set Rs = CreateObject("adodb.recordset")
Rs.Open sql, Cnx
If Rs.EOF = False Then
MsgBox "Existe"
Else
strsQL = "insert into [" & Feuille5 & "] ([NUM_EXAMEN],[EDITEUR],[INTITULE],[DATE_EXAMEN],[INGENIEUR],[STATUT]) "
        strsQL = strsQL & "Values ('" & Trim(TextBox1.Value) & "','" & Trim(TextBox2.Value) & "','" & Trim(TextBox3.Value) & _
       "','" & Trim(TextBox4.Value) & "','" & Trim(TextBox5.Value) & "','" & Trim(TextBox6.Value) & "');"
Cnx.Execute strsQL
'Set Cnx = Nothing
End If
Rs.Close
Set Rs = Nothing
Cnx.Close
Set Cnx = Nothing
Unload Me

Merci pour vos soutiens

28/05/2015, 20h01
Quentin77170

Salut,

À quel ligne reçois-tu ce texte ? Quel type de données écris-tu dedans ?

Essaye d'utiliser la propriété TextBox.Text et pas .Value... Je ne sais pas si ça peut changer mais de mémoire j'avais déjà eu des soucis avec ça.

Quentin.
28/05/2015, 21h01
parmi

Bonjour,

Je pense que tu mets des apostrophes de trop.
Si certains champs de ta base sont numériques, je pense que tu doives enlever les apostrophes.

Par exemple, si NUM_EXAMEN est supposé être numérique, ça donnerait

Code:

strsQL = strsQL & "Values (" & Trim(TextBox1.Value) & ",'" & Trim(TextBox2.Value)....

ou encore

Code:

strsQL = strsQL & "Values (" & CLng(Trim(TextBox1.Value)) & ",'" & Trim(TextBox2.Value)....

Pour la date, ça devrait prendre des # autour plutôt que des apostrophes et la date devra être au format américain mm/jj/aaaa

Bonjour à tous

Merci pour vos contributions.
Quentin77170: la ligne du débogage est

Citation:

Cnx.Execute strsQL

J'ai remplacé les value par text mais sans gain de cause.
Parmi:J'ai essayé vos solutions mais ca ne fonctionne pas.
Par le 2ème code que j'ai adapté au mien (voire code ci-dessous):
Code:

1 2 strsQL = strsQL & "value ('" & CLng(Trim(TextBox1.Value)) & "','" & Trim(TextBox2.Value) & "','" & Trim(TextBox3.Value) & _ "','" & Trim(TextBox4.Value) & "','" & Trim(TextBox5.Value) & "','" & Trim(TextBox6.Value) & "');"
Le message d'erreur affiche

Citation:

Incompatibilité de type

Par le 1er code aussi le résultat souhait ne se produit pas et le message d'erreur ci-dessous s'affiche:

Citation:

Erreur de syntaxe dans l'instruction INSER INTO

et la code suivante est soulignée

Citation:

Cnx.Execute strsQL

Je vous joint un autre code presque similaire qui fonctionne bien:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim strsQL As String Dim RS OpenConnexion Fichier Sql = "select * from [" & Feuille & "] where [NUM_PROJET]='" & Trim(TextBox1.Value) & "';" Set RS = CreateObject("adodb.recordset") RS.Open Sql, Cnx If RS.EOF = False Then MsgBox "Existe" Else strsQL = "insert into [" & Feuille & "] ([NUM_PROJET],[TYPE_DE_PROJET],[CHEF_DE_PROJET],[SOUS-TRAITANT],[CONSULTANT],[OBJET],[CLIENTS],[LIEU_DE_DEPOT],[DATE_DE_DEPOT],[HEURE_DEPOT]) " strsQL = strsQL & "Values ('" & Trim(TextBox1.Value) & "','" & Trim(ComboBox1.Value) & "','" & Trim(ComboBox2.Value) & _ "','" & Trim(ComboBox3.Value) & "','" & Trim(ComboBox4.Value) & "','" & Trim(TextBox2.Value) & "','" & Trim(ComboBox5.Value) & "','" & Trim(TextBox3.Value) & "','" & Trim(TextBox4.Value) & _ "','" & Trim(TextBox5.Value) & "');" Cnx.Execute strsQL 'Set Cnx = Nothing End If RS.Close Set RS = Nothing Cnx.Close Set Cnx = Nothing Unload Me

29/05/2015, 13h21
Invité

ce qu'il faut comprendre, c'est que les champs Excel sont typé par le type de valeurs qu'ils contiennent! sauf si tu as déterminé le format de la cellule!

Texte Numérique Date

TOTO 1 01/01/2006

TITI 2 15/12/2015

TUTU 3,5 20/03/2014

la requête doit tenir compte de ces impératif! je ne sais pas si tu te rappel mais j'ai abordé ce sujet, sens aller dans détail, au début de notre collaboration![ Transférer des données d'un fichier vers un autre (Espace commun)]

il est temps que je complète ton éducation :whistle: sens pour autant te faire :vomi:

dans une requête le valeur numérique ne comporte pas de simple cote [']! en revanche il son passés au format vba (en Anglais) sql=sql & "Values ( " & replace(Numérique,",",".") & ",...." !

les date doivent être passé au format internationales et c'est la requête qui converti au bon format sql=sql & "Values ( cdate(" & format(Date,"yyyy-mm-dd") & ",...." !

les textes sont encadrés de simple cotes, attention si le texte contient des apostrophes ['], il faut le doublé car ils représente le caractère de début et fin de text! sql=sql & "Values ( '" & replace(text,"'","''") & "',...." !

strsQL = strsQL & "value(replace(TextBox1,",",".") & ",'" & replace(TextBox2,"'","''") & "',cdate(" & format(TextBox3,"yyyy-mm-dd") & ") );"

Bonsoir rdurupt (professeur)

C'est toujours un plaisir pour moi de bénéficier de ton assistance.

Citation:

je ne sais pas si tu te rappel mais j'ai abordé ce sujet, sens aller dans détail, au début de notre collaboration![ Transférer des données d'un fichier vers un autre (Espace commun)]

Oui je me rappel et j'accepte le complément de mon éducation que tu me propose.
J'ai essayé de comprendre tes explications mais pas facile mais je sais que j'y parviendrai avec surtout les cas pratiques.
Voici ce que j'ai essayé de réaliser:

Code:

strsQL = strsQL & "value(replace(TextBox1,",",".") & ",'" & replace(TextBox2,"'","''")& ",'" & replace(TextBox3,"'","''") & "',cdate(" & format(TextBox4,"yyyy-mm-dd")& ",'" & replace(TextBox5,"'","''") & ",'" & replace(TextBox6,"'","''")& ") );"

Mais je constate un message d'erreur (erreur de syntaxe) dans cette partie du code

Code:

TextBox1,",","."

et plus précisément

Code:

","

.
Voici mon code initial que je vous demande si possible d'en faire un cas pratique pour que je renforce ma compréhension.
Encore merci pour toute l'assistance sans pour au temps abuser de votre disponibilité
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim strsQL As String Dim RS OpenConnexion Fichier Sql = "select * from [" & Feuille5 & "] where ucase(trim(NUM_EXAMEN))='" & Trim(TextBox1.Value) & "';" Set RS = CreateObject("adodb.recordset") RS.Open Sql, Cnx If RS.EOF = False Then MsgBox "Existe" Else strsQL = "insert into [" & Feuille5 & "] ([NUM_EXAMEN],[EDITEUR],[INTITULE],[DATE_EXAMEN],[INGENIEUR],[STATUT]) " strsQL = strsQL & "value (" & Trim(TextBox1.Value) & ",'" & Trim(TextBox2.Value) & "','" & Trim(TextBox3.Value) & _ "','" & Trim(TextBox4.Value) & "','" & Trim(TextBox5.Value) & "','" & Trim(TextBox6.Value) & "');" Cnx.Execute strsQL Set Cnx = Nothing End If RS.Close Set RS = Nothing Cnx.Close Set Cnx = Nothing Unload Me

29/05/2015, 18h13
Invité

Qu'est ce qu'il y a dans la variable feuil5?

Dans la variable feuille5 il y'a le nom de la feuille (voire ci-dessous).

Code:

Public Const Feuille5 = "CERTIF_A_PASSER$"

La feuille CERTIF_A_PASSER est la feuille ou les informations de l'usf devront y être coller.
J'espère avoir répondu à votre question sinon je pourrais vous en donner plus.
EDIT:
J'oubliais de préciser que le code du poste #6 est logé dans un usf.
Ce code est complété par les codes ci-dessous logés dans un module:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub RequetAjout() Dim strsQL As String OpenConnexion Fichier strsQL = "insert into [" & Feuille5 & "] ([NUM_EXAMEN],[EDITEUR],[INTITULE],[DATE_EXAMEN],[INGENIEUR],[STATUT]) " strsQL = strsQL & "Values ('NUM_EXAMEN','EDITEUR','INTITULE','DATE_EXAMEN','INGENIEUR','STATUT');" strsQL = "insert into [" & Feuille5 & "] ([NUM_EXAMEN],[EDITEUR],[INTITULE],[DATE_EXAMEN],[INGENIEUR],[STATUT]) " strsQL = strsQL & "Values ('textbox1.value','textbox2.value','textbox3.value','textbox4.value','textbox5.value','textbox6.value');" Cnx.Execute strsQL Set Cnx = Nothing End Sub
Code:

1 2 3 4 5 6 7 Sub RequeteMaj() OpenConnexion Fichier Set requete = CreateObject("ADODB.recordset") strsQL = "Update [" & Feuille5 & "] set [NUM_EXAMEN]='toto' where [NUM_EXAMEN]='textbox1.value';" Cnx.Execute strsQL Cnx.Close End Sub

Code:

1
2
3
4
5
strsQL = "insert into [" & Feuille5 & "] ([NUM_EXAMEN],[EDITEUR],[INTITULE],[DATE_EXAMEN],[INGENIEUR],[STATUT]) "
        strsQL = strsQL & "Values ('" & textbox1.value & "','" & textbox2.value & "','" & textbox3.value & "','" & textbox4.value & "','textbox5.value & "','" & textbox6.value & "');"
Cnx.Execute strsQL
Set Cnx = Nothing
End Sub

Bonjour rdurupt

Merci pour le code.
Je ne sais pas mais cette partie du code se transforme en commentaire.

Code:

','" & textbox6.value & "');"

EDIT:

J'ai procédé comme ci-dessous mais le message d'erreur suivant s'affiche :

Citation:

Instruction SQL non valide : DELETE, INSERT, PROCEDURE, SELECT ou UPDATE attendus

Voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim strsQL As String
Dim Rs
OpenConnexion Fichier
Sql = "select * from  [" & Feuille5 & "] where ucase(trim(NUM_EXAMEN))='" & Trim(TextBox1.Value) & "';"
Set Rs = CreateObject("adodb.recordset")
Rs.Open Sql, Cnx
If Rs.EOF = False Then
MsgBox "Existe"
Else
sstrsQL = "insert into [" & Feuille5 & "] ([NUM_EXAMEN],[EDITEUR],[INTITULE],[DATE_EXAMEN],[INGENIEUR],[STATUT]) "
        strsQL = strsQL & "Values ('" & TextBox1.Value & "','" & TextBox2.Value & "','" & TextBox3.Value & "','" & TextBox4.Value & "','textbox5.value" & _
        " ','" & TextBox6.Value & "');"
Cnx.Execute strsQL
Set Cnx = Nothing
End If
Rs.Close
Set Rs = Nothing
Cnx.Close
Set Cnx = Nothing
Unload Me

Code:

1
2
strsQL = "insert into [" & Feuille5 & "] ([NUM_EXAMEN],[EDITEUR],[INTITULE],[DATE_EXAMEN],[INGENIEUR],[STATUT]) "
strsQL = strsQL & "Values ('" & TextBox1.Value & "','" & TextBox2.Value & "','" & TextBox3.Value & "','" & TextBox4.Value & "','" & textbox5.Value & "','" & TextBox6.Value & "');"

01/06/2015, 17h50
capi81

1 pièce(s) jointe(s)

Bonsoir rdurupt

Je ne sais pas le code ne fonctionne pas bien.
Je vous joins mes fichier pour appréciation.
Le fichier "DEPART_2015" est le fichier qui comporte les usf.
C'est à partir des usf contenus dans ce fichier que la base de données "ARRIVE_2015" est alimenté.
Merci
02/06/2015, 09h30
Invité

bonjour,
c'est le fichier C:\TEST\BASE_DE_DONNEES.xlsx onglet CERTIF_A_PASSER$ qu'il me serait utile!
02/06/2015, 09h51
capi81

Bonjour rdurupt

J'ai omis de changer le nom du fichier "BASE_DE_DONNEES" par le fichier "ARRIVE_2015".
Remplacer

Code:

Public Const Fichier = "C:\TEST\BASE_DE_DONNEES.xlsx"

par

Code:

Public Const Fichier = "C:\TEST\ARRIVE_2015.xlsx"

Dans le fichier ARRIVE_2015, vous avez l'onglet CERTIF_A_PASSER$
A Bientôt et encore merci du soutien

Oui effectivement je ne suis pas réveillé!
on passe led date au format internationale et encadré par des "#"!
Code:

1 2 strsQL = "insert into [" & Feuille5 & "] ([NUM_EXAMEN],[EDITEUR],[INTITULE],[DATE_EXAMEN],[INGENIEUR],[STATUT]) " strsQL = strsQL & "Values ('N005/2015','ZOA PLUS','CONTRAT',#" & Format("25/01/2015", "yyyy-mm-dd") & "#,'NEANT','NEANT');"

Merci rdurupt pour ce code.
A priori je suppose que la correction doit se faire au niveau du code contenu dans le module.
Si vos test avec mes 2 fichiers ont été concluant chez vous merci de mes les envoyer pour inspiration.
En attendant voici ce que j'ai compris mais sans résultat:
Code:

1 2 strsQL = "insert into [" & Feuille5 & "] ([NUM_EXAMEN],[EDITEUR],[INTITULE],[DATE_EXAMEN],[INGENIEUR],[STATUT]) " strsQL = strsQL & "Values ('textbox1.value','textbox2.value','textbox3.value',#" & Format("textbox4.value", "yyyy-mm-dd") & "#,'textbox5.value','textbox6.value');"
Je rencontre un message d'erreur:

Citation:

erreur de syntaxe dans l'instruction INSERT INTO

tu te rappels la fonction que nous avions mis en place pour valider les formulaire?

http://www.developpez.net/forums/d14...e/#post7960942

je te propose de la reprendre pour valider la qualité des données, au-moins pour le format!

après avoir été rassuré sur le format des données, nous pourrons générer le sql à la volé!

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
Private Sub bt_add_Click()
Dim strsQL As String
Dim Rs
OpenConnexion Fichier
Sql = "select * from  [" & Feuille12 & "] where [NUM_EXAMEN]='" & Trim(ComboBox1.Value) & "';"
Set Rs = CreateObject("adodb.recordset")
Rs.Open Sql, Cnx
If Rs.EOF = False Then
MsgBox "Existe"
Else

SqlVal = ""
SqlVal = ValideAjoutSql(Me)
If SqlVal <> "" Then strsQL = "insert into [" & Feuille5 & "] " & SqlVal : Cnx.Execute strsQL
'Set Cnx = Nothing
End If
Rs.Close
Set Rs = Nothing
Cnx.Close
Set Cnx = Nothing
Unload Me
End Sub


 Function ValideAjoutSql(This As UserForm) As String
Dim I As Long
Dim TG
Dim ChampsInsert As String
Dim ChampsValue As String
Dim Dico As Object
Set Dico = CreateObject("Scripting.dictionary")
For I = 0 To This.Controls.Count - 1
    If Trim("" & This.Controls(I).Tag) <> "" Then
        TG = Split(This.Controls(I).Tag, ";")
       If ChampsInsert <> "" Then ChampsInsert = ChampsInsert & ","
       If ChampsValue <> "" Then ChampsValue = ChampsValue & ","
        Select Case TG(2)
        Case "N"
           ChampsInsert = ChampsInsret & "[" & TG(0) & "]"
           ChampsValue = ChampsValue & This.Controls(I)
        Case "D"
           ChampsInsert = ChampsInsret & "[" & TG(0) & "]"
           ChampsValue = ChampsValue & "#" & Format(This.Controls(I), "yyyy-mm-dd") & "#"
        Case "B"
            If Dico.exists(TG(0)) = False Then Dico.Add TG(0), 0
           If This.Controls(I).Value = true Then Dico(TG(0)) = 1
        Case Else
            ChampsInsert = ChampsInsret & "[" & TG(0) & "]"
           ChampsValue = ChampsValue & "'" & Replace(This.Controls(I), "'", "''") & "'"
        End Select
     End If
    
Next
For Each elt In Dico.Keys
 If ChampsInsert <> "" Then ChampsInsert = ChampsInsert & ","
 If ChampsValue <> "" Then ChampsValue = ChampsValue & ","
  ChampsInsert = ChampsInsret & "[" & elt & "]"
   ChampsValue = ChampsValue & Dico(elt)
Next elt
Set Dico = Nothing
If ValideAjoutSql <> "" Then
    ValideAjoutSql = "(" & ChampsInsert & ") Values(" & ChampsValue & ");"
End If
End Function

02/06/2015, 13h22
capi81

Je viens de me conformer mais je rencontre toujours un message d'erreur:

Citation:

Aucun texte de commande n'a été défini pour l'objet de commande

J'ai pas trop bien compris.
02/06/2015, 13h30
Invité

1 pièce(s) jointe(s)

tu as configuré les Tag des contrôles comme vue dans le lien?
02/06/2015, 13h40
capi81

Oui. Dans le champ "NUMERO EXAMEN" je saisis du alphanumérique (du genre N001/2015)
Est ce cela pose un problème?

Voir 40 message(s) de cette discussion en une page

Texte	Numérique	Date
TOTO	1	01/01/2006
TITI	2	15/12/2015
TUTU	3,5	20/03/2014