Discussion :

[Bubudu77]

Bonjour à tous

j'invoque une requête sql constituée de champs que j'ai récupéré dans mon formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
            sql2 = "INSERT INTO Excel_test (idAnalysisInfo, SourceName, DocumentName, ReferenceDocument, idAU, issuanceDate, Period, IssuerName, Description, " _
            & "Label, Comments, NameoftheAnalyst, Creation_Date, AnalysisStatus, AMLFT, KYC, FinancialSanctions, OFAC, KnowlandTrain, GovandOrg, Procedures, Tools, Controls) VALUES " _
            & "(" & id_AnalysisInfo & ", " & Source_Name & ", " & Document_Name & ", " & Reference_Document & ", " & id_AU & ", " & Issuance_Date & ", " _
            & "" & Period & ", " & Issuer_Name & ", " & Description & ", " & Label & ", " & Comments & ", " & Nameofthe_Analyst & ", " & Creation_Date & ", " _
            & "" & Analysis_Status & ", " & AMLFT & ", " & KYC & ", " & FinancialSanctions & ", " & OFAC & ", " & Know & ", " & Gov & ", " & Procedures & ", " & Tools & ", " & Controls & " ) "

J'ai vérifié via un Debug.Print sql2 mon sql et cela donne:

INSERT INTO Excel_test (idAnalysisInfo, SourceName, DocumentName, ReferenceDocument, idAU, issuanceDate, Period, IssuerName, Description, Label, Comments, NameoftheAnalyst, Creation_Date, AnalysisStatus, AMLFT, KYC, FinancialSanctions, OFAC, KnowlandTrain, GovandOrg, Procedures, Tools, Controls) VALUES (5936, FORECAST incidents, FORECAST_extract_31 mars 2015.xls, HI372641, 592, 22/12/2014, Q4 2014, Entity, , 6, , Lionel BENOILID, 23/07/2015, Completed, 1, 0, 0, 0, 1, 0, 0, 0, 0 )

C'est exactement ce que je veux (les champs FORECAST blabla étant les champs que je souhaite récupérer qui ont bel et bien été récupérés)

N'empêche, message d'erreur: [Erreur d'execution '3075' Erreur de syntaxe (opérateur absent) dans l'expression FORECAST INCIDENTS]
Note: FORECAST INCIDENTS correspond à ce qui a été récupéré dans le champs " & Source_Name & ", et est un champ texte, tandis que le précédent 5936 " & id_AnalysisInfo & " est un champ numérique (donc erreur seulement sur les champs texte?)

Aussi, j'ai fait des Replace(Document_Name, "'", "''", 1, -1, vbTextCompare) sur les champs succeptibles de contenir des apostrophes
J'ai des champs de type date aussi comment dois je les encadrer?

J'ai également testé en rajoutant des apostrophes autour des champs sql:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sql2 = "INSERT INTO Excel_test (idAnalysisInfo, SourceName, DocumentName, ReferenceDocument, idAU, issuanceDate, Period, IssuerName, Description, " _
            & "Label, Comments, NameoftheAnalyst, Creation_Date, AnalysisStatus, AMLFT, KYC, FinancialSanctions, OFAC, KnowlandTrain, GovandOrg, Procedures, Tools, Controls) VALUES " _
            & "('" & id_AnalysisInfo & "', '" & Source_Name & "', '" & Document_Name & "', '" & Reference_Document & "', '" & id_AU & "', '" & Issuance_Date & "', " _
            & "'" & Period & "', '" & Issuer_Name & "', '" & Description & "', '" & Label & "', '" & Comments & "', '" & Nameofthe_Analyst & "', '" & Creation_Date & "', " _
            & "'" & Analysis_Status & "', '" & AMLFT & "', '" & KYC & "', '" & FinancialSanctions & "', '" & OFAC & "', '" & Know & "', '" & Gov & "', '" & Procedures & "', '" & Tools & "', '" & Controls & "' ) "

Résultat: erreur '3219' opération non valide

et mon Debug.Print sql2 donne:
INSERT INTO Excel_test (idAnalysisInfo, SourceName, DocumentName, ReferenceDocument, idAU, issuanceDate, Period, IssuerName, Description, Label, Comments, NameoftheAnalyst, Creation_Date, AnalysisStatus, AMLFT, KYC, FinancialSanctions, OFAC, KnowlandTrain, GovandOrg, Procedures, Tools, Controls) VALUES ('5936', 'FORECAST incidents', 'FORECAST_extract_31 mars 2015.xls', 'HI372641', '592', '22/12/2014', 'Q4 2014', 'Entity', '', '6', '', 'Lionel XXXXX', '23/07/2015', 'Completed', '1', '0', '0', '0', '1', '0', '0', '0', '0' )

J'ai testé plusieurs combinaisons avec les '" "' uniquement sur les champs texte et juste ' ' les champs numériques, et idem, erreur '3219'

Si vous avez des idées... je vous remercie d'avance

[nico84]

Bonjour,

En gros le debug devrait afficher ça (sauf si certains champs numériques sont destinés à des strings) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

