Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
Data to XML
Author:
Kobus De Jager
E-mail:
Click to e-mail author
Website:
http://www.netnet.ca
Submitted:
5/18/2004
Version:
VB6
Compatibility:
VB6
Category:
XML
Views:
25476
Saving data to an XML file format from VB.
Declarations:
'Remember to refrence MSADO libraries
Code:
Private Sub configQnbsFile() Dim rsXML As New ADODB.Recordset 'create xmlfile Dim cmpnm As String, strFile As String, i As Long, p As Long i = cboReg(0).ListIndex p = cboReg(1).ListIndex strFile = App.Path & "\30q.nbs" With rsXML .Fields.Append "LctnX", adChar, 20 .Fields.Append "LctnXID", adChar, 20 .Fields.Append "FunctionalityX", adChar, 20 .Fields.Append "FunctionalityXID", adChar, 20 .Fields.Append "CmptrNmX", adChar, 30 .Fields.Append "IPX", adChar, 30, adFldIsNullable .Fields.Append "DtX", adChar, 20, adFldIsNullable .Fields.Append "NtPthX", adChar, 80, adFldIsNullable .Fields.Append "WNPthX", adChar, 80, adFldIsNullable .Fields.Append "LCLPthX", adChar, 80, adFldIsNullable .Fields.Append "FnNumX", adChar, 15, adFldIsNullable .Fields.Append "CreaterID", adChar, 20, adFldIsNullable .Fields.Append "address", adVariant, 250, adFldIsNullable cmpnm = Trim$(txtReg(1).Text) .Open .AddNew .Fields(0).Value = "North Shop" .Fields(1).Value = "Down Town" .Fields(2).Value = "13 the Ave" .Fields(3).Value = "NBS Solutions" .Fields(4).Value = "www.netnet.ca" .Fields(5).Value = "New Value" .Fields(6).Value = Date .Fields(7).Value = "N/A" .Fields(8).Value = "N/A" .Fields(9).Value = "N/A" .Fields(10).Value = "software @ netnet.ca" .Fields(11).Value = "1" .Fields(12).Value = "N/A" .Update .Save strFile, adPersistXML If .State = adStateOpen Then .Close End With End Sub
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement