Notifikationer

Markér alle som læst Log ud

iggipop Nybegynder

20. oktober 2004 - 14:02 Der er 24 kommentarer og
2 løsninger

Udtræk fra database

Hejsa!

Jeg har en access database. Kan man fra min side via ASP lave en udtræk som automatisk tager alle felter fra databasen og gemmer i et excelark eller i en kommasepareret fil ?

Det skal selvfølgelig foregå online, så ikke noget med at bruge MS ACCESS.

Det kommer sig af at en af mine brugerne vil kunne trække medlemsoplysninger ud online?

Kan man løse det på en eller anden måde ?

Synes godt om

koldstar Nybegynder

20. oktober 2004 - 14:05 #1

Det kan du let lave. Det kan lave det både som csv-fil eller tekst. (csv-filen består af ren tekst).

Synes godt om

loukas Mester

20. oktober 2004 - 15:16 #2

prøv at kigge på fso:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/sgprogrammingfilesystemobject.asp

Synes godt om

michaelfp Nybegynder

20. oktober 2004 - 19:49 #3

Er det alle feltnavne/definitioner eller indholdet af felter du vil udlæse?

Synes godt om

iggipop Nybegynder

20. oktober 2004 - 22:01 #4

Det er en medlemsbase der fortæller adresser og navne og diverse andet. Der er så en admin der skal kunne lave et udtræk indimellem. Ja det er i princippet alle felter fra en base, men om det kun er specifikke felter er jeg egentlig ikke helt klar over...gør det den store forskel ?

Men gider i ikke prøve at give et eksempel på hvordan jeg gør ?
Jeg er ik så god til at 'forstå' der der eksempler på M$ :o)

Synes godt om

michaelfp Nybegynder

20. oktober 2004 - 22:23 #5

Ja det gør en meget stor forskel, om du vil trække definitioner eller data ud. Nedenstående funktion (måske skal der rettes et par ting) burde du kunne teste med.

Hvis du på en asp side åbner connection til din database, før du kalder funktionen OG du ændrer CONN til det du kalder din connectionstring, så burde du kunne komme videre.. (funktioner slutter af med at vise et link, som excel kan åbnes med)

Funktionen kalder du med en titel til regnearket og navnet på tabellen/recordsettet du vil have ekporteret til excel.

..jeg lukker og slukker for idag..

Function CreateExcel(Title,tblname)
Dim Rs,Fso,Act,fname
Fname = "skriv navn på excel sheet"
Set rs = Server.CreateObject("ADODB.Recordset")
Set FSO = Createobject("scripting.filesystemobject")
Set act = Fso.CreateTextfile(server.mappath(Fname),true)
rs.Open Tblname, conn, 3, 3
If Not Rs.EOF and not Rs.BOF Then
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
act.WriteLine "<head>"
act.WriteLine " "
act.WriteLine "</head>"
act.WriteLine "<body>"

Act.Writeline "<table border=1>"
Act.Writeline "<Tr>"
For X = 0 to Rs.Fields.count - 1
Act.Writeline "<Td><b>" Rs.Fields.Item(x).Name & "</b></td>"
Next
Act.Writeline "</Tr>"
While not Rs.Eof
Act.Writeline "<Tr>"
For X = 0 To Rs.Fields.Count - 1
Act.Writeline "<Td>" & Rs.Fields.Item(X).Value
Next
Act.Writeline "</Tr>"

Rs.Movenext

Wend
Act.Writeline "</Table>"
act.writeline "<tr></tr>"
act.writeline "<tr>Powered by **mig**</tr>"
act.WriteLine "</body>"
act.WriteLine "</html>"

End if
Act.close
Rs.close
<% Din excel fil kan hentes hér: <a href="<%=fname%>" target="_blank"> Klik her </a><%
End function

Synes godt om

sho Nybegynder

20. oktober 2004 - 22:34 #6

Og måske lidt simplere:

