9 replies to this topic

[Skinner]

Oi pessoal, este é o meu primeiro post, se não for aqui o lugar ideal para esta pergunta, por favor, sintam-se à vontade para removê-la. Já procurei outros posts, mas não encontrei nada que se encaixasse nesta dúvida, ao menos nada com respostas. Não entendo de codificação em ASP, só sei fazer alguma coisa através do Dreamweaver, por isso estou postando aqui.

Estou fazendo uma página de busca no Dreamweaver. Na página de busca existe um grupo de radio buttons e um text field. Os radio buttons passam o nome do campo que deverá ser pesquisado e a text field passa o conjunto de caracteres que deverá ser pesquisado. Ex.: radio button setado para "Nome" e text field com o string "Skinner" irá pesquisar na tabela "Clientes" os nomes que contém o string "Skinner". Se neste caso o radio button estivesse setado para endereço, procuraria na coluna "Endereco" o string Skinner.

A minha dúvida é: uma vez que estes parâmetros estão sendo passados corretamente (eu consegui testá-los na página de resultado da pesquisa), como os colocarei no Recordset para que ele efetue a pesquisa?

SELECT *
FROM Clientes
WHERE %ColunaTabela% LIKE %ValorDigitado%
ORDER BY Nome_cli ASC

Em que
%ColunaTabela% = Request.QueryString("Coluna")
Este "Coluna", por sua vez, contém o valor que o grupo de radio buttons passa como parâmetro para a pesquisa. Exemplo: Nome_cli ou Endereco_cli, dependendo do que estiver setado.

Detalhe: o nome dos campos da tabela estão corretos, ou seja, cada item de radio button corresponde a um nome (exatamente igual), da coluna que deverá ser comparada.

Em outras palavras, ao setar o radio button para "Nome", ele passará para o recordset o valor "Nome_cli", que é o campo da tabela.

O Dreamweaver permite que o nome do campo da tabela seja passado como parâmetro em uma consulta? Na cláusila acima, após o "LIKE" o parâmetro funciona corretamente, mas não funciona após o "WHERE". Há alguma outra forma de se fazer isso utilizando o Dreamweaver? Se não houver, como eu poderia proceder?

Desde já, agradeço.

Ah! Desculpem-me pelo tamanho do post, mas tentei explicar nos mínimos detalhes.

[AN Web Designer]

Fala aí Skinner !!!

Sua dúvida está mais relacionada com ASP do que Dreamweaver, embora o software trabalhe perfeitamente com esta ação é importante termos domínio dos códigos.

Estou movendo para a sala de ASP.

Obs: Você realmente está trabalhando com ASP, não está ?
Caso seja PHP, avisa aí...


Qualquer coisa estamos aí !!!


AN

[DarkSign]

A minha dúvida é: uma vez que estes parâmetros estão sendo passados corretamente (eu consegui testá-los na página de resultado da pesquisa), como os colocarei no Recordset para que ele efetue a pesquisa?

SELECT *
FROM Clientes
WHERE %ColunaTabela% LIKE %ValorDigitado%
ORDER BY Nome_cli ASC

Em que
%ColunaTabela% = Request.QueryString("Coluna")
Este "Coluna", por sua vez, contém o valor que o grupo de radio buttons passa como parâmetro para a pesquisa. Exemplo: Nome_cli ou Endereco_cli, dependendo do que estiver setado.

Amigo, vc terá que trocar %ColunaTabela por uma variável válida do ASP, criada com DIM, e o %ValorDigitado% também. Faça o seguinte, declare 2 variáveis no ASP:

dim coluna, valor

Bem, ae vc terá que pegar os valores respectivamente, mais ou menos assim:

coluna = Request.QueryString("Coluna")
valor = Request.QueryString("txtValor")

Isso se txtValor for o nome de sua caixa texto, obviamente. Depois disso, tente chamar o SQL assim:

SQL="SELECT * FROM Clientes WHERE " & coluna & " LIKE " & valor & " ORDER BY Nome_cli ASC" 
RS.open SQL,conn,3,3

Supondo que RS seja o nome do recordset da tua conexão.

Veja se isso resolve teu problema

/*DarkSign*/

[Skinner]

Fala aí Skinner !!!

