comparar txt com banco de dados

[jul 0]

Boa noite a todos, estou precisando muito da ajuda de vcs estou querendo comparar o conteudo de um TXT com o valor obtido no select vindo do banco. segue o codigo:

 

 

 

<% 
'O parâmetro forReading é utilizado somente para leitura. 
Const forReading = 1, forWriting = 2, forAppending = 8 

'Instância o objeto FSO. 
Set Fso = CreateObject("Scripting.FileSystemObject") 

'O método GetFile retorna o arquivo existente. 
Set ObjFile = Fso.GetFile("C:\Inetpub\wwwroot\NovoSite\site\content\Import_ECF\txt\teste.txt") 

'O método OpenAsTextStream abre o arquivo como sendo um fluxo de texto. 
Set objStream = ObjFile.OpenAsTextStream(forReading,false) 



'select da lista geral
Set Clientes = Server.CreateObject("ADODB.Recordset") 
Set Clientes = oConn.Execute("SELECT distinct C.RAZAO, C.CNPJ, C.TOTAL_PDVS, C.COD_CLI, B.ID_PDV, B.FLG_ATIVO FROM Clientes C join CLIENTE_PDVS B on C.COD_CLI = B.COD_CLI where C.CNPJ ='05584408011882'")


'laco do banco
While NOT Clientes.EOF

  VLC_ID_PDV = Clientes("ID_PDV") & "<br>"

Clientes.MoveNext()
Wend 'fim do laco do banco	




'laco conteudo do txt
While Not ObjStream.AtEndOfStream 

 Linha = ObjStream.Readline & "<br>"

Wend 'fim do laco do txt


'queria comparar com o exemplo do If abaixo

if VLC_ID_PDV = Linha then
  response.Write("Update sim ")
else
  response.Write("Update não ")
end if






'Fecha o arquivo. 
objStream.Close 

'Destruíndo objetos 
Set Fso = nothing 
Set objStream = nothing 



%>

 

 

estou tendo problema com os laços, coloquei o if fora do laço como exemplo, sei que tem que ir dentro do laço, mais não estou conseguindo comparar os dois valores

 

Fico agradecido pela ajuda

 

Abraços a todos do Forum

[xanburzum 169]

mas você naun esta recuperando o conteudo do txt em Linha

e comparando no VLC_ID_PDV , mas o criterio k ersta usando é a consulta na SQL

C.CNPJ ='05584408011882'"

talvez seja isso k naun obtem o resultado igual