Categorias

Pesquisar em banco de dados com Ajax

Imagem do avatar de
Publicado por Rodrigo Araujo

O código a seguir utiliza o AJAX para efetuar consulta em uma base de dados, permitindo um pesquisa rápida e não sendo necessário o refresh da página inteira.

O exemplo em anexo seria a consulta dos dados de um funcionário digitando o seu nome, será listado em um combobox os funcionários que começarem com o texto que está sendo digitado.

'-------------------------------------------------
'Pagina 1: funcionarios.asp
'-------------------------------------------------
<%@ Language=VBScript %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"         'não armazena no cache os dados gerados
Response.addHeader "cache-control", "private"   'não armazena no cache os dados gerados
Response.CacheControl = "no-cache"              'não armazena no cache os dados gerados
Session.LCID = 1046
%>

Pesquisa de Funcionários



        
    
    
        

            

                

                    Pesquisa (Digite o nome do funcionário):
                    
                    
                    
                

                

                    
                    

                    		
                

                

                    
                    

                    		
                

            

        

    


'-------------------------------------------------
'Página 2: execfunc.asp
'-------------------------------------------------



<%
Session.LCID = 1046
Set Conn = Server.Createobject("ADODB.Connection")
sConnectionString = "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=SERVIDOR;DATABASE=BANCODADOS;UID=USUARIO;PWD=SENHA"
Conn.open sConnectionString
Dim Registro	

if request("cmd") = "info" then
	set Registro = createobject("adodb.recordset")
	set Registro.activeconnection = conn
	Registro.cursortype = 3	
	Consulta = "SELECT * FROM SRA010 WHERE RA_MAT = '" & Request.Form("Matricula") & "' "
	Registro.open Consulta
	if not Registro.eof or Registro.bof then
		response.write "Detalhes do Funcionário: " & Registro("RA_NOME") & "

"
		response.write ""
		For I=0 to Registro.Fields.Count-1 'STEP 2			
			If Not IsNull(Registro.Fields(I)) Then
				IF Registro.Fields(I).name = "RA_ADMISSA" then
					Dado = mid(Server.HTMLEncode(Registro.Fields(I)),7,2) & "/" & mid(Server.HTMLEncode(Registro.Fields(I)),5,2) & "/" & mid(Server.HTMLEncode(Registro.Fields(I)),1,4)
				else
					Dado = Server.HTMLEncode(Registro.Fields(I))
				end if						

				Response.Write ""
				Response.Write ""
			End If
		Next
		response.write "
" & Registro.Fields(I).name & ": " & Dado & " 
"
	else
		response.write "Vazio..."
	end if
	Registro.close
else
%>


<%end if%>
Tags: