• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

RicardoC

[Ajuda]Base de Dados

8 mensagens neste tópico

Eu gostava de pedir ajuda ao pessoal P@P ajuda.

Eu estou a construir uma base de dados através de o access, em que através de um formulário alguém pode ver a lista da base de dados

Por exemplo, o nome é XPTO, e quando carregamos em Procura, para saber o nome XPTO, aparece esse nome, mais os outros que tenham de nome XPTO, mais os dados de cada um.

E gostava de saber como faço para ligar o Access à página, em que estou a fazer, e quantas páginas estou tenho que fazer para além da página do formulário.

Se for possível ajudarem-me ficaria bastante grato, tenham um bocado de paciência, comigo...por favor :thumbsup:;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

cria então uma consulta no Access da tabela que queres (não importam os campos pois vai ser alterada)

no botão do formulário coloca o seguinte código:




If Me.caixadetexto.Value = "" Then
MsgBox ("introduza o texto a pesquisar")
Else

Dim tx As String
tx = Me.caixadetexto.Value
   Dim db As DAO.Database
   Dim qdf As DAO.QueryDef
   Dim strSQL As String
   Set db = CurrentDb
   Set qdf = db.QueryDefs("NOME DA CONSULTA CRIADA")
   strSQL = "Select * from NOME DA TABELA  where NOME DO CAMPO =" & tx & ""
qdf.SQL = strSQL

DoCmd.OpenQuery "NOME DA CONSULTA CRIADA"

DoCmd.Save
   DoCmd.Close acForm, Me.Name
    Set qdf = Nothing
   Set db = Nothing

End If





tens uma maneira bem mais fácil de fazer isto sem criar consultas

que é criar uma macro em vista de estrutura pondo como primeiro

AbrirTabela - nome da tabela... de preferência só de leitura

segundo

ExecutarComando - Comando Localizar

gravar a macro e associa essa macro ao botão de comando

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

tenta ser mais específico no título do tópico.

O titulo que usaste foi muito vago.

Obtens ajuda mais rapidamente se escreveres por exemplo:

"Ajuda com formulário no access"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Estás a usar alguma linguagem de Programação ou estás a fazer a interface no Access também ??

Abraço :ipool:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Este tópico é um segmento deste http://www.portugal-a-programar.pt/index.php?showtopic=6453

O objectivo é criar uma base de dados, é preferível ser em Access, e depois através do formulário que está na página que coloquei, após colocar alguns dados no formulário e carregar em Procurar, que apareça uma lista com os dados dessa pessoa e se por exemplo se colocar apenas o nome da pessoa ou o apelido aparecer os dados dessa pessoa e com outro nomes parecidos.

Obrigado por tentarem ajudar.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

<html>

<head>

<title>Update Entry Select</title>

</head>

<body bgcolor="white" text="black">

<%

'Dimension variables

Dim adoCon          'Holds the Database Connection Object

Dim rsGuestbook    'Holds the recordset for the records in the database

Dim strSQL          'Holds the SQL query for the database

'Create an ADO connection object

Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection

adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("guestbook.mdb")

'Set an active connection to the Connection object using DSN connection

'adoCon.Open "DSN=guestbook"

'Create an ADO recordset object

Set rsGuestbook = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database

strSQL = "SELECT tblComments.* FROM tblComments;"

'Open the recordset with the SQL query

rsGuestbook.Open strSQL, adoCon

'Loop through the recordset

Do While not rsGuestbook.EOF

    'Write the HTML to display the current record in the recordset

    Response.Write ("<br>")

    Response.Write ("<a href=""update_form.asp?ID=" & rsGuestbook("ID_no") & """>")

    Response.Write (rsGuestbook("Name"))

    Response.Write ("</a>")

    Response.Write ("<br>")

    Response.Write (rsGuestbook("Comments"))

    Response.Write ("<br>")

    'Move to the next record in the recordset

    rsGuestbook.MoveNext

Loop

'Reset server objects

rsGuestbook.Close

Set rsGuestbook = Nothing

Set adoCon = Nothing

%>

</body>

</html>

Eu estive a ver no site que me disseste, mas tenho uma dúvida, onde coloco o código no formulário e o outro, o na listagem dos dados ? Tenho de fazer quantas páginas ?

Agradecia a ajuda !

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora