Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

roose

VB 2008 e access

Mensagens Recomendadas

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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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


Partilhar esta mensagem


Ligação 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

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.