Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Need help with ActiveX Script!!
1 view
Skip to first unread message
B.
Jul 25, 2006, 4:26:07 AM7/25/06
to
I am totally new to VB and i have just started to learn it. I am stuck
at the very basics so i would really appreciate any help.
What i need to do is transfer the information from an Excel file to a
SQL server table via a DTS package by copying columns. During the
transfer i need to perform some data transformation. One of these
consists in creating an ActiveX Script to check one of the Excel file
columns which contains strings in the form LI,LO and trim the L to
transfer just the I's and O's in one of the table columns. The code i
have so far is:
at the very basics so i would really appreciate any help.
What i need to do is transfer the information from an Excel file to a
SQL server table via a DTS package by copying columns. During the
transfer i need to perform some data transformation. One of these
consists in creating an ActiveX Script to check one of the Excel file
columns which contains strings in the form LI,LO and trim the L to
transfer just the I's and O's in one of the table columns. The code i
have so far is:
' Copy each source column to the destination column
Function Main()
Dim MyString
If InStr (MyString, "L") <> 0 Then
Right$(MyString,1)
End If
DTSDestination("PTYPE") = DTSSource("Col004")
Main = DTSTransformStat_OK
End Function
However it is prompting for an error.Does anyone have any idea
why?Thank you very much for your time!
0 new messages