[Resolvido] Leitura de Arquivo Excel

[Alberto Silva 0]

Olá colegas, boa noite!

 

Bom, mais uma vez recorro a ajuda de vocês. Já fiz várias tentativas, mais simples e mais complexa para fazer o insert de um arquivo excel e em todo deparo com o mesmo problema: A quantidade de linhas(registros) é triplicada no insert. Este último código que testei é bem simples, peço a ajuda de vocês. Um abraço!

 

<%
Dim Conn, RS
Dim Campos, contador

Call abre_conexao(ConnString,Conexao)
%>
<!--#include file="conexao.asp"-->
<%
Set Conn = CreateObject("ADODB.Connection")
With Conn
	.Provider = "Microsoft.Jet.OLEDB.4.0"
	.ConnectionString = "Data Source="& "e:\home\innac1\Dados\DOPPLERTI1644343.XLS" &";Extended Properties=Excel 8.0;"
	'.ConnectionString = "Data Source="& "c:\DOPPLERTI112428.XLS" &";Extended Properties=Excel 8.0;"	
	.Open
End With
Set RS = Conn.Execute("SELECT * FROM [MEMORIAL DESCRITIVO BRINQUEDOS$] ORDER BY ITEM")
Do While RS.EOF = False
	Sequencia = RS("Item")
	Codigo = RS("Código de Barras")
	NCM = RS("NCM")
	Referencia = RS("Referência")
	Descricao = RS("Descrição")
	Quantidade = RS("Quantidade")
	Medida = RS("Medida")
	Faixa = RS("Faixa Etária")
	Composicao = RS("Composição")
	Funcionalidade = RS("Funcionalidade")
	Dimensoes = RS("Dimensões")
	Foto = RS("Foto")	
	'============= Campos
	qryString = qryString & "INSERT INTO Solicitacoes_Produtos(ID, Item, CodigoBarras, NCM, Referencia, Descricao, Quantidade, Medida, FaixaEtaria, Composicao, Funcionalidade, Dimensoes, Foto)"
	'=============== Valores
	qryString = qryString & " VALUES(" & 1 & "," & Sequencia & ",'" & Codigo & "','" & NCM & "','" & Referencia & "','" & Descricao & "'," & Quantidade & ",'" & Medida & "'," & Faixa & ",'"  & Composicao & "'," & Funcionalidade & ","  & Dimensoes & ",'" & Foto & "');"
	Conexao.Execute(qryString)
	RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing 
%>

[xanburzum 169]

tenta assim:

 

qryString = "INSERT INTO Solicitacoes_Produtos(ID, Item, CodigoBarras, NCM, Referencia, Descricao, Quantidade, Medida, FaixaEtaria, Composicao, Funcionalidade, Dimensoes, Foto)"
	'=============== Valores
	qryString = qryString & " VALUES(" & 1 & "," & Sequencia & ",'" & Codigo & "','" & NCM & "','" & Referencia & "','" & Descricao & "'," & Quantidade & ",'" & Medida & "'," & Faixa & ",'"  & Composicao & "'," & Funcionalidade & ","  & Dimensoes & ",'" & Foto & "')"

e dá um reponse.write na SQL para ver o que esta sendo passada

 

response.write(qryString)
response.End()

[Alberto Silva 0]

Obrigado Xanburzum,

 

Através do problema indicado por você encontrei o outro embora sejam relacionados. No código que te passei faltou a instrução

qryString = "set dateformat dmy;

por isso estava

qryString = qryString & " VALUES(" & 1 & "," & Sequencia & ",'" & Codigo & "','" & NCM & "','" & Referencia & "','" & Descricao & "'," & Quantidade & ",'" & Medida & "'," & Faixa & ",'"  & Composicao & "'," & Funcionalidade & ","  & Dimensoes & ",'" & Foto & "')"

De qualquer forma eu tinha que limpar a qryString já que estava dentro do looping, coisa que eu não estava fazendo.

 

Obrigado mais uma vez! Post Resolvido.

 

Um abraço.

 

tenta assim:

 

qryString = "INSERT INTO Solicitacoes_Produtos(ID, Item, CodigoBarras, NCM, Referencia, Descricao, Quantidade, Medida, FaixaEtaria, Composicao, Funcionalidade, Dimensoes, Foto)"
	'=============== Valores
	qryString = qryString & " VALUES(" & 1 & "," & Sequencia & ",'" & Codigo & "','" & NCM & "','" & Referencia & "','" & Descricao & "'," & Quantidade & ",'" & Medida & "'," & Faixa & ",'"  & Composicao & "'," & Funcionalidade & ","  & Dimensoes & ",'" & Foto & "')"

e dá um reponse.write na SQL para ver o que esta sendo passada

 

response.write(qryString)
response.End()