[Resolvido] Ler XLS

[wills 0]

Olá pessoal, estou tentando ler um xls para salvar no banco de dados, porém o mesmo não é lido é da timeout no asp.

alguém poderia me ajudar?

 

Dim Conn, RS
Dim Campos, contador

'// CONECTAMOS COM O BANCO DE DADOS
Set Conn = CreateObject("ADODB.Connection")
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"

'// Nesta linha perca que a conexão indica que utilizaremos um arquivo do Excel
.ConnectionString = "Data Source="& Server.MapPath("scharbel\v2\painel\upload\excel\"&NomeArquivo) &";Extended Properties=Excel 8.0;"
.Open
End With

'// AO CRIAR O RECORDSET, O SELECT INDICA O NOME DA PLANILHA DO ARQUIVO
Set RS = Conn.Execute("SELECT * FROM [Plan1$] ")

'// CONTAMOS QUANTAS LINHAS EXISTEM NO ARQUIVO
Campos = RS.Fields.Count

'// INICIAMOS O LOOP
response.write "<table border=""1"">"
Do While RS.EOF = False
response.write "<tr>"
'// Aqui informamos os nomes das colunas para então lista os resultados
response.write "<td><font size=1 face=verdana><b>" & RS("c1") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("c2") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("c3") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("c4") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("c5") & "</td>"
response.write "<td><font size=1 face=verdana><b>" & RS("c6") & "</td>"
response.write "</tr>"

vc1 = RS("c1")
vc2 = RS("c2")
vc3 = RS("c3")
vc4 = RS("c4")
vc5 = RS("c5")
vc6 = RS("c6")


'cmd.CommandText="insert into tabela (c1,c2,c3,c4,c5,c6) values (?,?,?,?,?,?)"
'Cmd.Execute quant,Array(vc1,vc2,vc3,vc4,vc5,vc6) 

RS.MoveNext
Loop
response.write "</table>"

'// EXIBIMOS A QUANTIDADE DE REGISTROS ENCONTRADOS
response.write campos

'// FECHAMOS E DESCONECTAMOS O RECORDSET E A CONEXÃO UTILIZADA
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing 

[xanburzum 169]

http://forum.imasters.com.br/topic/211454-ler-xls/

[wills 0]

Eu tentei dessa forma mas não consegui

[xanburzum 169]

ele gera algum número de erro

[wills 0]

Eu consegui ler e salvar no banco de dados (até que enfim!) porém, estava vendo no banco que ele está salvando uma linha em branco. tu sabe me dizer porque isso?

[xanburzum 169]

dá um response.write na sua string SQL para ver o que esta sendo passado

[wills 0]

olá!

eu dei um response.write porém ele me retornou uma linha em branco.

 

veja:

 

insert into calendario(evento,data,horario,mes,arquivo) values('Missa em ação de graças a São Charbel 0','5/2/2012','18h30','janeiro','{31-01-2012-13-39-38}_calendario.xls')
insert into calendario(evento,data,horario,mes,arquivo) values('Missa em ação de graças a São Charbel 1','12/2/2012','18h30','janeiro','{31-01-2012-13-39-38}_calendario.xls')
insert into calendario(evento,data,horario,mes,arquivo) values('Missa em ação de graças a São Charbel 2','19/2/2012','18h30','janeiro','{31-01-2012-13-39-38}_calendario.xls')
insert into calendario(evento,data,horario,mes,arquivo) values('Missa em ação de graças a São Charbel 3','26/2/2012','18h30','janeiro','{31-01-2012-13-39-38}_calendario.xls')
insert into calendario(evento,data,horario,mes,arquivo) values('','','','','{31-01-2012-13-39-38}_calendario.xls')

[wills 0]

Consegui!

Obrigado pela ajuda!