Ir para conteúdo

POWERED BY:

Arquivado

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

reinaldo polato

[Resolvido] Pesquisar campos

Por , em ASP Clássico

Recommended Posts

reinaldo polato    1

reinaldo polato
Postado

e ai gente beleza

 

eu to fazendo um sistema em asp e o banco de dados sql server a pagina consulta.asp teria que retornar os campos que foi cadastrado na tabela mais não funciona a consulta

 

a consulta deveria mostrar os campos que foi digitado na pagina pra cadastrar que é a pagina ds_name.asp que está na tabela

 

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<title> Consulta </title>
<form name="frm" Method="Post" action="consulta.asp">
<table align="center" border="1" width="35%">
<tr>
<td bgcolor="White" width="33%"><font color="white"><Select Name="tx_campo" Style="Width=100%">
		<option value="">Select</option>
		<option value="RazaoSocial">RazaoSocial</option>
		<option value="Endereco">Endereco</option>
		<option value="Bairro">Bairro</option>
		<option value="Tipo">Tipo</option>
		<option value="Cep">Cep</option>
		<option value="IE">IE</option>
		<option value="RG">RG</option>
		<option value="CPF">CPF</option>
		<option value="Estado">Estado</option>
		</option>
		</td>
		<td bgcolor="White" width="33%"><input type="text" name="ds_Pesquisa" Size="20"></td>
		<td bgcolor="white" width="33%"><input type="Submit" name="Pesquisar" value="Pesquisar >>"></td>
		
</tr>
</td>
</form>
</table> 		 
		
<P> </P>

</BODY>
</HTML>

<%


'on error resume next

if Request.Form("tx_campo") <> ""  and Request.form("ds_Pesquisar") <> "" then

dim conexao
dim strDriver
dim objconexao
dim objrecordset

Set DbConn = Server.CreateObject("ADODB.Connection")
strConexao = "Provider=SQLOLEDB;Database=db_Cliente;Server=Polato03;Uid=Sa;Pwd=123456789"
'Provider=SQLOLEDB;Database=NomeDoSeuBancoDeDados;Server=NomeDoServidor;Uid=Seuusuario;Pwd=SuaSenha"



set objconexao=server.CreateObject("adodb.connection")
set objrecordset=server.CreateObject("adodb.recordset")

objconexao.Open  strconexao

dim str 

 strSQL = "SELECT *  " & _
                    
                    "FROM   [Consulta] " & _
					
					"WHERE  " & Request.Form("tx_campo") & " Like '" & Request.Form("ds_Pesquisar") & "%' "            
					
					
  objrecordset.Open StrSQL, objconexao, 3,1				


do until objrecordset.EOF 
  Response.Write objrecordset.Fields.item(0).value & "<br>"
  Response.Write objrecordset.Fields.item(1).value & "<br>"
  Response.Write objrecordset.Fields.item(2).value & "<br>"
  Response.Write objrecordset.Fields.item(3).value & "<br>"
  Response.Write objrecordset.Fields.item(4).value & "<br>"
  Response.Write objrecordset.Fields.item(5).value & "<br>"
  Response.Write objrecordset.Fields.item(6).value & "<br>"
  Response.Write objrecordset.Fields.item(7).value & "<br>"
  Response.Write objrecordset.Fields.item(8).value & "<br>"
  Response.Write objrecordset.Fields.item(9).value & "<br>"
  Response.Write objrecordset.Fields.item(10).value & "<br>"

  objrecordset.MoveNext 

loop


objconexao.close
set objconexao=nothing
set objrecordset=nothing

end if

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum erro !?!?!

poste a linha do code e numero do erro se houver....

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai xanburzum beleza

é assim essa pagina não gera nenhum erro

eu coloquei um campo novo o Tipo nas paginas e no banco de dados ai depois não consegui mais fazer a pesquisa

 

<td bgcolor="White" width="33%"><font color="white"><Select Name="tx_campo" Style="Width=100%">

 

 

if Request.Form("tx_campo") <> "" and Request.form("ds_Pesquisar") <> "" then

 

"WHERE " & Request.Form("tx_campo") & " Like '" & Request.Form("ds_Pesquisar") & "%' "

 

essas tres linhas está com o nome tx_name

 

 

ai na outra está assim

 

 

<td bgcolor="White" width="33%"><input type="text" name="ds_Pesquisa" Size="20"></td>

<td bgcolor="white" width="33%"><input type="Submit" name="Pesquisar" value="Pesquisar >>"></td>

 

 

algum nome do input type="text" name="ds_name"

 

algum nome deve estar errado por isso que não está indo a pesquisa

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

faz assim

 

"WHERE " & Request.Form("tx_campo") & " Like '%" & Request.Form("ds_Pesquisar") & "%' "

e depois dá um response.write na sua string SQL para ver o k esta sendo passada

 

response.write(SQL)
response.end()

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai xanburzum beleza

eu coloquei isso "WHERE " & Request.Form("tx_campo") & " Like '%" & Request.Form("ds_Pesquisar") & "%' "

 

e depois embaixo do "WHERE " isso response.write(SQL)response.end()

 

mais não faz nada

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você precisa dar o response.writena sua string SQL

Compartilhar este post

Link para o post
Compartilhar em outros sites

reinaldo polato    1

reinaldo polato
Postado

e ai xanburzum beleza

eu ja consegui resolver

 

eu fiz assim eu tirei o nome do campo Tipo

 

ai na pagina consulta.asp deu esse erro

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

ai eu tirei essa linha e funcionou Response.Write objrecordset.Fields.item(9).value & "<br>"

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