strSQL="SELECT * FROM tabel"
set objRS=objConn.execute(strSQL)

if not objRS.EOF then
strFil = Server.MapPath("filnavn.txt")

set fso = CreateObject("Scripting.FileSystemObject")
set file1 = fso.OpenTextFile(strFil, 2, true)

file1.writeline "Kolonne1;Kolonne2"
Do while not objRS.EOF
file1.writeline objRS("felt1") & ";" & objRS("felt2")
objRS.MoveNext
loop

file1.close
end if

Synes godt om

iggipop Nybegynder

21. oktober 2004 - 08:55 #7

Jamen det jeg vil have ud er selvfølgelig data i felterne. Men gerne med Feltnavne som overskrift.

sho > Er det med ; som separator ? Og kan det være en excel fil eller er det kun en ren tekst fil ?

Synes godt om

iggipop Nybegynder

21. oktober 2004 - 09:38 #8

sho > Jeg har fået dit til at virke. Det var ret nemt.

Men michaelfp > jeg vil meget gerne prøve dit også, men jeg skal have lidt mere hjælp til at komme igang ! Pleaze ?

Synes godt om

iggipop Nybegynder

21. oktober 2004 - 11:03 #9

Jeg tror ikke helt jeg kan finde ud af den svære løsning...sådan her har jeg gjort indtil videre, men det virker ikke ??

<%
session.lcid="1030"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../../db/database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM medlemmer"
set RS=objConn.execute(strSQL)

Function CreateExcel(Title,tblname)
Dim Rs,Fso,Act,fname
Fname = "Udtrak"
Set rs = Server.CreateObject("ADODB.Recordset")
Set FSO = Createobject("scripting.filesystemobject")
Set act = Fso.CreateTextfile(server.mappath(Fname),true)
rs.Open Tblname, objconn, 3, 3
If Not Rs.EOF and not Rs.BOF Then
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
act.WriteLine "<head>"
act.WriteLine " "
act.WriteLine "</head>"
act.WriteLine "<body>"

Act.Writeline "<table border=1>"
Act.Writeline "<Tr>"
For X = 0 to Rs.Fields.count - 1
Act.Writeline "<Td><b>" Rs.Fields.Item(x).Name & "</b></td>"
Next
Act.Writeline "</Tr>"
While not Rs.Eof
Act.Writeline "<Tr>"
For X = 0 To Rs.Fields.Count - 1
Act.Writeline "<Td>" & Rs.Fields.Item(X).Value
Next
Act.Writeline "</Tr>"

Rs.Movenext

Wend
Act.Writeline "</Table>"
act.writeline "<tr></tr>"
act.writeline "<tr>Powered by **mig**</tr>"
act.WriteLine "</body>"
act.WriteLine "</html>"

End if
Act.close
Rs.close
<% Din excel fil kan hentes hér: <a href="<%=fname%>" target="_blank"> Klik her </a><%
End function

'Reset server objects
rs.Close
Set rs = Nothing
Set objConn = Nothing

%>

Synes godt om

sho Nybegynder

21. oktober 2004 - 11:47 #10

Umiddelbart er det "kun" som semikolonsepareret - det andet er knap så simpelt, men kan selvfølgelig lade sig gøre :-)

Synes godt om

iggipop Nybegynder

21. oktober 2004 - 11:57 #11

sho > Det virker fint som løsning. Dog vil jeg gerne have det andet til at virke. kan du hjælpe med det ?

Synes godt om

sho Nybegynder

21. oktober 2004 - 12:09 #12

Ja, men har ikke tid lige nu, så det bliver i aften, eller måske først i morgen.

Synes godt om

-mundi- Nybegynder

21. oktober 2004 - 12:09 #13

<%
session.lcid="1030"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

