DTS doesnt like my syntax for various reasons. Im trying to go from an Excel
file to an sql table. If there are only 4 digits, I want to add a "0". If
not, just do a regular import. Ive added comments so everyone know what line
is really where since wrapping is occuring here.

' Copy each source column to the destination column
Function Main()

if len(DTSSource("machine_placement_id")) = 4 then
DTSDestination("StoreNbr") = "0" & DTSSource"machine_placement_id")
else DTSDestination("StoreNbr") = DTSSource("machine_placement_id") --
line 8
end if
Main = DTSTransformStat_OK
End Function



Expected End.
Error on line 8.

--
SQL2K SP3

TIA, ChrisR

"ChrisR" <bla (AT) noemail (DOT) com> wrote

In message <#mWs6XV4EHA.3644 (AT) tk2msftngp13 (DOT) phx.gbl>, ChrisR
<bla (AT) noemail (DOT) com> writes
Looks like an error in -

"0" & DTSSource"machine_placement_id")

Should be -

"0" & DTSSource("machine_placement_id")


Just preference but I would use this to get a 5 character zero padded
value-

Function Main()

DTSDestination("StoreNbr") = Right("0" &
DTSSource("machine_placement_id").Value, 5)

Main = DTSTransformStat_OK

End Function

Depending on the types involved, you may need to convert the values
explicitly, e.g. CStr(X)


--
Darren Green (SQL Server MVP)
DTS - http://www.sqldts.com

PASS - the definitive, global community for SQL Server professionals
http://www.sqlpass.org