Wrox Programmer Forums
Go Back   Wrox Programmer Forums > Visual Basic > VB 6 Visual Basic 6 > Pro VB 6
|
Pro VB 6 For advanced Visual Basic coders working in version 6 (not .NET). Beginning-level questions will be redirected to other forums, including Beginning VB 6.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Pro VB 6 section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old January 17th, 2005, 07:47 PM
Authorized User
 
Join Date: Jun 2003
Posts: 75
Thanks: 0
Thanked 0 Times in 0 Posts
Default DTSTransformStat_ExceptionRow

Hi.
I have a DTS package that uses an ActiveX script for transferring data from a text file to a SQL 2000 table. I'm testing a DTSSource column for spaces and exiting the routine if it's spaces.
I set MAIN = DTStRansformStat_ExceptionRow and Exit the function.

It worksd fine, I get the error row in the log but I don't get a meaningful error message.
I tried to set MAIN = DTSTransformStat_ExceptionRow("My Error Message") but I got an error in the log saying "Wrong number of arguments".

How do I pass along a meaningful error message when I set
MAIN = DTSTransformStat_ExceptionRow?

Here's my code:

Function Main()
    If (Trim(DTSSource(6)) = "" Or Trim(DTSSource(7)) = "") Then
        Main = DTSTransformStat_ExceptionRow
        Exit Function
    End If

    DTSDestination("RecordType") = DTSSource(1)
    Etc...

TIA.

Rita









Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.