Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Web Design Valdeci

[Resolvido] Problema na consulta ao banco access

Por , em ASP Clássico

Recommended Posts

Web Design Valdeci    0

Web Design Valdeci
Postado

Boa tarde,

 

Fiz esta consulta

 

<%

opc = request.querystring("opc")

IF opc = "busca" THEN

if request.form("atendente") <> "" then

atendente = request.form("atendente")

end if

if request.form("setor") <> "" then

setor = request.form("setor")

end if

if request.form("enviado") <> "" then

enviado = request.form("enviado")

end if

if request.form("retorno") <> "" then

retorno = request.form("retorno")

end if

if request.form("mkt") <> "" then

mkt = request.form("mkt")

end if

Set cs_listar = Server.CreateObject("ADODB.Recordset")

cs_listar.ActiveConnection = strcon

cs_listar.Source = "SELECT * FROM DADOS WHERE atendente = '"&atendente&"' OR setor = '"&setor&"' OR enviado = '"&setor&"' OR retorno = '"&retorno&"' OR mkt = '"&mkt&"' ORDER BY data_add desc , hora_add desc"

cs_listar.CursorType = 0

cs_listar.CursorLocation = 3

cs_listar.LockType = 1

cs_listar.Open()

END IF

%>

 

fiz esta consulta aí em cima, ele recebe as variáveis enviadas via post. o problema é que ela funciona somente qd eu envio um dado como por ex: atendente. O que tá pegando é que na hora que envio dois dados como por exemplo: atendente e setor ele nao exibe certo. Alguem poderia me ajudar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Silvafabiano    0

Silvafabiano
Postado

Opa

 

beleza

 

Espero ter ajudado

 

Nao testei ok.

 

Veja se funciona

 

Valew

 

opc = request.querystring("opc")

IF opc = "busca" THEN

if request.form("atendente") <> "" then

sql_atendente = I + "(atendente = '"&request.form("atendente")&"')"

I = " OR "

end if

if request.form("setor") <> "" then

sql_setor = I + "(setor = '"&request.form("setor")&"')"

I = " OR "

end if

if request.form("enviado") <> "" then

sql_enviado = I + "(enviado = '"&request.form("enviado")&"')"

I = " OR "

end if

if request.form("retorno") <> "" then

sql_retorno = I + "(retorno = '"&request.form("retorno")&"')"

I = " OR "

end if

if request.form("mkt") <> "" then

sql_mkt = I + "(mkt = '"&request.form("mkt")&"')"

I = " OR "

end if

 

If sql_atendente = "" and sql_setor = "" and sql_enviado = "" and sql_retorno = "" and sql_mkt = "" then

var0 = ""

Else

var0 = " WHERE "

End if

 

Set cs_listar = Server.CreateObject("ADODB.Recordset")

cs_listar.ActiveConnection = strcon

cs_listar.Source = "SELECT * FROM DADOS "&var0&sql_atendente&sql_setor&sql_enviado&sql_retorno&sql_mkt&" ORDER BY data_add desc , hora_add desc"

cs_listar.CursorType = 0

cs_listar.CursorLocation = 3

cs_listar.LockType = 1

cs_listar.Open()

END IF

Compartilhar este post

Link para o post
Compartilhar em outros sites

Web Design Valdeci    0

Web Design Valdeci
Postado

Opa

 

beleza

 

Espero ter ajudado

 

Nao testei ok.

 

Veja se funciona

 

Valew

 

opc = request.querystring("opc")

IF opc = "busca" THEN

if request.form("atendente") <> "" then

sql_atendente = I + "(atendente = '"&request.form("atendente")&"')"

I = " OR "

end if

if request.form("setor") <> "" then

sql_setor = I + "(setor = '"&request.form("setor")&"')"

I = " OR "

end if

if request.form("enviado") <> "" then

sql_enviado = I + "(enviado = '"&request.form("enviado")&"')"

I = " OR "

end if

if request.form("retorno") <> "" then

sql_retorno = I + "(retorno = '"&request.form("retorno")&"')"

I = " OR "

end if

if request.form("mkt") <> "" then

sql_mkt = I + "(mkt = '"&request.form("mkt")&"')"

I = " OR "

end if

 

If sql_atendente = "" and sql_setor = "" and sql_enviado = "" and sql_retorno = "" and sql_mkt = "" then

var0 = ""

Else

var0 = " WHERE "

End if

 

Set cs_listar = Server.CreateObject("ADODB.Recordset")

cs_listar.ActiveConnection = strcon

cs_listar.Source = "SELECT * FROM DADOS "&var0&sql_atendente&sql_setor&sql_enviado&sql_retorno&sql_mkt&" ORDER BY data_add desc , hora_add desc"

cs_listar.CursorType = 0

cs_listar.CursorLocation = 3

cs_listar.LockType = 1

cs_listar.Open()

END IF

 

Ficou a mesma coisa.... selecionando mais combos ele nao consegue buscar o que esta pedindo. Vou mandar o combo que fiz pra você entender como ele funfa... Obrigado pela força ai, e se puder mais uma vez me ajudar sei mt grato. obrigado

 

