Ir para conteúdo

POWERED BY:

Arquivado

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

adriano182

Erro em consulta

Por , em ASP Clássico

Recommended Posts

adriano182    0

adriano182
Postado

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 recordsetset medico = server.createobject("ADODB.Recordset")medico.ActiveConnection = conexaoif nome <> "" then  medico.open "select * from medico WHERE nome Like '%" & nome &"%'"end ifif 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   wendend if' fecha a conexãoConexao.close' destrói o objeto Conexao para liberar memóriaSet Conexao = nothingmedico.closeset 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 eh:

 

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!

Compartilhar este post

Link para o post
Compartilhar em outros sites

cesar    0

cesar
Postado

tenta assim:

 

<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 recordsetset medico = server.createobject("ADODB.Recordset")medico.ActiveConnection = conexaoif nome <> "" then medico.open "select * from medico WHERE nome Like '%" & nome &"%'"end ifif 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  wendend ifmedico.closeset medico = nothing' fecha a conexãoConexao.close' destrói o objeto Conexao para liberar memóriaSet Conexao = nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

adriano182    0

adriano182
Postado

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....

Compartilhar este post

Link para o post
Compartilhar em outros sites

adriano182    0

adriano182
Postado

Bom, continua dando erro.

 

eu acho q a falha está na SQL...

 

o código que eu criei foi:

 

<html><head><title>Consulta de Médicos</title></head><body><%nome = Request.form("nome")convenio = Request.form("convenio")' 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 recordsetset medico = server.createobject("ADODB.Recordset")medico.ActiveConnection = conexaoif nome = "" Then  response.write "Nenhum Iten Relacionado."else  medico.open "SELECT * FROM medico WHERE nome LIKE '%" & nome &"%' AND convenio LIKE '%" & request("convenio") &"%'" end ifif 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:" & medico.fields("convenio")%><br><br>     <% medico.movenext   wendend if' fecha a conexãoConexao.close' destrói o objeto Conexao para liberar memóriaSet Conexao = nothing' medico.close' set medico = nothing%><br><br><br><p align="left"><font face="Verdana" size="2"><a href="index.htm">:: Voltar ::</a></font></p></body></html>

eu acho q a falha está na SQL...

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