sub CreateExcel(Title,tblname)
Dim Rs,Fso,Act,fname
Fname = "Udtræk.xls"
Set rs = Server.CreateObject("ADODB.Recordset")
Set FSO = Createobject("scripting.filesystemobject")
Set act = Fso.CreateTextfile(server.mappath(Fname),true)
rs.Open Tblname, objconn, 3, 3
If Not Rs.EOF and not Rs.BOF Then
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
act.WriteLine "<head>"
act.WriteLine " "
act.WriteLine "</head>"
act.WriteLine "<body>"

Act.Writeline "<table border=1>"
Act.Writeline "<Tr>"
For X = 0 to Rs.Fields.count - 1
Act.Writeline "<Td><b>" &Rs.Fields.Item(x).Name & "</b></td>"
Next
Act.Writeline "</Tr>"
While not Rs.Eof
Act.Writeline "<Tr>"
For X = 0 To Rs.Fields.Count - 1
Act.Writeline "<Td>" & Rs.Fields.Item(X).Value&"</td>"
Next
Act.Writeline "</Tr>"

Rs.Movenext

Wend
Act.Writeline "</Table>"
act.WriteLine "</body>"
act.WriteLine "</html>"

End if
Act.close
Rs.close
%> Din excel fil kan hentes hér: <a href="<%=fname%>" target="_blank"> Klik her </a> <%
End sub

call CreateExcel("Titelnavn","tabelnavn")
'Reset server objects

Set rs = Nothing
Set objConn = Nothing

%>

Synes godt om

sho Nybegynder

21. oktober 2004 - 12:18 #14

Michaelfps burde virke - med et par smårettelser:

Function CreateExcel(Title,tblname)
Dim Rs,Fso,Act,fname
Fname = "skriv navn på excel sheet"
Set rs = Server.CreateObject("ADODB.Recordset")
Set FSO = Createobject("scripting.filesystemobject")
Set act = Fso.CreateTextfile(server.mappath(Fname),true)
rs.Open Tblname, conn, 3, 3
If Not Rs.EOF and not Rs.BOF Then
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
act.WriteLine "<head>"
act.WriteLine " "
act.WriteLine "</head>"
act.WriteLine "<body>"

Act.Writeline "<table border=1>"
Act.Writeline "<Tr>"
For X = 0 to Rs.Fields.count - 1
Act.Writeline "<Td><b>" & Rs.Fields.Item(x).Name & "</b></td>"
Next
Act.Writeline "</Tr>"
While not Rs.Eof
Act.Writeline "<Tr>"
For X = 0 To Rs.Fields.Count - 1
Act.Writeline "<Td>" & Rs.Fields.Item(X).Value & "</td>
Next
Act.Writeline "</Tr>"

Rs.Movenext

Wend
Act.Writeline "</Table>"
act.writeline "<tr></tr>"
act.writeline "<tr>Powered by **mig**</tr>"
act.WriteLine "</body>"
act.WriteLine "</html>"

End if
Act.close
Rs.close
<% Din excel fil kan hentes hér: <a href="<%=fname%>" target="_blank"> Klik her </a><%
End function

Prøv at klippe nedenstående ud, gem det som fil.xls og luk det op i Excel. Så kan du få en idé om, hvad det går ud på.

<html xmlns:x="urn:schemas-microsoft-com:office:excel">
<head>
 "
</head>"
<body>"
<table border=1>
<Tr>
<Td><b>Navn1</b></td>
<Td><b>Navn2</b></td>
<Td><b>Navn3</b></td>
</Tr>
<tr>
<Td>Værdi</td>
</Tr>
</Table>
<tr></tr>
<tr>Powered by **mig**</tr>
</body>
</html>

Synes godt om

iggipop Nybegynder

21. oktober 2004 - 12:51 #15

nu har jeg gjort sådan :

<%
Function CreateExcel(Title,tblname)
Dim Rs,Fso,Act,fname
Fname = "skriv navn på excel sheet"
Set rs = Server.CreateObject("ADODB.Recordset")
Set FSO = Createobject("scripting.filesystemobject")
Set act = Fso.CreateTextfile(server.mappath(Fname),true)
rs.Open Tblname, conn, 3, 3
If Not Rs.EOF and not Rs.BOF Then
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
act.WriteLine "<head>"
act.WriteLine " "
act.WriteLine "</head>"
act.WriteLine "<body>"

