Conteúdo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Fundo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Desenho: Liso Onda Linha Retalho Madeira Rocha Couro Colméia Vertical Triângulo
Bem-vindo ao Fórum do BABOO!

Desde 2000 o Fórum do BABOO tem ajudado milhões de internautas de Windows a resolverem seus problemas e dúvidas, além de ajudar na remoção de vírus e malwares de seus computadores. Somos o único fórum brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows, então se você tem uma dúvida ou problema que nenhum outro fórum resolve, poste-a aqui pois o MVP Babooadora desafios!
  

O Fórum do BABOO também conta com a participação exclusiva do administrador da área de Segurança MVP Mr.Million que tem reconhecimento internacional da Microsoft pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Se o seu computador está infectado por algum vírus, ele te ajudará a removê-lo!
  

Nosso time de especialistas também inclui Patropi  Osvaldomp  Caze  Ciro-Mota  XERLOUCO ROUMS  Tatha que responderão suas dúvidas sobre diversos assuntos.
 

Participe da nossa comunidade! 

Entre para seguir isso  
Seguidores 0
vivis_

VB.NET - Atualizar Banco de Dados Access... =$

2 posts neste tópico

Boa tarde...

Estou desenvolvendo, pela primeira vez, um sistema de busca em VB.Net e Access... O sistema é simples, porém, não consigo fazer as informações do banco de dados correrem nos Texts.

São 4 TextBox, o banco está conectado, mas só aparece a primeira linha do Banco, ele não prosegue a leitura de "próximo" e "anterior" nem "primeiro" e "ultimo".

Já estou vesga... (Y)

Revirei os materiais do Marcoratti do avesso, mas sempre dá pane...

O controle dos botões eu fiz com BindingContext...

Segue abaixo o código, se alguém puder, me ajude, pleaseee...

Não consigo identificar o erro.. (Y)

------------------------------------------------------------------------------------

Imports System.Data.OleDb

Imports System.IO

Imports System.Drawing

Public Class Form3

Inherits System.Windows.Forms.Form

Dim RecordCount As Integer

Dim Position As Integer

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ControleDataSet.Clear()

'Preenche o DataSet

Me.CadArquivosTableAdapter.Fill(Me.ControleDataSet.CadArquivos)

'Vincula os Controles

Me.txtAssunto.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Assunto")

Me.txtDescricao.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Descricao")

Me.txtArquivo.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Arquivo")

Me.txtGaveta.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Gaveta")

'Adiciona o Handles para o Evento Click

AddHandler Me.btnProximo.Click, AddressOf Validacao

AddHandler Me.btnAnterior.Click, AddressOf Validacao

AtualizaLabel()

End Sub

Private Sub Validacao(ByVal sender As System.Object, ByVal e As System.EventArgs)

'Obtem a quatidade de registros

RecordCount = Me.BindingContext(Me.ControleDataSet.CadArquivos).Count

'Obtem a posicao atual

Position = Me.BindingContext(Me.ControleDataSet.CadArquivos).Position

'Verifica se existem registros

If RecordCount <= 1 Then

Me.btnProximo.Enabled = False

Me.btnAnterior.Enabled = False

AtualizaLabel()

End If

'Analisa se podemos voltar

If sender.Equals(Me.btnAnterior) Then

If RecordCount > 1 Then

Me.BindingContext(Me.ControleDataSet.CadArquivos).Position -= 1

Else

Me.btnAnterior.Enabled = False

End If

End If

'Analisa se podemos avancar

If sender.Equals(Me.btnProximo) Then

Me.BindingContext(Me.ControleDataSet.CadArquivos).Position += 1

Else

Me.btnProximo.Enabled = False

End If

'Obtem a nova posicao

Position = Me.BindingContext(Me.ControleDataSet.CadArquivos).Position + 1

'Recalcula os status dos botoes de navegacao

If RecordCount = Position Then

btnProximo.Enabled = False

Else

btnProximo.Enabled = True

End If

If Position = 1 Then

btnAnterior.Enabled = False

Else

btnAnterior.Enabled = True

End If

'Atualiza o label e mostra a posicao atual

AtualizaLabel()

End Sub

Private Sub AtualizaLabel()

RecordCount = Me.BindingContext(Me.ControleDataSet.CadArquivos).Count

Position = Me.BindingContext(Me.ControleDataSet.CadArquivos).Position

If RecordCount <= 1 Then

lblPosicao.Text = "Sem Registro"

Else

lblPosicao.Text = "Registro " & Position & " de " & RecordCount

End If

End Sub

Private Sub Form3_Unload()

End Sub

Private Sub Form3_Activate()

End Sub

Private Sub Form3_Deactivate()

End Sub