INSERT INTO Excel_test (idAnalysisInfo, SourceName, DocumentName, ReferenceDocument, idAU, issuanceDate, Period, IssuerName, Description, Label, Comments, NameoftheAnalyst, Creation_Date, AnalysisStatus, AMLFT, KYC, FinancialSanctions, OFAC, KnowlandTrain, GovandOrg, Procedures, Tools, Controls) VALUES (5936, 'FORECAST incidents', 'FORECAST_extract_31 mars 2015.xls', 'HI372641', 592, '22/12/2014', 'Q4 2014', 'Entity', '', 6, '', 'Lionel XXXXX', '23/07/2015', 'Completed', 1, 0, 0, 0, 1, 0, 0, 0, 0)

En variante, description et comments peuvent être valorisés à null (ce n'est pas pareil)
Bien sûr il faut que la valeur indiquée soit conforme avec les règles définies au niveau de la table
Enfin si l'un des champs peut contenir une ' il faut la doubler lors de la création de la requête SQL sinon ça plante à l'exécution...

[Bubudu77]

Nico84:

Les valeurs normalement sont conformes à celles de la table: mes variables que je récupère sont en string pour les champs de table de type texte, mémo; et en integer pour les numeric et Oui/Non (oui/non pour les dernières valeurs 0,0,0,1 etc...); et en date pour les date
Les champs succeptibles de contenir une ' ont été doublés en '' via un : Replace(Document_Name, "'", "''", 1, -1, vbTextCompare)
Parfois (comme c'est la cas ici), les champs descriptions et comments sont vides, et dans les propriétés des champs la table, le [Null interdit] est à [non] et [Chaîne vide autorisée] est à [oui], que veux tu dire par "valorisés à Null"

Le debug affiche en effet cela... :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

INSERT INTO Excel_test (idAnalysisInfo, SourceName, DocumentName, ReferenceDocument, idAU, issuanceDate, Period, IssuerName, Description, Label, Comments, NameoftheAnalyst, Creation_Date, AnalysisStatus, AMLFT, KYC, FinancialSanctions, OFAC, KnowlandTrain, GovandOrg, Procedures, Tools, Controls) VALUES (5936, 'FORECAST incidents', 'FORECAST_extract_31 mars 2015.xls', 'HI372641', 592, '22/12/2014', 'Q4 2014', 'Entity', '', 6, '', 'Lionel XXXXXX', '23/07/2015', 'Completed', 1, 0, 0, 0, 1, 0, 0, 0, 0 )

...quand je met des '" "' pour les valeurs de type string et " " pour les valeurs de type integer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sql2 = "INSERT INTO Excel_test (idAnalysisInfo, SourceName, DocumentName, ReferenceDocument, idAU, issuanceDate, Period, IssuerName, Description, " _
            & "Label, Comments, NameoftheAnalyst, Creation_Date, AnalysisStatus, AMLFT, KYC, FinancialSanctions, OFAC, KnowlandTrain, GovandOrg, Procedures, Tools, Controls) VALUES " _
            & "(" & id_AnalysisInfo & ", '" & Source_Name & "', '" & Document_Name & "', '" & Reference_Document & "', " & id_AU & ", '" & Issuance_Date & "', " _
            & "'" & Period & "', '" & Issuer_Name & "', '" & Description & "', " & Label & ", '" & Comments & "', '" & Nameofthe_Analyst & "', '" & Creation_Date & "', " _
            & "'" & Analysis_Status & "', " & AMLFT & ", " & KYC & ", " & FinancialSanctions & ", " & OFAC & ", " & Know & ", " & Gov & ", " & Procedures & ", " & Tools & ", " & Controls & " ) "

Résultat [erreur d'execution '3219' Opération non valide]

[Jean-Philippe André]

Salut
issuancedate n'est-èil pas un champs date ? format #MM/DD/YYYY# à prévoir.

[Bubudu77]

Oui, issuance_date est une date, j'ai renseigné le format date dans la variable de stockage et dans le champs de la table

Allez savoir pourquoi, mais au lieu de mettre sql = INSERT INTO ... et dbs.openRecordset(sql)
le fait de faire dbs.execute INSERT INTO résout le problème...

Ça ne réponds pas vraiment à ces questions d'apostrophes, mais je suis débloqué dans mon travail

Merci pour votre aide

(Dois je mettre en résolu?)

Bonne soirée à tous

[jimbolion]

Bubudu77

Oui tu peux mettre résolu et dans mon blog à cette adresse une contribution qui pourrait t'être utile


http://www.developpez.net/forums/blo...s-ecrites-vba/

Jimbolion

[nico84]

Allez savoir pourquoi, mais au lieu de mettre sql = INSERT INTO ... et dbs.openRecordset(sql)
le fait de faire dbs.execute INSERT INTO résout le problème...

Il me semble que openrecordset est réservé aux requetes de type SELECT...

[jimbolion]

Nico,

Bien vu et il est vrai que sans la totalité du code, nous aurions pu chercher longtemps !

donc pour un insert soit un docmd.runsql soit un execute (largement préférable pour l'interception d'erreurs)

Bubudu77

Puisque tu maîtrises les techniques du débogage un simple copier-coller vers la création d'une requête depuis ton volet de navigation te permet de valider ton expression.

Bonne continuation

Jimbolion