VB Script syntax error in DTS...

Question

Post reply

VB Script syntax error in DTS...

lucazav

SSC Eights!

Points: 981
More actions
September 28, 2007 at 4:03 am

#374840

Hi all!! I'm new to these forums 🙂
I'm trying to program a DTS package, in particular a Data Driven Query. I get the syntax error like "Parenthesis ')' expected", but I can't find any error in the following code. Can you help me? Many thanks in advantage!!!
'**********************************************************************
' Visual Basic Transformation Script
'************************************************************************
' Copy each source column to the destination column
Function Main()
DTSGlobalVariables("DataOra").Value = getdate()
q = DTSLookups("FiltroStoricoIdLotto_Lookup")._
Execute(DTSSource("Id"), DTSSource("Lotto"))
If Not IsEmpty(q) Then
If (q[3] <> DTSSource("Magazzino") Or q[4] <> DTSSource("Posizione") Or q[5] <> DTSSource("NumColli") Or q[6] <> DTSSource("StatoQualita")) Then
DTSDestination("IdContainer") = DTSSource("Id")
DTSDestination("Magazzino") = DTSSource("Magazzino")
DTSDestination("Posizione") = DTSSource("Posizione")
DTSDestination("Articolo") = DTSSource("Articolo")
DTSDestination("Lotto") = DTSSource("Lotto")
DTSDestination("NumColli") = DTSSource("NumColli")
DTSDestination("StatoQualita") = DTSSource("StatoQualita")
DTSDestination("DataOraIn") = DTSGlobalVariables("DataOra").Value
DTSDestination("DataOraOut") = DTSGlobalVariables("DataOra").Value
End If
Else
DTSDestination("IdContainer") = DTSSource("Id")
DTSDestination("Magazzino") = DTSSource("Magazzino")
DTSDestination("Posizione") = DTSSource("Posizione")
DTSDestination("Articolo") = DTSSource("Articolo")
DTSDestination("Lotto") = DTSSource("Lotto")
DTSDestination("NumColli") = DTSSource("NumColli")
DTSDestination("StatoQualita") = DTSSource("StatoQualita")
DTSDestination("DataOraIn") = DTSGlobalVariables("DataOra").Value
DTSDestination("DataOraOut") = DTSGlobalVariables("DataOra").Value
End If
End Function

Viewing 2 posts - 1 through 1 (of 1 total)

You must be logged in to reply to this topic. Login to reply

Mike Nuessler Right there with Babe Points: 788 More actions · Answer 1

I think it's complaining about the line continuation character actually.

try

q = DTSLookups("FiltroStoricoIdLotto_Lookup").Execute(DTSSource("Id"), DTSSource("Lotto"))

instead of

q = DTSLookups("FiltroStoricoIdLotto_Lookup")._

Execute(DTSSource("Id"), DTSSource("Lotto"))

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move. Douglas Adams (1952-2001)