• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Saving information to an XML file format

Saving information to an XML file format

Saving information to an XML file format

Rate Saving information to an XML file format

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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