Montar uma pagina de consultas

[william_droops 0]

Boa tarde, eu não tenho experiência com banco de dados e preciso montar uma pagina para consulta, eu tenho a consulta pronta, mas estatica, ou seja, ela pega tudo. Quero montar uns list menu na pagina e filtrar, mas estou com dificuldade.

 

Não sei se é melhor começar do 0 ou se posso usar a estrutura já existente apenas incrementando o Where.

 

 

eis a consulta pronta

sql = "Select "

sql = sql &" Razao_Social_e_Nome_1.rzs as Razao_Social_Nome_Razao_Social_e_Nome_1,"

sql = sql &" Clientes.cod as Codigo_Clientes,"

sql = sql &" Razao_Social_e_Nome.rzs as Razao_Social_Nome_Razao_Social_e_Nome,"

sql = sql &" Descricao_Pessoas.dsc as Descricao_Descricao_Pessoas,"

sql = sql &" Descricao_Pessoas_1.dsc as Descricao_Descricao_Pessoas_1,"

sql = sql &" Descricao_Pessoas_2.dsc as Descricao_Descricao_Pessoas_2 "

sql = sql &" from"

sql = sql &" cli Clientes, "

sql = sql &" cliPREF Preferencia_Cliente,"

sql = sql &" vend Vendedores, "

sql = sql &" bfj Razao_Social_e_Nome,"

sql = sql &" bfj Razao_Social_e_Nome_1,"

sql = sql &" emp Empresas_do_Sistema,"

sql = sql &" ende Enderecos,"

sql = sql &" dsgBFJ Descricao_Pessoas, "

sql = sql &" dsgBFJ Descricao_Pessoas_1, "

sql = sql &" dsgBFJ Descricao_Pessoas_2"

sql = sql &" where "

sql = sql &" (Clientes.CHVCLI=Preferencia_Cliente.CHVCLI)"

sql = sql &" and (Vendedores.CHVVEND=Preferencia_Cliente.CHVVND)"

sql = sql &" and (Razao_Social_e_Nome.CHVBFJ=Vendedores.CHVBFJ)"

sql = sql &" and (Razao_Social_e_Nome_1.CHVBFJ=Clientes.CHVBFJ)"

sql = sql &" and (Empresas_do_Sistema.CHVEMP=Razao_Social_e_Nome_1.CHVEMP)"

sql = sql &" and (Razao_Social_e_Nome_1.CHVBFJ=Enderecos.CHVBFJ)"

sql = sql &" and (Descricao_Pessoas.CHVDSG=Enderecos.CHVREG)"

sql = sql &" and (Descricao_Pessoas_1.CHVDSG=Enderecos.CHVDSGUF)"

sql = sql &" and (Descricao_Pessoas_2.CHVDSG=Clientes.CHVTIP)"

sql = sql &" and "

sql = sql &" ( "

sql = sql &" ( "

sql = sql &" Empresas_do_Sistema.ftsia ='TESTE'"

sql = sql &" and "

sql = sql &" Clientes.Dt_Inat is null "

sql = sql &" and "

sql = sql &" Enderecos.chvtipend = 2"

sql = sql &" ) "

sql = sql &" ) "

sql = sql &" order by 5 asc, 4 asc, 2 asc, 3 asc, 1 asc "

[Mário Monteiro 179]

que erro vem ocorrendo?

[william_droops 0]

Oi Mario, não ocorre erro, preciso deixar essa consulta dinamica, estou conseguindo colocando os filtros vou postar o final da consulta que alterei.

 

Obrigado

 

sql = sql &" and (Descricao_Pessoas_1.CHVDSG=Enderecos.CHVDSGUF)"

sql = sql &" and (Descricao_Pessoas_2.CHVDSG=Clientes.CHVTIP)"

sql = sql &" and "

sql = sql &" ( "

sql = sql &" ( "

sql = sql &" Empresas_do_Sistema.ftsia ='"&request("cod_cli")&"'"

sql = sql &" and "

sql = sql &" Clientes.Dt_Inat is null "

sql = sql &" and "

sql = sql &" Enderecos.chvtipend = 1061"

 

if request("estados") <> "todos" then

sql = sql &" and Descricao_Pessoas_1.CHVDSG="&request("estados")&" "

 

end if

if request("vendedores") <> "todos" then

sql = sql &" and Razao_Social_e_Nome.CHVBFJ="&request("vendedores")&" "

 

end if

 

if request("regiao") <> "todos" then

sql = sql &" and Descricao_Pessoas.CHVDSG="&request("regiao")&" "

 

end if

sql = sql &" ) "

sql = sql &" ) "

sql = sql &" order by 5 asc, 4 asc, 2 asc, 3 asc, 1 asc "

[Mário Monteiro 179]

com qual linguagem esta trabalhando?

 

ela sem este dinamicidade esta correta?

[william_droops 0]

Estou trabalhando com ASP, esta dando certo.

Abri um novo tópico com uma duvida diferente.

 

Obrigado

[Mário Monteiro 179]

Ok entao siga por lá pelo forum de ASP