Criar Consulta Simples

Março 8, 2004

Boa tarde pessoal,

Bom, já consegui criar um cadastro... heheheh agora eu gostaria de fazer uma consulta... bem simples.... depois eu me viro para implementar. O que eu preciso é:

Uma consulta para acessar os dados de um bd em access chamado: "banco" e tabela chamada: "teste".

Desde já, agradeço!

Adriano

-#Alea#- · Março 8, 2004

Te cadastra no fórum meu...

Tu entende a linguagem SQL?

adriano182 · Março 8, 2004

entendo um pouco....

mas eu quero apenas uma consulta simples... sem formatação ou filtragem...

Basico pra mim aprender...

Valeu!

Ps. Eu já estou cadastrado no form, é q eu não tinha me logado!

ursolouco · Março 9, 2004

É simples cara, como hoje esta um pouco corrido aqui, não vou dar muitos detalhes...

palavra = Request.Form("Palavra")
palavra = CStr(Palavra)
Set Rs = Server.CreateObject("adodb.recordset")
cSQL= "SELECT * FROM Teste WHERE Campo Like '%" & palavra &"%'";"
Rs.Open cSQL, Conexao, 3, 3
While Not Rs.Eof
Response.Write(Rs(0))
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
Conexao.Close
Set Conexao = Nothing

É mais ou menos assim...

adriano182 · Março 9, 2004

Eu não entendi muito bem, mas mesm assim obrigado!

Bom, eu havia criado um, com a ajuda de alguns exemplos.

esse é o código:

<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ão
Conexao.close

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

Se alguém puder corrigir meus erros, estarei grato!

dark0 · Abril 8, 2004

você ainda tem problemas com esse codigo?

ele gerava erro?

vejamos.. olhando assim por cima, eu vi erros.. veja:

<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

liga.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 (liga.eof)

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

<% liga.movenext

wend

end if

' fecha a conexão

liga.close

' destrói o objeto Conexao para liberar memória

Set liga = nothing

%>

fiquei meio confuso com o codigo..

mas enfim.. veja se ele gera erro, assim fica mais facil de "debugar" o erro

abraços

Entrar

Criar Consulta Simples

Pergunta

Guest Guest

Link para o comentário

Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

-#Alea#-

Link para o comentário

Compartilhar em outros sites

adriano182

Link para o comentário

Compartilhar em outros sites

ursolouco

Link para o comentário

Compartilhar em outros sites

adriano182

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades