CSV (Eksport fra Access gennem ASP til CSV)

Du kan eksportere den som en Excel fil. Inde fra Excel kan du så eksportete/gemme den som tekst.

Mvh Mark

www.fotx.net/orca

ahh, ups... jeg læste ikke lige at det skulle være gennem asp... sorry

Står lige og skal bruge sådan noget, men må vist lave det selv. Det er lavet i hånden og hoved - du må lige teste det selv.

Henrik

Du skal lave noget i denne retning:

<%
sub table2CSV(outputquery, outnputDSN, 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 inputDSN
  set rstemp=conntemp.execute(inputquery)
  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=\"\"
      counter=counter+1
   
      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

      rstemp.movenext

  loop
  file.close
  set file=nothing
  rstemp.close
  set rstemp=nothing
  conntemp.close
  set conntemp=nothing
end sub
%>
og kald det f.eks. lib_table2CSV.asp

Hovsa

inputquery => outputquery
outnputDSN, inputDSN  => outputDSN

Der er sikkert mere

man kan sikkert også checke om det er et txtfield og sætt \"\" omkring

efter dump kan koden lave en link til filen for download og husk endelig at lave en knap til at slette filen igen med .DeleteFile \"filnavn\"

og husk endelig at have sikkerhed og paswordadgang omkring denne side.

Henrik godnat

Øh - kan vi ikke få lukket dette spørgsmål ????

Henrik