export til csv file

Er du sikker på at dette er den rigtige kategori ?

Og så kommer det an på hvilken dtabase du anvender. Hvis du har SQL Server, kan du bruge Import/Export Wizard\'en (DTS), i Access kan du højre-klikke på en tabel og vælge Export o.s.v.

Det skal foregå via ASP... Sådan her:

Siden loader ind...

Man vælger hvilke data man vil have, også trykker man på et link, så den generere en csv fil man kan bruge i excel... Og siden det skal foregå i ASP må dette være den rigtige gruppe.

Alt forladt, det lød bare mere som et rent database spørgsmål :-)

Du kan kigge på mit svar i dette spørgsmål omkring Excel http://www.eksperten.dk/spm/139010

Hvis ikke det kan bruges, kan du lave det med FileSystemObject i ASP, læs evt. mere på www.w3schools.com

Fantastisk...

Men den spørger ikke om hvad man vil med filen... Kan man ikke få den til at skrive det hele i en fil, også få den til at spørge hvad der skal ske med filen?

Det sidste er ikke helt så nemt, da det for det første kræver at du har Excel installeret server-side. Derefter skal du bruge en anden fremgangsmåde end blot at ændre content type - du skal have fat i Excel programmeringsmæssigt.

En har altså håndbroderet en rutine, der danner en csv fil dumpet på siten udfra en SQl sætning - danner en link til at downloade den - når downloaded button til at slette filen igen.

Al in ASP og så FileSystemObjectet sæføli.

varet et noet ?

Henrik

JA tak...

Meget gerne,,, vis det fungere for du flere point Henrik

Sågu virker det ...
jamen så kommer julegaven her ( Jeg har ikke kunne komme i kontakt med TDC et par dage, indtil jeg fandt ud af, at en eller andens julerengøring havde disconnected min ISDN forbindelse)

Hav en rigtig god jul. Det bedste ved julen er, at dele ud af det man har

Henrik
:

lib_table2CSV.asp

<%

