Foros del Web » Programación web » ASP Clásico »

exportar datos de SQL A EXCEL

Estas en el tema de exportar datos de SQL A EXCEL en el foro de ASP Clásico en Foros del Web. HOLA AMIGOS SE EM AH PRECENTADO UN PROBELAM DEL CUAL E BUSCADO SOLUCINES PERO NO ME RESULTA , QUE ES EXPORTAR LOS DASTOS DE UNA ...
  #1 (permalink)  
Antiguo 30/09/2007, 22:07
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 635
Antigüedad: 8 años, 9 meses
Puntos: 1
Exclamación exportar datos de SQL A EXCEL

HOLA AMIGOS

SE EM AH PRECENTADO UN PROBELAM DEL CUAL E BUSCADO SOLUCINES PERO NO ME RESULTA , QUE ES EXPORTAR LOS DASTOS DE UNA TABLA DE SQL POR INTERMERDIO DE ASP A UN EXCEL .
ESTE ES MI SQL---->>>

Código PHP:
select numope,cicloasi,cicloreb,estcob,rutcli,converT(numeric,crdeutot)as saldo_mora,crdeufvt,cobra,crdeuulg,pronombre from crzdeudas a,crzproduc b where crdeuulg<>'GEO5' and cicloasi<>'10' and areaope<>'i'
and a.cedente=b.cedente and a.producto=b.producto 
si me puede ayudar
  #2 (permalink)  
Antiguo 30/09/2007, 22:53
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.612
Antigüedad: 7 años, 6 meses
Puntos: 85
Re: exportar datos de SQL A EXCEL


bueno puedes utilizar esta simple linea de codigo al generar la tabla de la consulta
<%response.ContentType="application/vnd.ms-excel"%>o puedes hechales un vistazo a este POST, en caso contrario ESTE OTRO, ya que si no te sirven, con el buscador de nuestro FORO; este enlace de DesarrolloWEB tambien te puede servir

un ejemplo de la primera linea
Código PHP:
<%response.ContentType="application/vnd.ms-excel"%>
<
html>
<
head>
<
style type="text/css">
td {padding:2embackground-color:yellowborder:1px dotted #000;}
</style>
</
head>
<
body>
<
table>
<
tr>
<
td>1</td>
<
td>2</td>
<
td>3</td>
<
td>4</td>
</
tr>
<
tr>
<
td>=sum(a1:d1)</td>
<
td>6</td>
<
td>7</td>
<
td>8</td>
</
tr>
</
table>
</
body
</html
suerte
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #3 (permalink)  
Antiguo 01/10/2007, 23:21
Avatar de a83
a83
 
Fecha de Ingreso: noviembre-2005
Ubicación: Santiago de chile
Mensajes: 635
Antigüedad: 8 años, 9 meses
Puntos: 1
Re: exportar datos de SQL A EXCEL

no me esta resultando mmmm
  #4 (permalink)  
Antiguo 02/10/2007, 00:29
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.612
Antigüedad: 7 años, 6 meses
Puntos: 85
Re: exportar datos de SQL A EXCEL

extraño eso, funciona bien conmigo, probablemente permisos de escritura....

bueno, aki esta otra forma de realizarlo
claseGenxls.asp
Código PHP:
<&#37;
  
Option Explicit

  
Class ExcelGen

    
Private objSpreadsheet
    
Private iColOffset
    
Private iRowOffset

    Sub Class_Initialize
()
      
Set objSpreadsheet Server.CreateObject("OWC.Spreadsheet")

      
iRowOffset 2
      iColOffset 
2
    End Sub

    Sub Class_Terminate
()
      
Set objSpreadsheet Nothing   'Clean up
    End Sub

    Public Property Let ColumnOffset(iColOff)
      If iColOff > 0 then
        iColOffset = iColOff
      Else
        iColOffset = 2
      End If
    End Property

    Public Property Let RowOffset(iRowOff)
      If iRowOff > 0 then
        iRowOffset = iRowOff
      Else
        iRowOffset = 2
      End If
    End Property


    Sub GenerateWorksheet(objRS)

      '
Populates the Excel worksheet based on a Recordset's contents
      '
Start by displaying the titles
      
If objRS.EOF then Exit Sub

      Dim objField
iColiRow
      iCol 
iColOffset
      iRow 
iRowOffset

      
For Each objField in objRS.Fields
        objSpreadsheet
.Cells(iRowiCol).Value objField.Name
        iCol 
iCol 1
      Next 
'objField

      '
Display all of the data
      
Do While Not objRS.EOF
        iRow 
iRow 1
        iCol 
iColOffset

        
For Each objField in objRS.Fields
          
If IsNull(objField.Valuethen
            objSpreadsheet
.Cells(iRowiCol).Value ""
          
Else
            
objSpreadsheet.Cells(iRowiCol).Value objField.Value
          End 
If

          
iCol iCol 1
        Next 
'objField

        objRS.MoveNext     
      Loop

    End Sub    


    Function SaveWorksheet(strFileName)
      '
Save the worksheet to a specified filename
      On Error Resume Next
      Call objSpreadsheet
.ActiveSheet.Export(strFileName0)

      
SaveWorksheet = (Err.Number 0)
    
End Function

  
End Class
%> 
forma de llamarla
Código PHP:
<%'Vinculas el archivo arriba escrito%>
<!--#include virtual="claseGenxls.asp"-->
<%
 '
Creas tus conexiones a la base de datos
  Dim objRS
  Set objRS 
Server.CreateObject("ADODB.Recordset")
  
objRS.Open "SELECT * FROM titles""DSN=FooBar"

  
Dim objExcel
  Set objExcel 
= New ExcelGen

  objExcel
.RowOffset 4
  objExcel
.ColumnOffset 1

  objExcel
.GenerateWorksheet(objRS)

  
Nombre del Archivo
  xlsname
="foo.xls"
  
If objExcel.SaveWorksheet(Server.MapPath("& xlsname &")) then
    Response
.Write "Libro de Excel Guardado.  " _
                   
"<a href=""& xlsname &"">Descargar</a>"
  
Else
    
Response.Write "Error en la escritura del Archivo XLS!"
  
End If

  
Set objExcel Nothing

  objRS
.Close
  Set objRS 
Nothing
%> 
suerte
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 04:16.
SEO by vBSEO 3.3.2