asp, xls, BD

[maralbust]

Saludos, llevo buscando como 15 minutos y no haber encontrado lo que busco,

necesito generar un archivo xls o csv con los datos de mi BD como se hace esto???

he buscado por todos lados y no he encontrado nada.

Importante de mencionar es que no tengo ni idea de asp, solo lo basico :p, asi que si pudieran explicarme con manzanitas se lo agradeceria.

saludos y gracias

[tammander]

¿Lo que quieres es generar un dump de tu base de datos en un archivo csv para excel? ¿Tienes MySQL o alguna bd relacional?


Un saludo

[maralbust]

si, estoy trabajando en MSSql,

si es posible que sea en .xls mejor aun

saludos

[Alexis_m20]

y de que manera lo vas a crear con ASp, DTS, procedimiento almacenado
como quieres hacerlo???

[tammander]

A traves de SQL es asi:

DUMP DATABASE {dbname | @dbname_var}
TO dump_device [, dump_device2 [..., dump_device32]]
[WITH options [[,] STATS [ = percentage]]]

Mas info: http://www.windowsitlibrary.com/Content/77/12/1.html

o con BACKUP

BACKUP DATABASE { database_name | @database_name_var }
TO < backup_device > [ ,...n ]
[ WITH
[ BLOCKSIZE = { blocksize | @blocksize_variable } ]
[ [ , ] DESCRIPTION = { 'text' | @text_variable } ]
[ [ , ] DIFFERENTIAL ]
[ [ , ] EXPIREDATE = { date | @date_var }
| RETAINDAYS = { days | @days_var } ]
[ [ , ] PASSWORD = { password | @password_variable } ]
[ [ , ] FORMAT | NOFORMAT ]
[ [ , ] { INIT | NOINIT } ]
[ [ , ] MEDIADESCRIPTION = { 'text' | @text_variable } ]
[ [ , ] MEDIANAME = { media_name | @media_name_variable } ]
[ [ , ] MEDIAPASSWORD = { mediapassword | @mediapassword_variable } ]
[ [ , ] NAME = { backup_set_name | @backup_set_name_var } ]
[ [ , ] { NOSKIP | SKIP } ]
[ [ , ] { NOREWIND | REWIND } ]
[ [ , ] { NOUNLOAD | UNLOAD } ]
[ [ , ] RESTART ]
[ [ , ] STATS [ = percentage ] ]
]

Mas Info: http://msdn.microsoft.com/library/de...ba-bz_35ww.asp

Lo que no se si se puede volcar en un archivo excel (xls) pero excel puede leer los csv delimitados con comas.


Un saludo

[maralbust]

Alexis_m20 como asi no entendi :p

la verdad no entiendo nada de asp como dije solo lo basico y lo he leido, si pudieras explicarme te lo agradeceria

saludos

[tammander]

Forma de uso:

SQLStmt = "select top 20* from calendar"
RS.Open SQLStmt, Con, adOpenStatic
Rec2Excel SQLStmt, Con
RS.Close

(No olvidar incluir el archivo adovbs.inc)

Código:

Sub Rec2Excel(xRecordSet, Con)

'This SubRoutine will Print the Data in any Recordset to Excel,
'be it a SQL statement or valid Recordset Table Name.

Dim I
Dim RS
Dim exc

Set RS = server.CreateObject("ADODB.Recordset")
RS.Open xRecordSet, Con, adOpenStatic, adLockReadOnly
Set exc = server.CreateObject("Excel.Application")
exc.Workbooks.Add
exc.Visible = True

With exc

For I = 0 To RS.Fields.Count - 1
.Cells(1, I + 1) = RS(I).Name
Next

I = 1

While Not RS.EOF
I = I + 1

For j = 0 To RS.Fields.Count - 1

If RS(j).Type = adVarChar Or RS(j).Type = adChar Then
If IsNull(RS(j)) Then
.Cells(I, j + 1) = ""
Else
.Cells(I, j + 1) = Trim(RS(j))
End If

.Cells(I, j + 1).Borders.LineStyle = xlDouble
.Cells(I, j + 1).Borders.Color = vbBlue

ElseIf RS(j).Type = adDecimal Or RS(j).Type = adNumeric Or
RS(j).Type = adInteger Then
If IsNull(RS(j)) Then
.Cells(I, j + 1) = ""
Else
.Cells(I, j + 1) = Str(RS(j))
End If

.Cells(I, j + 1).Borders.LineStyle = xlDouble
.Cells(I, j + 1).Borders.Color = vbBlue

End If
Next

RS.MoveNext
Wend

.Range("A1:" & Chr(65 + j) & 1).Font.Bold = True
.Range("A1:" & Chr(65 + j) & 1).Font.Color = vbRed
.Range("A1:" & Chr(65 + j) & 1).Borders.LineStyle = xlDouble
'.Range("A1:" & Chr(65 + j) & 1).Borders
'     .Color = vbRed
.Columns("$A:" & "$" & Chr(65 + j)).AutoFit
End With

Set RS = Nothing
End Sub

Aunque hay programas que hacen eso de forma mas o menos buena

Un saludo

[Alexis_m20]

busca en internet o aqui mismo la opcion del contenttype Excel

eso es mas rápido bueno y economico.