Private Sub CadastrarNovoArquivoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CadastrarNovoArquivoToolStripMenuItem.Click

Form1.Show()

Me.Hide()

End Sub

Private Sub FazerNovaBuscaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FazerNovaBuscaToolStripMenuItem.Click

Form2.Show()

Me.Hide()

End Sub

Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click

Dim Sair As String

Dim Cancel As Integer

Sair = MsgBox("Tem certeza de que deseja sair do sistema?", MsgBoxStyle.Exclamation + vbYesNo, "::: Controle de Arquivos :::")

If Sair = vbYes Then

End

Else

Cancel = True

End If

End Sub

Private Sub Form3_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

If MessageBox.Show("Tem certeza de que deseja sair do sistema?", "Closing", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then

e.Cancel() = True

Else

End

End If

End Sub

Private Sub lklAlterar_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lklAlterar.LinkClicked

Form4.Show()

Me.Hide()

End Sub

Private Sub lklExcluir_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lklExcluir.LinkClicked

'Confirmar exclusao de registro

Dim Resp As Integer

Resp = MsgBox("Tem certeza que deseja excluir este registro?", MessageBoxButtons.YesNo, "::: Controle de Arquivos :::")

If Resp = vbYes Then

Me.BindingContext(ControleDataSet, "CadArquivos").RemoveAt(Me.BindingContext(ControleDataSet, "CadArquivos").Position)

End If

End Sub

Private Sub txtAssunto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAssunto.TextChanged

End Sub

Private Sub btnProximo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProximo.Click

'Incrementa a propriedade Position property do objeto BindingContext para mover um registro para frente.

Me.BindingContext(ControleDataSet, "CadArquivos").Position += 1

End Sub

Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click

'Decrementa a propriedade Position property do objeto BindingContext para mover um registro para trás.

Me.BindingContext(ControleDataSet, "CadArquivos").Position -= 1

End Sub

Private Sub btninicio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninicio.Click

Me.BindingContext(ControleDataSet, "CadArquivos").Position = 0

End Sub

Private Sub btnfim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfim.Click

Me.BindingContext(ControleDataSet, "CadArquivos").Position = Me.BindingContext(ControleDataSet, "CadArquivos").Count - 1

End Sub

End Class

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde...

Estou desenvolvendo, pela primeira vez, um sistema de busca em VB.Net e Access... O sistema é simples, porém, não consigo fazer as informações do banco de dados correrem nos Texts.

São 4 TextBox, o banco está conectado, mas só aparece a primeira linha do Banco, ele não prosegue a leitura de "próximo" e "anterior" nem "primeiro" e "ultimo".

Já estou vesga... :)

Revirei os materiais do Marcoratti do avesso, mas sempre dá pane...

O controle dos botões eu fiz com BindingContext...

Segue abaixo o código, se alguém puder, me ajude, pleaseee...

Não consigo identificar o erro.. (Y)

------------------------------------------------------------------------------------

Imports System.Data.OleDb

Imports System.IO

Imports System.Drawing

Public Class Form3

Inherits System.Windows.Forms.Form

Dim RecordCount As Integer

Dim Position As Integer

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ControleDataSet.Clear()

'Preenche o DataSet

Me.CadArquivosTableAdapter.Fill(Me.ControleDataSet.CadArquivos)

'Vincula os Controles

Me.txtAssunto.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Assunto")

Me.txtDescricao.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Descricao")

Me.txtArquivo.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Arquivo")

Me.txtGaveta.DataBindings.Add("Text", Me.ControleDataSet.CadArquivos, "Gaveta")

'Adiciona o Handles para o Evento Click

AddHandler Me.btnProximo.Click, AddressOf Validacao

AddHandler Me.btnAnterior.Click, AddressOf Validacao

AtualizaLabel()

End Sub

Private Sub Validacao(ByVal sender As System.Object, ByVal e As System.EventArgs)

'Obtem a quatidade de registros

RecordCount = Me.BindingContext(Me.ControleDataSet.CadArquivos).Count

'Obtem a posicao atual

Position = Me.BindingContext(Me.ControleDataSet.CadArquivos).Position

'Verifica se existem registros

If RecordCount <= 1 Then

Me.btnProximo.Enabled = False

Me.btnAnterior.Enabled = False

AtualizaLabel()

End If

'Analisa se podemos voltar

If sender.Equals(Me.btnAnterior) Then

If RecordCount > 1 Then

Me.BindingContext(Me.ControleDataSet.CadArquivos).Position -= 1

Else

Me.btnAnterior.Enabled = False

End If

End If

'Analisa se podemos avancar

If sender.Equals(Me.btnProximo) Then

Me.BindingContext(Me.ControleDataSet.CadArquivos).Position += 1

Else

Me.btnProximo.Enabled = False

End If

'Obtem a nova posicao

Position = Me.BindingContext(Me.ControleDataSet.CadArquivos).Position + 1

'Recalcula os status dos botoes de navegacao

If RecordCount = Position Then

btnProximo.Enabled = False

Else

btnProximo.Enabled = True

End If

If Position = 1 Then

btnAnterior.Enabled = False

Else

btnAnterior.Enabled = True

End If

'Atualiza o label e mostra a posicao atual

AtualizaLabel()

End Sub

Private Sub AtualizaLabel()

RecordCount = Me.BindingContext(Me.ControleDataSet.CadArquivos).Count

Position = Me.BindingContext(Me.ControleDataSet.CadArquivos).Position

If RecordCount <= 1 Then

lblPosicao.Text = "Sem Registro"

Else

lblPosicao.Text = "Registro " & Position & " de " & RecordCount

End If

End Sub

Private Sub Form3_Unload()

End Sub

Private Sub Form3_Activate()

End Sub

Private Sub Form3_Deactivate()

End Sub

Private Sub CadastrarNovoArquivoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CadastrarNovoArquivoToolStripMenuItem.Click

Form1.Show()

Me.Hide()

End Sub

Private Sub FazerNovaBuscaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FazerNovaBuscaToolStripMenuItem.Click

Form2.Show()

Me.Hide()

End Sub

Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click

Dim Sair As String

Dim Cancel As Integer

Sair = MsgBox("Tem certeza de que deseja sair do sistema?", MsgBoxStyle.Exclamation + vbYesNo, "::: Controle de Arquivos :::")

If Sair = vbYes Then

End

Else

Cancel = True

End If

End Sub

Private Sub Form3_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

If MessageBox.Show("Tem certeza de que deseja sair do sistema?", "Closing", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then

e.Cancel() = True

Else

End

End If

End Sub

Private Sub lklAlterar_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lklAlterar.LinkClicked

Form4.Show()

Me.Hide()

End Sub

Private Sub lklExcluir_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lklExcluir.LinkClicked

'Confirmar exclusao de registro

Dim Resp As Integer

Resp = MsgBox("Tem certeza que deseja excluir este registro?", MessageBoxButtons.YesNo, "::: Controle de Arquivos :::")

If Resp = vbYes Then

Me.BindingContext(ControleDataSet, "CadArquivos").RemoveAt(Me.BindingContext(ControleDataSet, "CadArquivos").Position)

End If

End Sub

Private Sub txtAssunto_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAssunto.TextChanged

End Sub

Private Sub btnProximo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProximo.Click

'Incrementa a propriedade Position property do objeto BindingContext para mover um registro para frente.

Me.BindingContext(ControleDataSet, "CadArquivos").Position += 1

End Sub

Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click

'Decrementa a propriedade Position property do objeto BindingContext para mover um registro para trás.

Me.BindingContext(ControleDataSet, "CadArquivos").Position -= 1

End Sub

Private Sub btninicio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninicio.Click

Me.BindingContext(ControleDataSet, "CadArquivos").Position = 0

End Sub

Private Sub btnfim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfim.Click

Me.BindingContext(ControleDataSet, "CadArquivos").Position = Me.BindingContext(ControleDataSet, "CadArquivos").Count - 1

End Sub

End Class

Não consegui enteder muito bem, se quizer ajuda com isto me manda um e-mail :

[email protected]

[]'s!


-------------------------------------------------------------

Marcos Lobo

Analista Desenvolvedor / Sócio Gerente Wolfinfo.Net

-------------------------------------------------------------

Compartilhar este post


Link para o post
Compartilhar em outros sites

Responda via Facebook

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Esse tópico é útil para você?
Então compartilhe e ajude outros internautas!
Entre para seguir isso  
Seguidores 0

O site BABOO está no ar para informar e ajudar o internauta de Windows. Este site foi publicado em 1999 por Aurélio "Baboo", engenheiro e um dos maiores especialistas brasileiros em Windows, que trabalha profissionalmente com esse sistema operacional desde 1987. Desde 2004 ele é premiado anualmente pela Microsoft como MVP (Most Valuable Professional) pela sua contribuição e ajuda à comunidade de usuários de Windows.

Em 2001 foi criado o
Fórum do BABOO para ajudar o internauta brasileiro a solucionar problemas e dúvidas sobre Windows, Segurança, Office, Hardware e outros temas. Desde 2010 a Microsoft também tem premiado o Mr.Million, administrador da área de Segurança do Fórum do BABOO, pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Atualmente ele é o único MVP brasileiro de Segurança em desktop.

O BABOO é o único site brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows e que participa diariamente e ativamente nos comentários e discussões do site e fórum BABOO.