Sua dúvida está mais relacionada com ASP do que Dreamweaver, embora o software trabalhe perfeitamente com esta ação é importante termos domínio dos códigos.

Estou movendo para a sala de ASP.

Obs: Você realmente está trabalhando com ASP, não está ?
Caso seja PHP, avisa aí...


Qualquer coisa estamos aí !!!


AN

Oi AN,

Muito obrigado por ter movido o post para o lugar correto. (Esses novatos são fogo... sempre postam em lugares errados... rs.) Imaginei que talvez fosse ASP, mas como fiz tudo automático pelo Dreamweaver acabei colocando na seção do software.

Confirmando, é ASP mesmo.

Skinner

A minha dúvida é: uma vez que estes parâmetros estão sendo passados corretamente (eu consegui testá-los na página de resultado da pesquisa), como os colocarei no Recordset para que ele efetue a pesquisa?

SELECT *
FROM Clientes
WHERE %ColunaTabela% LIKE %ValorDigitado%
ORDER BY Nome_cli ASC

Em que
%ColunaTabela% = Request.QueryString("Coluna")
Este "Coluna", por sua vez, contém o valor que o grupo de radio buttons passa como parâmetro para a pesquisa. Exemplo: Nome_cli ou Endereco_cli, dependendo do que estiver setado.

Amigo, vc terá que trocar %ColunaTabela por uma variável válida do ASP, criada com DIM, e o %ValorDigitado% também. Faça o seguinte, declare 2 variáveis no ASP:

dim coluna, valor

Bem, ae vc terá que pegar os valores respectivamente, mais ou menos assim:

coluna = Request.QueryString("Coluna")
valor = Request.QueryString("txtValor")

Isso se txtValor for o nome de sua caixa texto, obviamente. Depois disso, tente chamar o SQL assim:

SQL="SELECT * FROM Clientes WHERE " & coluna & " LIKE " & valor & " ORDER BY Nome_cli ASC" 
RS.open SQL,conn,3,3

Supondo que RS seja o nome do recordset da tua conexão.

Veja se isso resolve teu problema

/*DarkSign*/

Oi DarkSign, obrigado pela ajuda.

Eu tentei fazer o que me disse, mas o problema é que estou utilizando o Dreamweaver e não entendo de ASP. Porém, com a dica que me deu, eu consegui ir direto ao ponto em que está dando erro, lá no código fonte. Eu criei o recordset dinamicamente, através daqueles wizzards que existem e olha só como o Dreamweaver codificou:

<%
Dim Busca_Clientes
Dim Busca_Clientes_cmd
Dim Busca_Clientes_numRows


Set Busca_Clientes_cmd = Server.CreateObject ("ADODB.Command")
Busca_Clientes_cmd.ActiveConnection = MM_produtec_conexao_STRING
Busca_Clientes_cmd.CommandText = "SELECT * FROM Clientes WHERE ? LIKE ? ORDER BY Nome_cli ASC"
Busca_Clientes_cmd.Prepared = true
Busca_Clientes_cmd.Parameters.Append Busca_Clientes_cmd.CreateParameter("param1", 200, 1, 255, "%" + Busca_Clientes__ColunaTabela + "%") ' adVarChar
Busca_Clientes_cmd.Parameters.Append Busca_Clientes_cmd.CreateParameter("param2", 200, 1, 255, "%" + Busca_Clientes__ValorDigitado + "%") ' adVarChar

Set Busca_Clientes = Busca_Clientes_cmd.Execute
Busca_Clientes_numRows = 0
%>

O erro está justamente nesta parte do código. Por favor, como eu faria para mostrar o string contendo a instrução "Select" na tela?

Eu tentei fazer assim: <%= Busca_Clientes_cmd.CommandText %> mas ele me mostrou o string exatamente como está lá em cima e eu queria com os valores já substituidos, para eu saber o que há de errado. Assim eu veria o que aquele bendito parâmetro tem de errado.

Para encerrar, eu substituí aquele primeiro "%" por "&" como me disse, mas não funcionou.

Agradeço pela ajuda e se estiver complicado de resolver, nem esquenta, vou continuar tentando por aqui mesmo. Acredito que seja só algum caractere que esteja atrapalhando.

Valeu mesmo!!

