Ir para conteúdo

POWERED BY:

Arquivado

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

david dias

consulta ao banco de dados

Por , em ASP Clássico

Recommended Posts

david dias    0

david dias
Postado

galera não estou conseguindo fazer uma consulta no banco de dados o cod e esse

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- #Include Virtual="/inc_onStart.asp" -->
<html>
<head>
	<title>Untitled</title>
</head>
<body>
<% Call AbreConn  %>
<% 
function getpesquisa(Vrs)
	Dim RSobj 
	Dim strSQL 
	' Inicialização do objeto Recordset Set 
	set RSobj = Server.CreateObject("ADODB.Recordset") 
	strSQL = "select id,rs from Log_liberacao"
	objRS.open strSQL, gConn
	set getpesquisa = RSobj
end function
%>

<%RSobj("rs") %>


</body>
</html>
não to conseguindo de jeito nenhum e aparece isso ai o

Microsoft VBScript runtime erro '800a000d'

 

Type mismatch: 'RSobj'

 

/request_pesquisa.asp, line 21

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você não carregou a função e não declarou a variável RSobj fora dela.

 

Mas porque utiliza função? Faça sem.

Compartilhar este post

Link para o post
Compartilhar em outros sites

david dias    0

david dias
Postado

Só cologuei a Função pq me disseram que ficaria melhor

 

eu tinha colocado dessa forma

<% 
	dim RSobj,strSQL
	' Inicialização do objeto Recordset Set 
	set RSobj = Server.CreateObject("ADODB.Recordset") 
	strSQL = "select id,rs from Log_liberacao"
	RSobj.open strSQL, gConn
	
%>

mais ele só me trazia a primeira linha da tabela

 

será que tenho que colocar um do whiler

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Sim, você tem que colocar o While para ler os demais registros.

Compartilhar este post

Link para o post
Compartilhar em outros sites

david dias    0

david dias
Postado

Sim, você tem que colocar o While para ler os demais registros.

 

Tô colocando desse jeito aqui.

dim RSobj,strSQL
	' Inicialização do objeto Recordset Set 
	set RSobj = Server.CreateObject("ADODB.Recordset") 
	strSQL = "select * from Log_liberacao"
	
	RSobj.open strSQL, gConn
	
	if trim(request.form ("pesquisa")) = "" then
	strSQL = "select rs where Log_liberacao"
		do while not RSobj.eof
		response.write (RSobj("rs"))&" <br>" 
		RSobj.movenext
		loop
	end if	
	if  trim(request.form ("pesquisa"))<> "" then
	strSQL = "select * from Log_liberacao where rs = '"&request.form("pesquisa")&"'"	
		response.write (RSobj("id"))
    end if

a primeira busca consigo pegar todos os dados da tabela ok era isso mesmo que eu queria que ela busca-se tudo quando o campo estivesse vazio mesmo.

Mais o segundo eu queria que ele me traze se somente o que eu digitei na pesquisa ,e não ta dando certo ,qualquer coisa que eu digite ele me traz somente o primeiro id da tabela

Onde tâ o erro ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado 

strSQL = "select * from Log_liberacao"
A linha acima traz apenas os dados da tabela.

 

Você tem que montar o SELECT corretamente, usando WHERE e LIKE para buscar pelo que foi digitado

Compartilhar este post

Link para o post
Compartilhar em outros sites

david dias    0

david dias
Postado 

strSQL = "select * from Log_liberacao"
A linha acima traz apenas os dados da tabela.

 

Você tem que montar o SELECT corretamente, usando WHERE e LIKE para buscar pelo que foi digitado

 

colequei desse jeito

strSQL = "select * from Log_liberacao where rs = '"&request.form ("pesquisa")&"'"

 

e ele so responde na segunda combo

 

na primeira ele não traz os resultados certos

 

tipo!!

 

quando eu coloco para pesquisar pelo numero ele da certo

e quando coloco vazio, era para me trazer todos mais so tá me trazendo os que tem 0

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Utiliza like

strSQL = "select * from Log_liberacao where rs like '"&request.form ("pesquisa")&"'"

Compartilhar este post

Link para o post
Compartilhar em outros sites

david dias    0

david dias
Postado

Meu camarada valeu pela força

 

mais a variável rs ela vem do tipo inteiro e quando coloco like ela ta me trazendo tudo e eu queria só o que foi digitado caso o usuário não soube se o numero ele deixaria em branco e buscaria tudo

 

 

vlw..

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Falha no entendimento. Entendi que busca era por texto.

 

Nesse caso faça o seguinte:

If isNumeric(request.form ("pesquisa")) Then
    strSQL = "select * from Log_liberacao where rs=" & request.form ("pesquisa")
Else
    strSQL = "select * from Log_liberacao"
End If

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