[VBA] INSERT INTO statement

Question

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") & "'"

blux · Answer

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...

janis · Answer

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

Polux31 · Answer

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 ...

janis · Answer

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

amigo · Answer

bonjour,

je pense que l'erreur est là
" WHERE PV_PLS.ASOFDATE = dd;" 

ce serait plutot
" WHERE PV_PLS.ASOFDATE =" & dd & ";" 

A+.

janis · Answer

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

amigo · Answer

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.

[VBA] INSERT INTO statement

7 réponses

Discussions similaires

Newsletters