Codigo que envia os dados:

CODE
<form id="iMasters" name="iMasters" method="post" action="relatorios_exibir.asp?opc=busca">

<table width="90%" border="0" align="center" cellpadding="0" cellspacing="5">

<tr>

<td width="28%" class="txt_cinza_11">Departamento:</td>

<td width="72%"><select name="setor" class="txt" id="setor">

<option>Selecione o Departamento</option>

<option value="BM Comunicação">BM Comunicação</option>

<option value="Guia do Comércio">Guia do Comércio</option>

<option value="Speed Way">Speed Way</option>

</select></td>

</tr>

<tr>

<td class="txt_cinza_11">Atendente</td>

<td><label>

<select name="atendente" class="txt" id="atendente">

<option>Selecione o atendente</option>

<option value="arianne">Arianne Stephanie</option>

<option value="glauce">Glaude Kelly</option>

<option value="valdeci">Valdeci Alves</option>

<option value="Leonardo">Leonardo Bulhões</option>

<option value="cassia">Cássia Regina</option>

<option value="michelle_a">Michelle Aline</option>

<option value="michelle_c">Michelle Chavier</option>

</select>

</label></td>

</tr>

<tr>

<td class="txt_cinza_11">Proposta Enviada? </td>

<td><label>

<select name="enviado" class="txt" id="enviado">

<option>Selecione</option>

<option value="sim">Sim</option>

<option value="nao">Não</option>

</select>

</label></td>

</tr>

<tr>

<td class="txt_cinza_11">Retorno: </td>

<td><select name="retorno" class="txt" id="retorno">

<option>Selecione</option>

<option value="Aguarda Retorno">Aguarda Retorno</option>

<option value="Ligar">Ligar</option>

<option value="Concluído">Concluído</option>

<option value="Não Quis">Não Quis</option>

</select></td>

</tr>

<tr>

<td><span class="txt_cinza_11">Telemarketing: </span></td>

<td><select name="mkt" class="txt" id="mkt">

<option>Selecione</option>

<option value="ativo">Ativo</option>

<option value="receptivo">Receptivo</option>

</select></td>

</tr>

<tr>

<td> </td>

<td><label>

<input name="Submit" type="submit" class="botao" value="Buscar!" />

<input name="Submit2" type="reset" class="botao" value="Limpar!" />

</label></td>

</tr>

<tr>

<td> </td>

<td> </td>

</tr>

</table>

</form>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Silvafabiano    0

Silvafabiano
Postado

Opa beleza

 

Os estão nos options

 

O problema é o seguinte

 

você deve definir um option sem valor assim

 

<option value="">Selecione o atendente</option>

 

 

e nao assim

 

<option >Selecione o atendente</option>

 

pq o que acontece ele vai mandar ao inves de ""(vazio) vai mandar Selecione o atendente e aí quando fizer a busca nao vai retornar nada

 

entao coloque em todos os option o value="" ok

 

valew

 

Fabiano

Compartilhar este post

Link para o post
Compartilhar em outros sites

Web Design Valdeci    0

Web Design Valdeci
Postado

Opa beleza

 

Os estão nos options

 

O problema é o seguinte

 

você deve definir um option sem valor assim

 

<option value="">Selecione o atendente</option>

 

 

e nao assim

 

<option >Selecione o atendente</option>

 

pq o que acontece ele vai mandar ao inves de ""(vazio) vai mandar Selecione o atendente e aí quando fizer a busca nao vai retornar nada

 

entao coloque em todos os option o value="" ok

 

valew

 

Fabiano

 

Cara... Parece até sacanagem.. fiz isto mas nada.. continua a mesma coisa...o que será ein... desculpe incomodar mas... se puder me ajudar mais uma vez... obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Silvafabiano    0

Silvafabiano
Postado

A consulta nao retorna nenhuma linha?

 

Dá um response.write() com a string sql

 

e execute lá no access

 

e veja o que ocorre ok

 

 

Exemplo eu fiz uma consulta

 

e ela retornou a string

 

SELECT * FROM DADOS WHERE (atendente = 'Leonardo') OR (setor = 'Guia do Comércio') ORDER BY data_add desc , hora_add desc

 

pelo visto está certa agora basta saber se tem dados cadastrados para que essas condicoes sejam satisfeitas ok

 

Fabiano

Compartilhar este post

Link para o post
Compartilhar em outros sites

Web Design Valdeci    0

Web Design Valdeci
Postado

A consulta nao retorna nenhuma linha?

 

Dá um response.write() com a string sql

 

e execute lá no access

 

e veja o que ocorre ok

 

 

Exemplo eu fiz uma consulta

 

e ela retornou a string

 

SELECT * FROM DADOS WHERE (atendente = 'Leonardo') OR (setor = 'Guia do Comércio') ORDER BY data_add desc , hora_add desc

 

pelo visto está certa agora basta saber se tem dados cadastrados para que essas condicoes sejam satisfeitas ok

 

Fabiano

 

Posso mandar os arquivos no seu e-mail para você verificar

?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito