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

roose

VB 2008 e access

Recommended Posts

roose

Boas,

Estou a iniciar o VB, e queria testar o access como VB.

Já consegui testei utilizando o BigDingNavigator, para conseguir navegar adicionar novos e gravar (mas pq não grava na base de dados?).

Mas agora queria colocar botões como: adicionar, novo, eliminar ou seja criar botões próprios para navegar nos registos. Já pesquisei no google, tenho muita informação diferente, já testei os códigos que encontrei, mas nada funciona. Simplesmente não sei como colocar o botão adicinar a funcionar.

Eu venho do PHP e é bastante simples adicionar um registo á base de dados, mas aqui não sei.....

Também tenho um livro que no caso só fala da ligação ao sqlserver (eu quero access), mas tb não percebo o autor, umas vezes faz a ligação á base de dados outras vez mostra lá um exmplo todo completo e não faz a ligação......

Alguem me pode ajudar......

Share this post


Link to post
Share on other sites
ribeiro55

Existem muitos, mas muitos, exemplos no forum.

Podes também dar uma espreitadela aqui.

Se mesmo assim continuares com alguma dúvida em específico, não hesites :D


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
roose

Estive a experimentar este código, mas não tive muita sorte

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'ligação á base de dados alunos e abertura da DB
        Dim AlunosCoonection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\alunos.mdb")
        AlunosCoonection.Open()
        'define um adapter
        Dim AlunosAdapter As New OleDbDataAdapter()
        Dim AlunosCommand As New OleDbCommand()
        AlunosAdapter.SelectCommand = AlunosCommand
        'define e preenche um dataTable com os dados
        Dim AlunosTabela As DataTable
        AlunosTabela = New DataTable()
        AlunosAdapter.Fill(AlunosTabela)
        'vincula os dados aos controlos do formulário
        TextBoxNome.DataBindings.Add("Text", AlunosTabela, "Nome")
        TextBoxMorada.DataBindings.Add("Text", AlunosTabela, "Endererço")
        'os Botões Sexo e Habilitação não ão visiveis ao utilizador e saão usados para preencher os controlos radiobutos equivalentes
        GroupBoxS.DataBindings.Add("Text", AlunosTabela, "Sexo")
        GroupBoxH.DataBindings.Add("Text", AlunosTabela, "Habilitações")
        TextBoxDataNas.DataBindings.Add("Text", AlunosTabela, "Data Nascimento")
        'estabelece o curancymanagement
        Dim AlunosCManager As CurrencyManager
        AlunosCManager = DirectCast(Me.BindingContext(AlunosTabela), CurrencyManager)
        'define a exibição dos dados nos controles lable para sexo e grau e exibe foto do aluno
        'Call ExibirDados()
        'define o estado de exibição dos dados ver e editar
        'Call definirEstado("Ver")

    End Sub

    Private Sub Novo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Novo.Click
        'define a posição actual do currencyManager
        Dim mMarcador As CurrencyManager
        Dim AlunosCManager As CurrencyManager
        mMarcador = AlunosCManager.Position 'define a posição actual do currency manager
        AlunosCManager.AddNew() ' Inclui um novo registo no currency manager

    End Sub
End Class

Share this post


Link to post
Share on other sites
ribeiro55

O que é para ti "não funcionar nada" ?

Tens de ser mais específico no que faz, não faz, acontece ou não acontece.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
paulo silva

já experimentas-te fazer um debug? a ver o que acontece e a ver o erro que dá?

Cumprimentos Paulo Silva

Share this post


Link to post
Share on other sites
Weasel

Só de olhar para o primeiro código vejo isto: Source=|DataDirectory|\alunos.mdb" na connection string

Tens mesmo assim a source? é que |DataDirectory| não é nenhuma path.


Knowledge to the masses


Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.