• Home
  • Billiards
  • Classic ASP
  • Browse Blog
    • Halifax
    • Internet
    • Internet Marketing
    • Programming
    • SEO
    • sitemap
    • Skateboarding
    • technology
      • Automation
    • travel
    • Web Development
    • Web Hosting
    • Website Management
    • wedding
  • Subscribe via RSS

Disconnected Recordset in Classic ASP VBScript

October 3rd, 2009  |  Published in Programming




What is a Disconnected Recordset?

A Disconnected Recordset is A recordset object that exists in an application, but does not have an associated data connection associated with it.

Why use a Disconnected Recordset?

The ADO Recordset is considered an extremely “rich object model” which means it provides more functionality than say, an array.
Also, you can load XML into a disconnected recordset, which means that there is no difference in your RS than if you hit a database.

How to code a Disconnected Recordset?

Here is an example of putting data from XML into a recordser, a disconnected recordset to be exact.

Const adVarChar = 200
Const adSingle = 4
Const adPersistxml = 1
Const adUseClient = 3
Const adOpenStatic = 3
Const adLockBatchOptimistic = 4
Const adStateOpen = 1

Public Function fGetXmlForRs(strFieldsCsv, intFieldLen)
	Dim objRs, arrFields, intCount, objXmlDom, objXmlRows, objXmlRow, objXmlColumns, objXmlColumn
	
	Set objRs  = CreateObject("ADODB.recordset") 'create disc. rs
	Set objXmlDom = CreateObject("Msxml2.DOMDocument")
	
	objXmlDom.LoadXML "YOUR_XML_HERE" 
	
	arrFields = split(replace(strFieldsCsv," ",""),",") 
	For intCount = 0 To uBound(arrFields)
		objRs.Fields.Append arrFields(intCount), adVarChar, intFieldLen  'fieldname, type, size
	Next
	objRs.Open , , adOpenStatic, adLockBatchOptimistic


	Set objXmlRows = objXmlDom.selectNodes("YOUR_ROW_NODE_HERE") 
	For Each objXmlRow In objXmlRows  'for each row 
		intCount = 0 
		set objXmlColumns = objXmlRow.selectNodes("col")
		objRs.AddNew()
		For Each objXmlColumn In objXmlColumns
			objRsLocal (arrRequestedFields(intCountCol)).value = objXmlColumn.text
			intCount = intCount + 1
		Next
		objRs.Update()
	Next		

	
	Set objXmlDom = Nothing	
	Set fGetRntRs = objRs	
	Set objRs .ActiveConnection = Nothing
End function

To use the XML to Recordset function, just call this:

Set yourNewRs = fGetXmlForRs("field1name, field2name, etc", 255)

do while not yourNewRs.eof....

Leave a Response

Tags

1and1 adsense asp caribbean classic asp crowdsourcing CTR cuba Cueva de Pirata customer service database dominican republic forum management godaddy google Halifax hosting hotel ideagora Internet Linux MySQL objWmiService outsourcing php Pirates Cave plugin scripting scripts SEO Skateboarding sql travel Varadero vbs vbscript web browser web development wedding What is Crowdsourcing? wikipedia windows windows scripting winmgmts xp

Pages

  • About Robar’s Pages
    • Privacy Policy for robarspages.ca
  • Classic ASP Programming and Development
  • Gran Bahia Principe Wedding
  • YouTube Extension Plugins for WordPress

Categories

  • Automation
  • Halifax
  • Internet
  • Internet Marketing
  • Programming
  • SEO
  • sitemap
  • Skateboarding
  • technology
  • travel
  • Web Development
  • Web Hosting
  • Website Management
  • wedding

Recent Posts

  • HTTP_X_EAC_REQUEST
  • eZooms Bot User Agent
  • SQL Full Outer Join Three Tables
  • Classic ASP Data Caching for Performance
  • Comparing OLE DB and ODBC Connections

Recent Comments

  • AP on 1and1 Corporate Headquarters Phone Number
  • AJ on 1and1 Corporate Headquarters Phone Number
  • cordova on 1and1 Corporate Headquarters Phone Number
  • mike on 1and1 Corporate Headquarters Phone Number
  • David on Regex MM/YYYY Regular Expression for Credit Card Expiration Date
©2023 Robar's Pages
Sitemap and Table Of Contents