[Resolvido] Cadastrar e-mails de um xls...

[Fernando Web 0]

Bom dia a todos!

 

Estou montando um codigo que pega os e-mails de um arquivo .xls e grava em um BD. O codigo funfa sertinho, mas preciso modifica-lo para que não haja repetição de e-mail, preciso que ele verifique antes de gravar.

 

O codigo que estou usando é esse:

set dados = ObjConexaoExcel.Execute("SELECT * FROM [Plan1$]")

varEmpresa = "Montadoras"
varAtividade = "Atomic"
varTel = "(000) 0000-0000"
varCidade = "São Paulo"
varCep = "00000-000"
varUF = "SP"
varID = "0"

if not dados.eof then
	while not dados.eof
	
		inclusao = "INSERT INTO NEWS_CAMPANHA (EMPRESA,TELEFONE,EMAIL,CIDADE,ATIVIDADE,CEP,UF,ID_ENVIADO) VALUES('"& varEmpresa &"','"& varTel &"','"& dados("E-mail address") &"','"& varCidade &"','"& varAtividade &"','"& varCep &"','"& varUF &"',"& varID &")"
		Set registros = conexao.Execute(inclusao)
		set registros = nothing
	
		dados.movenext
	wend
end if


Se alguem puder me mostrar como se faz agradeço desde já!!!

[hgb7 3]

http://scriptbrasil.com.br/forum/index.php?showtopic=17665

 

Espero que ajude :)

[filipescoob 1]

Use select Exists se for no SQL SERVER ou IN no ACCESS ou até pode usar

 

select * from tb_email where email = "RETORNO DO XML"

IF NOT RS.EOF THEN
  JA EXISTE
ELSE
  NÃO EXISTE
END IF

[Fernando Web 0]

Valeu galera, deu certo, segue o codigo completo ae:

 

<%
ConexaoExcel = "Driver={Microsoft Excel Driver (*.xls)};DriverId=790; DBQ=" & Server.MapPath("GuiaPR-Empresas-PR.xls")
set ObjConexaoExcel = Server.CreateObject("ADODB.Connection")
ObjConexaoExcel.Open ConexaoExcel


Conn_SQL = "UID=teste; PWD=123456; driver={SQL Server}; SERVER=000.000.000.00; DATABASE=Teste"
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open Conn_SQL

set dados = ObjConexaoExcel.Execute("SELECT * FROM [Plan1$]")

varEmpresa = "Empresas Parana"
varAtividade = "Atomic"
varTel = "(000) 0000-0000"
varCidade = "São Paulo"
varCep = "00000-000"
varUF = "PR"
varID = "0"

if not dados.eof then
	while not dados.eof
	
		 STRsel = "SELECT * FROM NEWS_CAMPANHA where EMAIL='"& dados("E-mail address") &"'"
		 Set rs=conexao.Execute(STRsel)
		
		IF NOT RS.EOF THEN
		else
	
		inclusao = "INSERT INTO NEWS_CAMPANHA (EMPRESA,TELEFONE,EMAIL,CIDADE,ATIVIDADE,CEP,UF,ID_ENVIADO) VALUES('"& varEmpresa &"','"& varTel &"','"& dados("E-mail address") &"','"& varCidade &"','"& varAtividade &"','"& varCep &"','"& varUF &"',"& varID &")"
		Set registros = conexao.Execute(inclusao)
		set registros = nothing
	
		end if
		dados.movenext
	wend
end if


dados.close
set dados = nothing
%>

Flw, até a proxima!!!

[hgb7 3]

Obrigado pelo código :)