Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Convert XML to ADO Recordset?
- Thread starter kloner
- Start date
Well,
You could try the following:
Create a recordset that represents the one you would like to create with xmldata and save the recordset to an xml file. This way you would allready have the thoughest part of the xml data, being the definition of the elements and attributes.
In your application or script or whatever, you can now program against the Dom to create the first part (or just load it if it is default) and just add nodes for the different records.
Hope you can make anything out of this!
Jordi Reineman
You could try the following:
Create a recordset that represents the one you would like to create with xmldata and save the recordset to an xml file. This way you would allready have the thoughest part of the xml data, being the definition of the elements and attributes.
In your application or script or whatever, you can now program against the Dom to create the first part (or just load it if it is default) and just add nodes for the different records.
Hope you can make anything out of this!
Jordi Reineman
kloner:
Here is an example for a "not so large" xml file to pass thru ADO via HTML/ASP for a pure data stream(no XSLT).
<%@ language=vbscript %>
<html>
<head>
<title></title>
<%
Dim i
dim oRs
dim sTable
set oRs = Server.CreateObject("ADODB.Recordset"
set oRs.ActiveConnection = nothing
oRs.CursorLocation = adUseClient
oRs.CursorType = adOpenStatic
oRs.LockType = adLockReadOnly
oRs.Source = YOUR XML FILE
oRs.Open
%>
</head>
<body>
what your text is
<%
sTable = "<table border=1>"
sTable = sTable & "<tr>"
For i = 0 to oRs.Fields.Count - 1
sTable = sTable & "<td><b>" & oRs.Fields(i).Name & "</b></td>"
Next
oRs.MoveNext
sTable. = sTable & "</tr>"
Do while not oRs.EOF
sTable = sTable & "<tr>"
For i = 0 to oRs.Fields.Count - 1
sTable = sTable & "<td><b>" & oRs.Fields(i).Name & "</b></td>"
Next
oRs.MoveNext
sTable. = sTable & "</tr>"
Loop
sTable = sTable & "</table>"
Response.Write sTable
%>
</body>
</html>
<%
oRs.Close
set oRs = nothing
%>
Fear is the mind killer!!!!!!
Here is an example for a "not so large" xml file to pass thru ADO via HTML/ASP for a pure data stream(no XSLT).
<%@ language=vbscript %>
<html>
<head>
<title></title>
<%
Dim i
dim oRs
dim sTable
set oRs = Server.CreateObject("ADODB.Recordset"
set oRs.ActiveConnection = nothing
oRs.CursorLocation = adUseClient
oRs.CursorType = adOpenStatic
oRs.LockType = adLockReadOnly
oRs.Source = YOUR XML FILE
oRs.Open
%>
</head>
<body>
what your text is
<%
sTable = "<table border=1>"
sTable = sTable & "<tr>"
For i = 0 to oRs.Fields.Count - 1
sTable = sTable & "<td><b>" & oRs.Fields(i).Name & "</b></td>"
Next
oRs.MoveNext
sTable. = sTable & "</tr>"
Do while not oRs.EOF
sTable = sTable & "<tr>"
For i = 0 to oRs.Fields.Count - 1
sTable = sTable & "<td><b>" & oRs.Fields(i).Name & "</b></td>"
Next
oRs.MoveNext
sTable. = sTable & "</tr>"
Loop
sTable = sTable & "</table>"
Response.Write sTable
%>
</body>
</html>
<%
oRs.Close
set oRs = nothing
%>
Fear is the mind killer!!!!!!
- Status