Erro Em Consulta

adriano182 · Março 9, 2004

Criei uma consulta para listar os dados de um banco de dados.. algo bem simples. O script é esse:

<html>

<head>
<title>Consulta de Médicos</title>
</head>

<body>

<%
nome = Request.form("nome") 


' mapeia o caminho 
x = Server.MapPath("medico.mdb")

' cria o objeto Conexão 
Set Conexao = Server.CreateObject("ADODB.Connection")

' concatena a string do driver com o caminho 
liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x 
'abre a conexão 
conexao.open liga

' cria o objeto de recordset
set medico = server.createobject("ADODB.Recordset")
medico.ActiveConnection = conexao

if nome <> "" then
  medico.open "select * from medico WHERE nome Like '%" & nome &"%'"
end if

if medico.eof then
  response.write "Não Existem Médicos com os Dados Selecionados!"
else
  while not (medico.eof)
  
     response.write "Nome do Medico:" & medico.fields("nome")%><br>
      <% medico.movenext
   wend
end if


' fecha a conexão
Conexao.close

' destrói o objeto Conexao para liberar memória
Set Conexao = nothing

medico.close
set medico = nothing
%>

Bom, o que ocorre é que depois de listar o que está no banco, aparece uma mensagem de erro. Ou sea ele lista e apresenta um erro depois.

a msg de erro é:

ADODB.Recordset erro '800a0e78'

Operation is not allowed when the object is closed.

/marcaqui/cons_med.asp, line 49

outra questão: como eu faço para colocar na consulta, mais campos, como campo, endereço, telefone...

Obrigado!

ursolouco · Março 9, 2004

<html>
<head>
<title>Consulta de Médicos</title>
</head>
<body>
<%
nome = Request.form("nome")

' mapeia o caminho 
x = Server.MapPath("medico.mdb")

' cria o objeto Conexão 
Set Conexao = Server.CreateObject("ADODB.Connection")

' concatena a string do driver com o caminho 
liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x 
'abre a conexão 
conexao.open liga

' cria o objeto de recordset
set medico = server.createobject("ADODB.Recordset")
medico.ActiveConnection = conexao

if nome <> "" then
 medico.open "select * from medico WHERE nome Like '%" & nome &"%'"
end if

if medico.eof then
 response.write "Não Existem Médicos com os Dados Selecionados!"
else
 while not (medico.eof)

    response.write "Nome do Medico:" & medico.fields("nome")%><br>
     <% medico.movenext
  wend
end if

medico.close
Set Medico = Nothing

' fecha a conexão
Conexao.close

' destrói o objeto Conexao para liberar memória
Set Conexao = nothing

%>

Uma pequena correção na posição do seu RecordSet.

Feche-o antes da conexão, libere-o da memoria para depois fazer o mesmo com sua conexão

adriano182 · Março 9, 2004

Obrigado!!!

Já ta funcionando a conslta...

agora, eu so queria saber, o que eu preciso alterar na consulta, para poder filtrar por dois dados, tipo nome e endereço...

depois eu arrumo no formulario para pegar dois dados....

Reginaldo ASP · Março 9, 2004

select * from medico WHERE nome Like '%" & nome &"%'" AND endereco Like '%"&variavelEndereco&"%'

Assim você filtra também pelo endereco

adriano182 · Março 9, 2004

Bom, o codigo ficou asim:

<html>

<head>
<title>Consulta de Médicos</title>
</head>

<body>

<%
nome = Request.form("nome") 
convenio = Request.form("convenio") 
especialidade = Request.form("especialidade") 


' mapeia o caminho 
x = Server.MapPath("medico.mdb")

' cria o objeto Conexão 
Set Conexao = Server.CreateObject("ADODB.Connection")

' concatena a string do driver com o caminho 
liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x 
'abre a conexão 
conexao.open liga

' cria o objeto de recordset
set medico = server.createobject("ADODB.Recordset")
medico.ActiveConnection = conexao

if nome <> "" then
  medico.open "select * from medico WHERE nome Like '%" & nome &"%' AND convenio Like '%" & convenio &"%'" 
end if

if medico.eof then
  response.write "Não Existem Médicos com os Dados Selecionados!"
else
  while not (medico.eof)
  
    response.write "Nome do Medico:" & medico.fields("nome")%><br><%
    response.write "Convenio do Medico:" & medico.fields("convenio")%><br><br>
      <% medico.movenext
   wend
end if


' fecha a conexão
Conexao.close

' destrói o objeto Conexao para liberar memória
Set Conexao = nothing

' medico.close
' set medico = nothing
%>

A msg de erro é:

Microsoft JET Database Engine erro '80040e10'

No value given for one or more required parameters.

/marcaqui/cons_med.asp, line 31

Obrigado!

Setembro 28, 2004

OI TENTO ENTRAR BANCO BRADESCO E DÁ UM ERRO SCRIPT PODE ME DIZER COMO FAÇO PARA TIRAR ISSO???

MEU EMAILL luarios@yahoo.com.br

OBRIGADA

bareta · Setembro 29, 2004

OI TENTO ENTRAR BANCO BRADESCO E DÁ UM ERRO SCRIPT PODE ME DIZER COMO FAÇO PARA TIRAR ISSO???
MEU EMAILL luarios@yahoo.com.br
OBRIGADA

vixi repete o que você disse ai qur num da pra entende nada

Entrar

Erro Em Consulta

Pergunta

adriano182

Link para o comentário

Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

ursolouco

Link para o comentário

Compartilhar em outros sites

adriano182

Link para o comentário

Compartilhar em outros sites

Reginaldo ASP

Link para o comentário

Compartilhar em outros sites

adriano182

Link para o comentário

Compartilhar em outros sites

Guest REGIANE

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades