Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

dataset

Criação de arquivo .xls

Por , em ASP Clássico

Recommended Posts

dataset    0

dataset
Postado

Pessoal... procurei mas não achei.Alguém tem uma referência onde posso consultar como transfiro alguns dados do ACCESS para um arquivo xls ?O usuário rodaria o código, e um arquivo xls é gerado, nele contém esses dados do ACCESS.Pra fazer o download do arquivo depois me viro... mas o esquema é que não to sabendo criar o arquivo xls.Valeu.

Compartilhar este post

Link para o post
Compartilhar em outros sites

dataset    0

dataset
Postado

Valeu pela dica jonathandj.

Com isto, montei um sistema de BackUp em .XLS, quem quizer usar é só copiar e começar a usar:

 

OBS: Este código é flexível de integração do sistema legado.

 

Vou listar os passos para configurar:

OBS: Para montar o programa, copie na ordem sequencial tudo o que estiver nos Code's, salve com BackUp.asp

 

Vamos conectar com o banco:

<!-- #Include File = "../../../paratodos/includes/strCep.asp" -->
Aqui declaramos os RecordSets usandos no sitema:

<%Set tabRec = Server.CreateObject("ADODB.Recordset")Set tabTab = Server.CreateObject("ADODB.Recordset")
No seu banco, crie uma tabela de nome BackUp, nela estará os nomes de todas as tabelas que você deseja fazer o BackUp em arquivo XLS

Coluna1: codTab - Tipo: AutoNumeração - Chave Primária

Coluna2: nomTab - Tipo: Texto - Tamanho: 50

 

Vamos fazer um SELECT nesta tabela, e pegar o nome de todas as tabelas pra fazer BackUp

strSQL = "SELECT codTab, nomTab FROM BackUp" tabRec.Open strSQL, conSTR
Vamos verificar se esta tabela contém dados, se tiver, vamos criar um arquivo xls. O nome do arquivo xls será o nome da primeria tabela que estamos 'BackUpeando':

IF not tabRec.EOF THEN	WHILE not tabRec.EOF			file_being_created = tabRec("nomTab")&".xls"		set fso = createobject("scripting.filesystemobject")		Set act = fso.CreateTextFile(server.mappath(file_being_created), true)
Feito essa primeira parte, vamos selecionar todos os registros da tabela de BackUp

strSQL = "SELECT * FROM " & tabRec("nomTab")		tabTab.Open strSQL, conSTR
Vamos conferir se ela não é EOF, se não for, vamos alimentar nosso arquivo xls com os títulos e os conteúdos.

Lembrando que os títulos são os nomes das colunas.

IF not tabTab.EOF THEN			act.WriteLine _			"<html>" & _				"<body>" & _					"<table border='1'>" & _						"<tr>"							For x = 0 to tabTab.Fields.count - 1								act.WriteLine "<th align='center'><font face='Verdana' size='1'><b>"&tabTab.Fields(x).Name&"</b></font></th>"							NEXT							act.WriteLine _						"</tr>"							WHILE NOT tabTab.EOF								act.WriteLine "<tr>"								For x = 0 to tabTab.Fields.count - 1									act.WriteLine "<td align='left'><font face='Verdana' size='1'>" & tabTab (x) & "</font></td>"								NEXT								tabTab.MoveNext								act.WriteLine "</tr>"							WEND						act.WriteLine _					"</table>" & _				"</body>" & _			"</html>"		END IF
Destruimos os objetos, fazemos o loop do tabTab, e fechamos o primeiro IF e fechamos a tag ASP.

tabRec.MoveNext		tabTab.Close	WEND	END IFact.closetabRec.CloseSet tabRec = NothingSet tabTab = Nothing%>
Prontinho.

Resumindo:

[*]Criamos uma tabela, nela contém o nome de todas as tabelas que faremos BackUp.

[*]Percorremos todas as tabelas declaradas, criamos os títulos em cada célula do XLS

[*]Alimentamos em linhas, o conteúdo do nosso banco de dados criando assim, nossos aquivos de backup em xls

OBS: Se tiverem problemas pra montar o código, mande uma mensagem que posto ele inteiro no tópico.

 

Bem, daqui pra frente, as customizações deste código ficam por conta da necessidade da cada aplicação.

Espero que tenham gostado.

Valeu.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

beleza.....legal você compartilhar a solução com a galera....belo exemplo, parabéns

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito