Ir para conteúdo

POWERED BY:

Arquivado

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

adriano182

Consulta em um banco de dados Access

Por , em ASP Clássico

Recommended Posts

adriano182    0

adriano182
Postado

Bom pessoal, eu criei uma consulta, mas está dando erro.

 

<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  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ãoConexao.close' destrói o objeto Conexao para liberar memóriaSet Conexao = nothing%>

Alguém pode corrigir para mim?

 

Valew.

 

Adriano

Compartilhar este post

Link para o post
Compartilhar em outros sites

cesar    0

cesar
Postado

faltou abrir a conexao e o recorset..

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 if' fecha a conexãoConexao.close' destrói o objeto Conexao para liberar memóriaSet Conexao = nothingmedico.closeset medico = nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

adriano182    0

adriano182
Postado

Amigo, a consulta funcionou. Listou os nomes cadastrados, mas deu um erro no final. eu nao entendi...Você pode verificar para mim?o erro eh:ADODB.Recordset erro '800a0e78' Operation is not allowed when the object is closed. /marcaqui/cons_med.asp, line 49 Desde já, obrigado!

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