Fråga : Microsoft.SqlServer.Dts.Pipeline i XML


Jag har en vb.net att skriva skriftligt för att frambringa en XML sparar från förutsatt att data. I en av beståndsdelen stränger, I-förmiddagen som får ”Microsoft.SqlServer.Dts.Pipeline” som en värdera. De faktiska datan sätter in är ett stort sätter in (varchar (max)).

Se för att fodra 106.

Förmiddag som I ganska är ny till denna och hjälp, uppskattas väldeliga.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
'Microsoft SQL serverintegration servar användaren skrivar del-
'Detta är ditt nytt skrivar del- i Microsoft Visual Basic .NET
'ScriptMain är entrypointen klassificerar för skrivar delar

Importsystem
Importer System.Data
Importer System.Math
Importer System.IO
Importer Microsoft.SqlServer.Dts.Pipeline.Wrapper
Importer Microsoft.SqlServer.Dts.Runtime.Wrapper
Importer System.Xml

Allmänhet klassificerar ScriptMain
    Övertar UserComponent
    Dunkel strömbrytare som StreamWriter
    'Förutom att använda meddelandet för importer System.Xml en hänvisa till måste tillfogas till
    'Vald System.Xml-  enhet (Projektera-Tillfoga hänvisar till från IDE),
    Dunkel xWriter som XmlTextWriter
    Dunkla OutputFileType som stränger ”.csv eller .xml”,


    Offentliga åsidosättanden underPreExecute ()

        'Läs endast variabler
        Dunkel gsPickUp som stränger = Me.Variables.gsPickUp ”D:\ftproot\Out\Avid”,
        Dunkel gsPickUpFilename som stränger = Me.Variables.gsPickUpFilename ”1_AVID_”,
        Dunkel gsPickUpFileExtn som stränger = Me.Variables.gsPickUpFileExtn ”.csv”,
        Dunkel gsMemoText som stränger = Me.Variables.gsMemoText-”Memotext: kreditera justering”,
        Dunkel gsStatementText som stränger = Me.Variables.gsStatementText-”meddelandetext: kreditera justering”,
        Dunkel gsRunMode som stränger = Me.Variables.gsRunMode ”UPPDATERING”,
        Dunkel gsFileType som stränger = Me.Variables.gsFileType
        Dunkel fileName som stränger = gsPickUp & ”\” & gsPickUpFilename
        fileName = fileName & (formatera (nu (), ”yyyyMMddHHmm”) .ToString)

        'MsgBox (fileName)


        OutputFileType = gsPickUpFileExtn

        Om OutputFileType = ”.xml” därefter
            fileName = fileName & gsPickUpFileExtn
            'xWriter = nya XmlTextWriter (Me.Connections.XMLConnection.ConnectionString, ingenting)
            'xWriter.WriteStartDocument ()
            'xWriter.WriteComment (”kunden sparar parsed using skrivar”),
            'xWriter.WriteStartElement (”x”, ”kunden”, ”http://some.org/name”)
            'xWriter.WriteAttributeString (”FileName”, Me.Connections.XMLConnection.ConnectionString)
            xWriter = nya XmlTextWriter (fileNamen, ingenting)
            'xWriter.Formatting = Formatting.Indented
            'xWriter.Indentation = 0
            xWriter.WriteStartDocument ()
            xWriter.WriteComment (”kunden sparar parsed using skrivar”),
            xWriter.WriteStartElement (”x”, ”kommunikation”, "")
            'xWriter.WriteAttributeString (”typ”, gsFileType)



        Avsluta om



    Avsluta suben




    Offentliga åsidosättanden underParsedInput_ProcessInputRow (ByVal ror som ParsedInputBuffer),



        Om OutputFileType = ”.xml” därefter
            xWriter.WriteString (Environment.NewLine)
            xWriter.WriteStartElement (”x”, ”kommunikation”, "")
            xWriter.WriteAttributeString (”typ”, ”LogSMS”)


            xWriter.WriteElementString (”CommunicationLog_SMSId”, Row.CommunicationLogSMSId.ToString)
            xWriter.WriteElementString (”CommunicationLogId”, Row.CommunicationLogId.ToString)
            xWriter.WriteElementString (”LMDealershipCode”, Row.LMDealershipCode.ToString)
            xWriter.WriteElementString (”MQDealershipId”, Row.MQDealershipId.ToString)
            xWriter.WriteElementString (”ChannelCode”, Row.ChannelCode.ToString)
            xWriter.WriteElementString (”VersionId”, Row.VersionId.ToString)
            xWriter.WriteElementString (”InstanceId”, Row.InstanceId.ToString)
            xWriter.WriteElementString (”SendDateTime”, Row.SendDateTime.ToString)
            xWriter.WriteElementString (”TimeZone”, Row.TimeZone.ToString)
            xWriter.WriteElementString (”CampaignType”, Row.CampaignType.ToString)
            xWriter.WriteElementString (”CampaignCode”, Row.CampaignCode.ToString)
            xWriter.WriteElementString (”CampaignName”, Row.CampaignName.ToString)
            xWriter.WriteElementString (”CustomerFirstName”, Row.CustomerFirstName.ToString)
            xWriter.WriteElementString (”CustomerLastName”, Row.CustomerLastName.ToString)
            xWriter.WriteElementString (”CustomerAddress1”, Row.CustomerAddress1.ToString)
            xWriter.WriteElementString (”CustomerAddress2”, Row.CustomerAddress2.ToString)
            xWriter.WriteElementString (”CustomerCity”, Row.CustomerCity.ToString)
            xWriter.WriteElementString (”CustomerState”, Row.CustomerState.ToString)
            xWriter.WriteElementString (”CustomerZip”, Row.CustomerZip.ToString)
            xWriter.WriteElementString (”CustomerHomePhoneNumber”, Row.CustomerHomePhoneNumber.ToString)
            xWriter.WriteElementString (”CustomerCellPhoneNumber”, Row.CustomerCellPhoneNumber.ToString)
            xWriter.WriteElementString (”CustomerEmailAddress”, Row.CustomerEmailAddress.ToString)
            xWriter.WriteElementString (”VIN”, Row.VIN.ToString)
            xWriter.WriteElementString (”DMSEventDateTime”, Row.DMSEventDateTime.ToString)
            xWriter.WriteElementString (”DMSEventType”, Row.DMSEventType.ToString)
            xWriter.WriteElementString (”DMSRetailCode”, Row.DMSRetailCode.ToString)
            xWriter.WriteElementString (”IsTest”, Row.IsTest.ToString)
            xWriter.WriteElementString (”ToPhoneNumber”, Row.ToPhoneNumber.ToString)
            xWriter.WriteElementString (”FromEmailAddress”, Row.FromEmailAddres.ToString)
            xWriter.WriteElementString (”betvinga”, Row.Subject.ToString),
            xWriter.WriteElementString (”text”, ror. [Text] .ToString)
            xWriter.WriteElementString (”ProcessDateTime”, Row.ProcessDateTime.ToString)
            xWriter.WriteElementString (”SourceCode”, Row.SourceCode.ToString)
            xWriter.WriteElementString (”SourceId1Name”, Row.SourceId1Name.ToString)
            xWriter.WriteElementString (”SourceId1Value”, Row.SourceId1Value.ToString)
            xWriter.WriteElementString (”SourceId2Name”, Row.SourceId2Name.ToString)
            xWriter.WriteElementString (”SourceId2Value”, Row.SourceId2Value.ToString)
            xWriter.WriteElementString (”SourceId3Name”, Row.SourceId3Name.ToString)
            xWriter.WriteElementString (”SourceId3Value”, Row.SourceId3Value.ToString)


            xWriter.WriteEndElement ()
            'xWriter.WriteString (Environment.NewLine)
            'Skriv (”,
”) Avsluta om Avsluta suben Offentliga åsidosättanden underPostExecute () Om OutputFileType = ”.xml” därefter 'xWriter.WriteStartElement (”RecordCount”) 'xWriter.WriteString (Me.Variables.giSuccessCount.ToString) 'xWriter.WriteEndElement () 'xWriter.WriteEndElement () xWriter.WriteEndDocument () xWriter.Close () Avsluta om Avsluta suben Avsluta klassificerar

Svar : Microsoft.SqlServer.Dts.Pipeline i XML

Standardreturen värderar för den ToString metoden, härlett från System.Object, är att gå den kända fully-qualified typen tillbaka.  Om du får typen, värdera, då jag skulle funderare som du skulle behov att finna en egenskap på anmärka för att få rätten värderar, i stället för ToString.
Andra lösningar  
 
programming4us programming4us