Chance1234
IS-IT--Management
Hi, im using a data driven query task, and with one of the id columns i want to update that incrementally, I had in my mind that the active x script would be the below but it doesnt work :-(
help!
Function Main()
Dim GTID
GTID = DTSLookups("GetAdrID"
.execute 'look up to get maximum address_id in the table
GTID = GTID + 1
if idexists = "" then
DTSDestination("address" = DTSSource("ADDRESS"
DTSDestination("address_type" = DTSSource("ADDRESS_TYPE"
DTSDestination("address_id" =GTID
DTSDestination("zip_code" = DTSSource("ZIP_CODE"
Main = DTSTransformstat_InsertQuery
else
Main = DTSTransformstat_SkipRow
End If
End Function
Filmmaker, gentlemen and proffesional drinker
help!
Function Main()
Dim GTID
GTID = DTSLookups("GetAdrID"
.execute 'look up to get maximum address_id in the tableGTID = GTID + 1
if idexists = "" then
DTSDestination("address"
= DTSSource("ADDRESS"DTSDestination("address_type"
= DTSSource("ADDRESS_TYPE"DTSDestination("address_id"
=GTIDDTSDestination("zip_code"
= DTSSource("ZIP_CODE"Main = DTSTransformstat_InsertQuery
else
Main = DTSTransformstat_SkipRow
End If
End Function
Filmmaker, gentlemen and proffesional drinker