Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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á!!!
Carregando comentários...