Comparando dados entre tabelas

[RUSH-SP 0]

Olá,

 

preciso comparar os mesmos campos (alguns) entre duas tabelas.

Após isso, preciso de 3 cases.

 

se todos os campos forem iguais, mostre-me o codigo HTML tal..

se houver campos diferentes, mostre-me o codigo HTML tal..

e se todos os dado existir na tabela A, mas não na B, me mostre o codigo HTML tal..

 

Os códigos HTML que me refiro, nada mais são do que uma table com uma imagem e chamando dados de campos dessas tabelas.

 

Consegui a lógica, mas não consigo tirar do papel sem erro...

[Mário Monteiro 179]

o que fez?

[RUSH-SP 0]

Sou novo na brincadeira, entao pode parecer grande, mas achei mais simples fazer assim, caso a caso.

 

<%

Dim tb1, tb2

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

DBC.Open "Provider=OraOLEDB.Oracle;Data Source=666;User ID=lalala;Password=lalala;"

tb1= "Select CD_CPF, TP_PES, CLI from TB1 where campo1='S'"

tb2= "Select CD_CPF, TP_PES, CLI from TB2"

 

Set tb1= DBC.Execute(tb1)

Set tb2= DBC.Execute(serasa)

 

%>

 

<%

If tb1("CD_CPF") like tb2("CD_CPF")

and tb1.("TP_PES") like tb2.("TP_PES")

and tb1.("CLI") like tb2.("CLI") then

response.Write("CLIENTE OK! DADOS CONFEREM.") else

end if

 

If tb1.("CD_CPF") not like tb2.("CD_CPF")

and tb1.("TP_PES") not like tb2.("TP_PES")

and tb1.("CLI") not like tb2.("CLI")then

response.Write("ATENÇÃO!!! EXISTE DIVERGÊNCIA ENTRE OS DADOS.") else

end if

 

If tb2.("CD_CPF") = TRUE and tb1.("CD_CPF") = FALSE then

response.Write("CLIENTE ESTA COM DADOS ERRADOS") else

end if

%>

[Mário Monteiro 179]

quais os tipos de dados de cada campo e cada tabela pois tem campo ali que eu achava que seria numerico e voce usa como booleano

[RUSH-SP 0]

quais os tipos de dados de cada campo e cada tabela pois tem campo ali que eu achava que seria numerico e voce usa como booleano

 

CD_CPF = number

TP_PES = char

CLI = varchar

 

ainda to testando outras opções.

Achei isso http://forum.imasters.com.br/index.php...rt=#entry973117 e isso http://forum.imasters.com.br/index.php...rt=#entry973314.

alterei para o nome dos meus campos mas dá:

 

Microsoft VBScript runtime error '800a01a8'

 

Object required:'DB'

 

/risco/teste.asp, line 4

 

---------------------

coloquei:

 

<%

If tb1= true Then

response.Write("ok")

end if

If tb2= true Then

response.Write("cliente com dados divergentes")

end if

If tb3= true Then

response.Write("cliente existe no tb2 e nao no tb1 ")

end if

%>