Act.Writeline "<table border=1>"
Act.Writeline "<Tr>"
For X = 0 to Rs.Fields.count - 1
Act.Writeline "<Td><b>" & Rs.Fields.Item(x).Name & "</b></td>"
Next
Act.Writeline "</Tr>"
While not Rs.Eof
Act.Writeline "<Tr>"
For X = 0 To Rs.Fields.Count - 1
Act.Writeline "<Td>" & Rs.Fields.Item(X).Value & "</td>"
Next
Act.Writeline "</Tr>"

Rs.Movenext

Wend
Act.Writeline "</Table>"
act.writeline "<tr></tr>"
act.writeline "<tr>Powered by **mig**</tr>"
act.WriteLine "</body>"
act.WriteLine "</html>"

End if
Act.close
Rs.close
%>
Din excel fil kan hentes hér: <a href="<%=fname%>" target="_blank"> Klik her </a>
<%
End function

call CreateExcel("Titelnavn","tabelnavn")
'Reset server objects

Set rs = Nothing
Set objConn = Nothing

%>

og får denne fejl :

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/medlemmer/medlemmer/asp/udtrak1.asp, line 8

Synes godt om

sho Nybegynder

21. oktober 2004 - 12:52 #16

Må jeg se /medlemmer/medlemmer/asp/udtrak1.asp, line 8

Synes godt om

iggipop Nybegynder

21. oktober 2004 - 12:54 #17

rs.Open Tblname, conn, 3, 3

Synes godt om

sho Nybegynder

21. oktober 2004 - 12:56 #18

Må jeg se dit SQL-statement? Lav evt. en response.write og response.end imellem at du definerer det og linie 8, så du får det printet på skærmen.

Jeg går til et møde nu, så jeg svarer nok først senere.

Synes godt om

iggipop Nybegynder

21. oktober 2004 - 13:02 #19

Jamen nu får du alt hvad der er i filen. Simpelhen alt. Jeg roder nemlig helt rundt i det tror jeg...

<%
Dim objConn 'Holds the Database Connection Object
Dim strSQL 'Holds the SQL query for the database

'Create an ADO connection odject
Set objConn = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../../db/database.mdb")

'Create an ADO recordset object
Set rs = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database

strSQL="SELECT * FROM medlemmer"
set objRS=objConn.execute(strSQL)

Function CreateExcel(Title,tblname)
Dim Rs,Fso,Act,fname
Fname = "Udtrak"
Set rs = Server.CreateObject("ADODB.Recordset")
Set FSO = Createobject("scripting.filesystemobject")
Set act = Fso.CreateTextfile(server.mappath(Fname),true)
rs.Open Tblname, objconn, 3, 3
If Not Rs.EOF and not Rs.BOF Then
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
act.WriteLine "<head>"
act.WriteLine " "
act.WriteLine "</head>"
act.WriteLine "<body>"

Act.Writeline "<table border=1>"
Act.Writeline "<Tr>"
For X = 0 to Rs.Fields.count - 1
Act.Writeline "<Td><b>" & Rs.Fields.Item(x).Name & "</b></td>"
Next
Act.Writeline "</Tr>"
While not Rs.Eof
Act.Writeline "<Tr>"
For X = 0 To Rs.Fields.Count - 1
Act.Writeline "<Td>" & Rs.Fields.Item(X).Value & "</td>"
Next
Act.Writeline "</Tr>"

Rs.Movenext

Wend
Act.Writeline "</Table>"
act.writeline "<tr></tr>"
act.writeline "<tr>Powered by **mig**</tr>"
act.WriteLine "</body>"
act.WriteLine "</html>"

