[VBA] INSERT INTO statement

fredo91170 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
 amigo -
bonjour a toues et à tous

Voila j ai un petit soucis de syntaxe avec ma commande INSERT INTO.
il semblemrait que cela soit sur la dernière ligne OracleCampaign
si quelqun peut m'aider

Merci d'avance

dB.Execute "INSERT INTO FINAL (MONTH, YEAR, OPE, [DATE OPE], LP, [CODE PRODUIT], VOLUME, " _
& "VARIATION, RAISON, [QTY ORDERED], [UNIT PRICE TTC], PRIME, PLAN, [FR CAMPAIGN]) values ('" _
& Right(Rs![Année-mois comptable], 2) & "', '" _
& Left(Rs![Année-mois comptable], 4) & "', '" _
& Right(Rs![Opé], 3) & "', '" _
& Rs![Date opé] & "', " _
& "'" & Rs![LP] & "', '" _
& Left(Rs![Titre], 4) & "', '" _
& Mid(Rs![Titre], 5, 2) & "', '" _
& Mid(Rs![Titre], 7, 1) & "', '" _
& rais(Rs![raison]) & "', '" _
& Rs![Qte] & "','" _
& Rs![Mt] & "', " _
& " '" & Rs![Prime] & "', '" _
& Rs![Plan] & "', '" _
& OracleCampaign(Rs!Plan, "CampagneOracle") & "'"

7 réponses

amigo
 
bonsoir,

D'après ce que j'ai pu comprendre, PV_PLS.ASOFDATE est une date
or tu ecrit:
dat = Date
a = Year(dat)
a1 = Month(dat)
dd = CStr(a & 0 & a1 & dy)

si dat=#20/04/2008#
a=2008
a1=4
il manque dy (dy=Day(date) )
alors
dd="20080420" (chaine de caractère et non une date)

donc assure toi que dd est bien une date avec le format adéquat, ce qui expliquerait " incompatibilité de type"
Est ce que ce ne serait pas plutot #20/04/2008# ou encore #4/20/2008# (format anglais)

D'autre part, en VB, la fonction Format est tres pratique pour formater les dates:
dd=Format(Date,"yyyy/mm/dd") donnerait dd="2008/04/20"
dd=Format(Date,"dd/mm/yyyy") donnerait dd="20/04/2008"
et d'autres format sont encore possibles.

Salut.
1
blux Messages postés 27104 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
Salut,

oui, CampagneOracle est entre guillemets, et comme c'est le séparateur de ta chaine, ça ne va pas aller...

Il faut construire ta requête en passant par une variable string puis l'envoyer au db.execute...
0
janis
 
j'ai toujours un message d 'erreur

dat = Date
a = Year(dat)
a1 = Month(dat)
dd = CStr(a & 0 & a1 & dy)

ChSQL = "INSERT INTO PV(TRADEID,ASOFDATE,CURVEID,LOCATION,[SYSTEM_LOCATION],APPLICATION,CCY,ASSETID,VALUE,ACCRUAL,CASHFLOW)" & _
" SELECT TRADEID,ASOFDATE,CURVEID,LOCATION,SYSTEM_LOCATION,APPLICATION,CCY,ASSETID,VALUE,ACCRUAL,CASHFLOW " _
& " FROM PV_PLS " & _
" WHERE PV_PLS.ASOFDATE = dd;"

Set qdf = oDb.CreateQueryDef("fill", ChSQL)


'erreur de syntaxe dans insert into
'j'ai verifié les noms de champs,la ponctuation mais rien à faire
'pouvez vous me dire si il y aurait une raison apparente que je ne connaitrai pas


End Sub
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
salut,

1 - ni bonjour, ni autre explication qu'un bout de code ...
2 - ajouter un post sur un sujet vieux de presque 2 ans ...
3 - ça donne pas envie de répondre ...
0
blux Messages postés 27104 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
Et pourtant, l'erreur est évidente... il suffit d'afficher ChSQL pour s'en rendre compte...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
janis
 
dslé de pas aavoir mis plus que ça comme message
mais gt en plein projet so pas trop le temps
je ne vois toujours pas ou se situe l erreur
je comprends vite mais faut m expliquer longtemps
pouvez vous m'eclairer svp
0
amigo
 
bonjour,

je pense que l'erreur est là
" WHERE PV_PLS.ASOFDATE = dd;"

ce serait plutot
" WHERE PV_PLS.ASOFDATE =" & dd & ";"

A+.
0
janis
 
salut

effectivement, il y avait une erreur au niveau :WHERE PV_PLS.ASOFDATE = dd;"
j'ai donc remplacé par
" WHERE PV_PLS.ASOFDATE =" & dd & ";" mais j'ai néanmoins une erreur " incompatibilité de type"
je ne vois pas ou peut se situer l'erreur . j'ai pensé que ça pouvait venir de
,[SYSTEM_LOCATION],APPLICATION,CCY,ASSETID,VALUE,ACCRU­AL,CASHFLOW)" & _
à cause de VALUE qui pourrait etre un mot réservé, j'ai ainsi changé le nom de mon champ mais apparemment l'erreur se situe ailleurs.

pouvez vs m'aider

merci
0