This is not complete, but hopefully shows you where you were going
wrong-
DTS.Package2Class pkg = new DTS.Package2Class();
DTS.DataPumpTask2 oCustTask;
DTS.Task oTask;
oTask = pkg.Tasks.New("DTSDataPumpTask");
oCustTask = (DTS.DataPumpTask2)oTask.CustomTask;
DTS.Transformation2 oTransformation;
oTransformation =
(DTS.Transformation2)oCustTask.Transformations.New("DTS.DataPumpTransform
Script");
oTransformation.Name = "AxScriptXform";
oTransformation.TransformFlags = 63;
oTransformation.ForceSourceBlobsBuffered = 0;
DTSPump.DataPumpTransformScript objTransScript =
(DTSPump.DataPumpTransformScript)oTransformation.TransformServer;
string ssss = "";
ssss = " Function Main() ";
ssss += " DTSDestination('id2') = DTSSource('au_lname') ";
ssss += " Main = 1 "; //DTSTransformStat_OK
ssss += " End Function ";
objTransScript.Text = ssss;
objTransScript.Language = "VBScript";
objTransScript.FunctionEntry = "Main";
In message <bcb64ccd.0403300042.711577b1@posting.google.com>, Efrat
<shachare@bgumail.bgu.ac.il> writes
[quoted text, click to view] >Hi,
>
>I have simple code that work fine in VB,
>but I have problem to translate in to C#.
>
>The Code in VB:
>-------------------
> Set oTransform =
>oCustTask.Transformations.New("DTSPump.DataPumpTransformScript")
> oTransform.Name = "Transform"
> oTransform.TransformFlags = DTSTransformFlag_Default
> Set objTransScript = oTransform.TransformServer
> With objTransScript
> .Text = "Function Main()" & vbCrLf 'Replace(s,n,BiosSerial)
> .Text = .Text & " DTSDestination(""id2"") = DTSSource
>(""au_lname"") " & vbCrLf
> .Text = .Text & " Main = 'DTSTransformStat_OK " & vbCrLf
> .Text = .Text & "End Function"
> .Language = "VBScript"
> .FunctionEntry = "Main"
> End With
>
>
>I try to convert in to C#
>------------------------------
>oTransformScript = oCustTask.Transformations.New
>("DTSPump.DataPumpTransformScript");
>oTransformScript.Name="ScriptTransform";
>objTransScript =
>(DTSPump.DataPumpTransformScript)oTransformScript.TransformServer;
>string ssss = "";
>oTransformScript.TransformFlags = 63;//DTSTransformFlag_Default
>ssss = " Function Main() ";
>ssss += " DTSDestination('id2') = DTSSource('au_lname') ";
>ssss += " Main = 1 "; //DTSTransformStat_OK
>ssss += " End Function ";
>objTransScript.Text = ssss;
>objTransScript.Language = "VBScript";
>objTransScript.FunctionEntry = "Main";
>
>Any help will be appreciated
--
Darren Green (SQL Server MVP)
DTS -
http://www.sqldts.com PASS - the definitive, global community for SQL Server professionals
http://www.sqlpass.org