Jag vill att man via en ASP fil ska kunna skriva ner en MSSQL tabell till en XLS fil. Ett exempel: Tack så mycket för hjälpen!SQL till XLS med ASP
Fick hjälp av "Higgins" med att få det att funka åt andra hållet (XLS>SQL), Tack!
men jag får det tyvärr inte att funka om jag vill skriva ner data till en cls fil. Någon som har en idé?
Mvh,
Fredrik Månsson
********************************************
Higgins tidigare svar på xls -> SQL:
Det går bra. Öppna Excelfilen med ADO
Set cnM = Server.CreateObject("ADODB.Connection")
cnM.ConnectionString = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=" & App.Path & "\test.xls" & ";"
cnM.Open
Läs in datat i ett recordset
Set rsM= Server.CreateObject("ADODB.Recordset")
rsM.Open "SELECT * FROM [sheet1$]", cnM
Och tanka sedan över datat till SQL Servern med ado.
Fast du kan inte använda App.Path som i exemplet, det är för vb. I ASP använder man
Request.ServerVariables("APPL_PHYSICAL_PATH")
för att få den absoluta sökvägen till sina asp-filer.
*****************************************Sv: SQL till XLS med ASP
<code>
<!-- #include file="adovbs.inc" -->
<%
' Radera ev tidigare fil
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath("db_xml.xml")) Then
objFSO.DeleteFile Server.MapPath("db_xml.xml")
End IF
Set objFSO = Nothing
Dim cnnXML
Dim rstXML
' Skapa en connection
Set cnnXML = Server.CreateObject("ADODB.Connection")
' Anslut till databasen
'cnnXML.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
' & Server.MapPath("biblio.mdb") & ";"
' hämta ut data från valfri datakälla
Set rstXML = Server.CreateObject("ADODB.Recordset")
Set rstXML = cnnXML.Execute("SELECT * FROM tabell")
Response.Write "<p>Sparar data som XML...</p>" & vbCrLf
' Spara filen till XML format.
rstXML.Save Server.MapPath("db_xml.xml"), adPersistXML
' Stäng recordset och connection
rstXML.Close
Set rstXML = Nothing
cnnXML.Close
Set cnnXML = Nothing
Response.Write "<p>XML file skriven...</p>" & vbCrLf
Response.Write "<p>Klicka here för att visa filen.</p>" & vbCrLf
%>
</code>Sv: SQL till XLS med ASP
En liten undring bara. Här skrivs ju datat ner i en XML fil. Är det så man måste göra, går det inte att skriva direkt till en excel fil?
Mvh,
Fredrik Månsson