Collegare file xml a database access ed esportare i dati delle tabelle

[bibuz]

Salve a tutti e buona giornata.
Ho la necessità di collegare un file xml a un db access per esportare i dati delle tebelle.
Potete cortesemente suggerirmi il metodo per fare questa operazione.
Una volta popolato il file xml poi lo manipolo per formattare i dati nella tabella della pagina html.

Grazie e tutti in anticipo per il supporto.

[tiger255]

Scusa se rispondo alla domanda con un'altra domanda, ma perchè non usi un recordset da una pagina ASP per generare l'HTML anzichè passare per un file XML?

[bibuz]

Scusa se rispondo alla domanda con un'altra domanda, ma perchè non usi un recordset da una pagina ASP per generare l'HTML anzichè passare per un file XML?

Perché devo creare una APP con JQuery Mobile e non posso usare pagine asp per visualizzare direttamente i risultati.
Allora voglio provare in questa maniera.
Creo un file XML che mostra i dati di un db access.
A quel punto tramite i dataset spry visualizzo i risultati in una pagina con estensione HTML.

Spero di essere stato esaudiente.

[bibuz]

Sono riuscito a collegarmi al db ed estrarre i dati solo che mi visualizza solo l'ultimo record.

Ecco lo script:

<%
 response.ContentType = "text/xml"
 set conn=Server.CreateObject("ADODB.Connection")
 conn.provider="Microsoft.Jet.OLEDB.4.0;"
 conn.open server.mappath("xxxxxxxx")
 sql="select * from tabella"
 set rs=Conn.Execute(sql)
 while (not rs.EOF)
 text="<guest>"
 text=text & "<voce1>" & rs("uvoce1) & "</uvoce1"
 text=text & "<voce2>" & rs("voce2") & "</voce2>"
 text=text & "</guest>"
 
 set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
 xmlDoc.async=false
 xmlDoc.loadXML(text)
 rs.MoveNext()
 wend
 
 rs.close()
 conn.close()
 xmlDoc.Save (Server.MapPath("testXmlDati.xml")) 
 %>

Da cosa può dipendere?

[br1]

Fai la creazione del tuo xml all'interno del ciclo... spostala prima della while

[bibuz]

Fai la creazione del tuo xml all'interno del ciclo... spostala prima della while

Ho provato ma non cambia nulla. Mi scrive sempre l'ultimo record.

<%
 response.ContentType = "text/xml"
 set conn=Server.CreateObject("ADODB.Connection")
 conn.provider="Microsoft.Jet.OLEDB.4.0;"
 conn.open server.mappath("/gestionale/database/scadenzeDomini.mdb")
 sql="select * from login order by username DESC"
 set rs=Conn.Execute(sql)
 
 while (not rs.EOF)
 text="<guest>"
 text=text & "<username>" & rs("username") & "</username>"
 text=text & "<password>" & rs("password") & "</password>"
 text=text & "</guest>"
 
  set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
 xmlDoc.async=false
 xmlDoc.loadXML(text)
 xmlDoc.Save (Server.MapPath("testXmlDati.xml")) 
 
 rs.MoveNext()
 wend
 
 rs.close()
 conn.close()
 %>

[bibuz]

Ho risolto con questo script:

<%
 ' Name of the access db being queried
 'accessdb="state_info" 
 ' Connection string to the access db
 cn="DRIVER={Microsoft Access Driver (*.mdb)};"
 cn=cn & "DBQ=" & server.mappath("/xxxxxxxx")
 ' Create a server recordset object
 Set rs = Server.CreateObject("ADODB.Recordset")
 ' Query the states table from the state_info db
 sql = "select * from tb1 order by username DESC" 
 ' Execute the sql
 rs.Open sql, cn
 ' Move to the first record
 rs.MoveFirst
 ' Name for the ouput document 
 file_being_created= "states.xml"
 ' create a file system object
 set fso = createobject("scripting.filesystemobject")
 ' create the text file - true will overwrite any previous files
 ' Writes the db output to a .xml file in the same directory 
 Set act = fso.CreateTextFile(server.mappath(file_being_created), true)
 ' All non repetitive xml on top goes here
 act.WriteLine("<?xml version=""1.0""?>")
 act.WriteLine("<states>")
 'Loop to output all the query results to the xml document
 do while not rs.eof
 ' counter to give each record a sequential listing
 counter=counter+1
 act.WriteLine("<state>")
 act.WriteLine("<voce1>" & rs("uvoce1) & "</uvoce1" )
 act.WriteLine("<voce2>" & rs("voce2") & "</voce2>" )
 act.WriteLine("</state>")
 ' move to the next record
 rs.movenext
 loop
 ' All non repetitive xml on bottom goes here
 act.WriteLine("</states>")

 ' close the object (xml)
 act.close

 ' Writes a link to the newly created xml document in the browser
 response.write "<a href='states.xml'>States</a> (.xml) has been created <br>"
 response.write "on " & now() & "<br>"
 %>