End if
Act.close
Rs.close
%>
Din excel fil kan hentes hér: <a href="<%=fname%>" target="_blank"> Klik her </a>
<%
End function

call CreateExcel("Titelnavn","tabelnavn")
'Reset server objects

Set rs = Nothing
Set objConn = Nothing

%>

Jeg er helt på bar bund med det her...
fejlen jeg får ved at køre denne er :
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

/medlemmer/medlemmer/asp/udtrak1.asp, line 25

Linie 25 er

rs.Open Tblname, objconn, 3, 3

Synes godt om

-mundi- Nybegynder

21. oktober 2004 - 13:05 #20

<%
Dim objConn 'Holds the Database Connection Object
Set objConn = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../../db/database.mdb")

Function CreateExcel(Title,tblname)
Dim Rs,Fso,Act,fname
Fname = "Udtrak"
Set rs = Server.CreateObject("ADODB.Recordset")
Set FSO = Createobject("scripting.filesystemobject")
Set act = Fso.CreateTextfile(server.mappath(Fname),true)
rs.Open Tblname, objconn, 3, 3
If Not Rs.EOF and not Rs.BOF Then
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
act.WriteLine "<head>"
act.WriteLine " "
act.WriteLine "</head>"
act.WriteLine "<body>"

Act.Writeline "<table border=1>"
Act.Writeline "<Tr>"
For X = 0 to Rs.Fields.count - 1
Act.Writeline "<Td><b>" & Rs.Fields.Item(x).Name & "</b></td>"
Next
Act.Writeline "</Tr>"
While not Rs.Eof
Act.Writeline "<Tr>"
For X = 0 To Rs.Fields.Count - 1
Act.Writeline "<Td>" & Rs.Fields.Item(X).Value & "</td>"
Next
Act.Writeline "</Tr>"

Rs.Movenext

Wend
Act.Writeline "</Table>"
act.writeline "<tr></tr>"
act.writeline "<tr>Powered by **mig**</tr>"
act.WriteLine "</body>"
act.WriteLine "</html>"

End if
Act.close
Rs.close
%>
Din excel fil kan hentes hér: <a href="<%=fname%>" target="_blank"> Klik her </a>
<%
End function

call CreateExcel("Titelnavn","medlemmer")
'Reset server objects

Set rs = Nothing
Set objConn = Nothing

%>

Synes godt om

-mundi- Nybegynder

21. oktober 2004 - 13:07 #21

call CreateExcel("Titelnavn","medlemmer")

Ovenstående linie trækker tabellen "medlemmer" ud til et excelark med titlen "Titelnavn"

Synes godt om

iggipop Nybegynder

21. oktober 2004 - 13:47 #22

Hmm -mundi- det virker næsten. Nu kommer link-teksten frem så jeg kan klikke på den, men der er noget galt. Der ligger nu en fil der hedder udtrak uden endelse og en der hedder udtrak.xls
Der ligger noget i den fil uden endelse og det er også den der bliver åbnet når man klikker på linket, men xls filen er på 0 og der står intet i den. ???+

Synes godt om

-mundi- Nybegynder

21. oktober 2004 - 13:49 #23

ret
Fname = "Udtrak"

til
Fname = "Udtrak.xls"

Synes godt om

iggipop Nybegynder

21. oktober 2004 - 13:49 #24

GLEM DET...det virker....dejligt...tusinde tak..
Nu kommer der lige et ekstraspørgsmål....
Kan man fx vælge kun at få bestemte felter i udtrækket ?

Synes godt om

-mundi- Nybegynder

21. oktober 2004 - 13:52 #25

call CreateExcel("Titelnavn","SELECT feltnavn1,feltnavn2,feltnav3 from medlemmer ORDER BY feltnavn ") <-- nu ved jeg slf ikke hva dine felter hedder så du må selv rette til

Synes godt om

iggipop Nybegynder

21. oktober 2004 - 13:54 #26

Okay...kanon.....jeg takker mange gange for hjælpen...

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS