Busca de dados

[Tigger 0]

Entao se eu digitar NOME1 ele ira buscar todos que sao <>´s de NOME1???

 

Cars, acho que consegui!!!!!

 

Segue o codigo

 

ASP

 

 

 

 

[*]<%

[*] StrNome = (Request("nome"))

[*]StrEmail = (Request("email"))

[*]StrInicio = (Request("DATA_INICIO"))

[*]StrFinal = (Request("DATA_FINAL"))

[*]StrModulo = (Request("modulo"))

[*]

 

[*]D1Dia = Left (Request.Form("DATA_INICIO"),2)

[*]D1Mes = Mid (Request.Form("DATA_INICIO"),4,2)

[*]D1Ano = Right(Request.Form("DATA_INICIO"),4)

[*]

 

[*]D2Dia = Left (Request.Form("DATA_FINAL"),2)

[*]D2Mes = Mid (Request.Form("DATA_FINAL"),4,2)

[*]D2Ano = Right(Request.Form("DATA_FINAL"),4)

[*]

 

[*] Data1 = D1Mes & "/" & D1Dia & "/" & D1Ano

[*]Data2 = D2Mes & "/" & D2Dia & "/" & D2Ano

[*]

 

[*]'***INICIANDO A SQL DE CONSULTA

[*] SQL = " SELECT * FROM DOWNLOADS_EFETUADOS WHERE 1 = 1 "

[*]IF StrEmail <> "" THEN

[*]SQL = SQL & " AND DE_EMAIL = '"&StrEmail&"'"

[*] END IF

[*]

 

[*]IF StrNome <> "" THEN

[*] SQL = SQL & " AND DE_NOME = '"&StrNome&"'"

[*] END IF

[*]

 

[*]IF ISDATE(Data1) AND ISDATE(Data2) THEN

[*]SQL = SQL & " AND DE_DATA > #"&Data1&"# AND DE_DATA < #"&Data2&"# "

[*]END IF

[*]

 

[*]IF StrModulo <> "N" THEN

[*]SQL = SQL & " AND DE_MODULO = " & StrModulo

[*]END IF

[*]SET RS2 = Cnn.execute(SQL)

[*] %>

 

Daqui uns 10 mnutos estarei colocando a visualizacao...peco que você´s teste a busca e vejam se esta tudo correto....por favor, nao esquecam de pesquisar, por data e por modulo tudo junto...beleza..

 

Mais uma vez valeu galera...

[Mário Monteiro 179]

ok cara que bom que conseguiu...

[Tigger 0]

Faca um teste e veja se esta correto...

http://www.amznet.com.br/administracao/man...s_efetuados.asp

[Mário Monteiro 179]

coloquei so dat e veio issoMicrosoft OLE DB Provider for ODBC Drivers error '80040e10' [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1. /administracao/manutencao/downloads_efetuados.asp, line 45 deve ter algum nome de campo diferente do que ta no db