Ir para conteúdo
Fórum Script Brasil
  • 0

Loop com recordset


Clauido José

Pergunta

Ola pessoal fiz um sistema que importa dados do exccell para sql server bom tenho varios cabeçalhos que importo, só que não sei porque tem alguns que não importa ele abre o arquivo xls como os dados certo dei um response.write(rs.RecordCount) pra ve se tava tranzendo a quandidade certa de registro do arquivo xls bom ele traz certo não mas não entra no loop.

Porque sera vou postar o codigo

<!--#include file="strcon.asp"-->

<%

dim strTitulo,strTexto,strNew, Conexao, strSql,myVal

call abreConexao()

'Cria um objeto para verficar o caminho o e nome do arquivo para importação

Set objUpload = Server.CreateObject("Dundas.Upload.2")

'Cria conexão Planilha

Set dbXLS = Server.CreateObject("ADODB.Connection")

'Começa a função para exportar o arquivo para excell

dim i

i = 0

'Configura o objeto com o tamanho do arquivo

objUpload.MaxFileSize = 2114400

objUpload.UseUniqueNames = False

strCaminho = "\DTH\PLANILHA"

objUpload.Save Server.MapPath("\DTH\PLANILHA")

strCaminho = objUpload.Files.Item("txFile").Path

'Abre o arquivo excell

sql="Driver=Microsoft Excel Driver (*.xls);DBQ=" & strCaminho

'Response.Write(sql)

'Response.End()

dbXLS.Open sql

'Cria um array para ler os dados da planilha excell

Set rsXLS = dbXLS.OpenSchema(20)

'Posiciona o ponteiro no primeiro registro da tabela excell

rsXLS.MoveFirst

TabPrecos = rsXLS("TABLE_NAME")

SQL = "Select * from [" & tabPrecos & "]"

rsDados.open sql, dbXLS,1,1

if rsDados.recordCount>0 then

'Começa o loop para tranfirir o dados da tabela excell para o access.

While not rsDados.eof

'rotina de atualização do banco de dados

wEnd

end if

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...