sub table2CSV(outputquery, outputDSN, filename,delim )
  dim conntemp, rstemp, linetxt
  set conntemp=server.createobject(\"adodb.connection\")
  \' 0 sekunder betyder vent forever, default er 15
  conntemp.connectiontimeout=0
  conntemp.open outputDSN
  set rstemp=conntemp.execute(outputquery)
  howmanyfields=rstemp.fields.count -1
      Set fs = CreateObject(\"Scripting.FileSystemObject\")
    \'Set file = fs.OpenTextFile(server.mappath(filename), 8, True, False)
    Set file = fs.CreateTextFile(server.mappath(filename))
  linetxt=\"\"
  if isnull(delim) then
    delim=\";\"
  end if
  for i=0 to howmanyfields-1
    linetxt = linetxt & rstemp(i).name & delim
  next
    linetxt = linetxt & rstemp(i).name
    file.Writeline(linetxt)
 
 
  DO UNTIL rstemp.eof
        linetxt=\"\"
       
        for i = 0 to howmanyfields-1
            thisvalue=rstemp(i)
            If isnull(thisvalue) then
                thisvalue=\" \"
            end if
            linetxt = linetxt & thisvalue & delim
        next
        thisvalue=rstemp(i)
   
        If isnull(thisvalue) then
            thisvalue=\" \"
        end if
   
        linetxt = linetxt & thisvalue
   
        \'lad os fjerne de linefeeds
        linetxt=Replace(linetxt, vbcrlf, \" \")
   
        file.Writeline(linetxt)
        rstemp.movenext

    loop
    file.close
    set file=nothing
    Set fs=nothing
    rstemp.close
    set rstemp=nothing
    conntemp.close
    set conntemp=nothing
end sub
sub delCSV(filename)
    Set fs = CreateObject(\"Scripting.FileSystemObject\")
   
   
    if fs.FileExists(server.mappath(filename)) then
        Set file = fs.GetFile(server.mappath(filename))
        file.Delete
        if not fs.FileExists(server.mappath(filename)) then
            response.write filename & \" er nu slettet <br>\"
        else
            response.write filename & \" blev ikke slettet <br>\"
        end if
    else
        response.write filename & \" er ikke tilstede <br>\"
    end if
    set file=nothing
    Set fs=nothing
end sub
%>


CSV.asp (delvis)

<% @LANGUAGE=VBscript %>
<% Response.Expires = 0 %>
<% Response.Buffer = true %>
<!--#include file=\"Connections/Conn.asp\" --> // en forbindelses tekst streng
Husk, at der skal være mindst en sikkerhedskontrol foran alt dette

<%
Password=\"NuErDetSnartJul\"
mySQL=\"select * from mintbl\"
myfile =\"test.csv\"
action=Request.QueryString(\"action\")
delim = \";\"
conn =MM_Conn_STRING //forbindelsesstrengen
%>

<!--#include file=\"lib_table2CSV.asp\"-->
<html>
<head>
<title>test</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<script language=\"JavaScript\">
<!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+\".location=\'\"+args[i+1]+\"\'\");
}
//-->
</script>
</head>

<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<%
if request(\"password\") = password then
    session(\"login\") = \"ok\"
else

    if request(\"mode\") <> \"send\" AND session(\"login\") <> \"ok\" then %>

        <form NAME=\"login\" METHOD=\"post\">
  <p>
    <input type=\"password\" name=\"password\" size=\"17\">
    <input type=\"image\" src=\"../SITEPICS/a10.gif\" width=\"36\" height=\"36\" alt=\"Login\" align=\"bottom\">
  </p>
</form>
    <%
    end if

end if%>
<%
if session(\"login\") = \"ok\" then
%>
    <%select case action
   
        case \"dan\"
            call table2CSV(mySQL,conn, myfile, delim)
    %>
          <p><a href=\"<%=myfile%>\">Download</a> </p>
        <p>
  <input type=\"button\" name=\"Button\" value=\"Slet CSV\" onClick=\"MM_goToURL(\'parent\',\'csv.asp?action=slet\');return document.MM_returnValue\">
        </p>
   
    <%case \"slet\"
        call delCSV(myfile)   
    %>
        <b>Filen er nu slettet</b>
        <p>
  <input type=\"button\" value=\"Retur Start\" style=\"HEIGHT: 24px; WIDTH: 93px\" id=\"submit2\" name=\"luk\" onClick=\"MM_goToURL(\'parent\',\'csv.asp?action=nix\');return document.MM_returnValue\">
  </p>
    <%case else%>
        <p>
  <input type=\"button\" name=\"Button\" value=\"Dan CSV\" onClick=\"MM_goToURL(\'parent\',\'csv.asp?action=dan\');return document.MM_returnValue\" >
        </p>
       
<p>
  <input type=\"button\" value=\"Retur Start\" style=\"HEIGHT: 24px; WIDTH: 93px\" id=\"submit2\" name=\"luk2\" onClick=\"MM_goToURL(\'parent\',\'csv.asp?action=nix\');return document.MM_returnValue\">
</p>
    <% end select %>   
<% end if %>
<p><small><b>www.Web4It.DK - All rights reserved</b></small> </p>
<p>&nbsp;</p>
 
</body>
</html>

PING dd_ns

Er man gået til nytårsfest ??

Henrik

PING PING - hvad sker der her ???

Henrik

PING PING PING

Er den helt død ????

Henrik

Nej, sorry, jeg er her nu!

Kan jeg lige få lidt mere hjælp`?

Hjælp til hvad ?

Du har to filer. Der skal bare laves en db forbindelse og du skal specificere, hvilken query, du ønsker at lave en CSV på.

Henrik

PING PING PING PING

Er den helt død ????

Henrik
Kan vi ikke få lukket sagen.

PING PING PING PING PING PING PING PING

Henrik
Kan vi ikke få lukket sagen.

Tak for Julegaven