Skinner

[DarkSign]

Puxa, cara, seria melhor aprender o ASP, pq esse código do DW é cabuloso xD. Minha conexão e abertura do BD são umas 4 linhas apenas. Depois eu posto um exemplo pra tu ver melhor.

/*DarkSign*/

[Skinner]

Puxa, cara, seria melhor aprender o ASP, pq esse código do DW é cabuloso xD. Minha conexão e abertura do BD são umas 4 linhas apenas. Depois eu posto um exemplo pra tu ver melhor.

/*DarkSign*/

Obrigado,

Hahaha... Não conheço ASP, mas bem que achei horroroso esse código. Acredito que em ASP não tenha esse monte de parâmetros esquisitos. Vou seguir a sua dica e aprender ASP. O problema é que eu não saberia como "mesclar" este código com o DW, pois foi nesta ferramenta que desenvolvi todo o resto do site, ao menos no início eu nem saberia onde colocar.

Enfim, obrigado pela ajuda!

Skinner

[DarkSign]

Bem, eu já desenvolvi sistema usando o DW e ASP, n eh dificil n. Aprende o ASP e edita o codigo do DW. o DW pode ser aliado, se saber usar o código xD

/*DarkSign*/

[Skinner]

Bem, eu já desenvolvi sistema usando o DW e ASP, n eh dificil n. Aprende o ASP e edita o codigo do DW. o DW pode ser aliado, se saber usar o código xD

/*DarkSign*/

Ok.

Vou baixar alguma apostila de ASP e tentar alterar o código acima.
Passei a noite inteira e fiquei até agora tentando trocar as variáveis pelo método de tentativa e erro, mas não deu certo.

Ah! Só uma coisa: qual é o comando para eu mostrar o conteúdo daquele SELECT na página? Sempe que eu mostro, aquele negócio me aparece com os pontos de interrogação, igual como está sendo movido para ele, ou seja, não estou conseguindo mostrar o conteúdo com os parâmetros da variável. Eu só queria ver a cláusula que é executada.

Tks again!

Skinner

[Skinner]

Pessoal, gostaria de agradecer pela ajuda, principalmente o /*DarkSign*/, e esta minha resposta aqui é para dizer que, depois de noites e mais noites, finalmente consegui encontrar uma solução.

Após ter criado todos os parâmetros pelo Dreamweaver, não há como fugir, o negócio é alterar via código. Pois bem, aí vai o local exato onde deverá ser realizada a alteração:
Quebrar a cláusula SELECT ao meio, introduzindo o parâmetro diretamente após o WHERE e contatenando com o restante da instrução. Não esquecer do "&" antes do parâmetro.

Busca_Clientes_cmd.CommandText = "SELECT * FROM Clientes WHERE " & Busca_Clientes__ColunaTabela + " LIKE ? ORDER BY Nome_cli ASC"

Eliminar a declaração de "param1" e deixar apenas a segunda, porém renomeá-la de "param2" para "param1".

Busca_Clientes_cmd.Parameters.Append Busca_Clientes_cmd.CreateParameter("param1", 200, 1, 255, "%" + Busca_Clientes__ValorDigitado + "%") ' adVarChar

O restante permanecerá como estava.

O resultado completo e alterado é:

<%
Dim Busca_Clientes
Dim Busca_Clientes_cmd
Dim Busca_Clientes_numRows


Set Busca_Clientes_cmd = Server.CreateObject ("ADODB.Command")
Busca_Clientes_cmd.ActiveConnection = MM_produtec_conexao_STRING
Busca_Clientes_cmd.CommandText = "SELECT * FROM Clientes WHERE " & Busca_Clientes__ColunaTabela + " LIKE ? ORDER BY Nome_cli ASC"
Busca_Clientes_cmd.Prepared = true
Busca_Clientes_cmd.Parameters.Append Busca_Clientes_cmd.CreateParameter("param1", 200, 1, 255, "%" + Busca_Clientes__ValorDigitado + "%") ' adVarChar

Set Busca_Clientes = Busca_Clientes_cmd.Execute
Busca_Clientes_numRows = 0
%>

Espero que seja útil para alguém.

Skinner

[DarkSign]

Vlws, até a próxima!

/*DarkSign*/