' file: ppln_eg.vbs

Option Explicit

Const adDatabaseAccess = 1
Const adDatabaseOracle = 2
Const adDatabaseSQLServer = 3

Dim ppln
Set ppln = wscript.CreateObject("Codewarp.Pipeline")

ppln.CommandCommitCount = 100
ppln.CommandMax = 1000000
ppln.FolderWork = "\temp\"
ppln.Deliminator = Chr(1)
ppln.OptAscending = True
ppln.OptCache = False
ppln.OptDelete = False
ppln.OptInsert = True
ppln.OptTrailingDeliminator = True
ppln.OptUpdate = True
ppln.OptVerbose = False
ppln.OptMemory = True

ppln.DatabaseProviderSource = 1
ppln.DatabaseConnectionSource = "DRIVER={SQL Server};SERVER=host;DATABASE=db;UID=u;PWD=secret;"

ppln.DatabaseTypeDestination = 3
ppln.DatabaseProviderDestination = 1
ppln.DatabaseConnectionDestination = "DRIVER={SQL Server};SERVER=host;DATABASE=db;UID=u;PWD=secret;"

ppln.DatabaseConnectionDestination2 = ""

ppln.FileSource = ""
ppln.FileExecute = ""
ppln.KeyColumnCount = 1
ppln.OptInsert = True
ppln.OptUpdate = True
ppln.OptDelete = False
ppln.SQLSource = "SELECT TRANSACTION_ID, AMOUNT, CATEGORY, CLEARED, DESCRIPTION, TRANSACTION_DATE FROM ACCOUNT_REGISTER ORDER BY TRANSACTION_ID"
ppln.SQLDestination = "SELECT TRANSACTION_ID, AMOUNT, CATEGORY, CLEARED, DESCRIPTION, TRANSACTION_DATE FROM ACCOUNT_REGISTER ORDER BY TRANSACTION_ID"
ppln.Execute()