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 :

mlobo@cmnetsolucoes.com.br

[]'s!


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

Marcos Lobo

Analista Desenvolvedor / Sócio Gerente Wolfinfo.Net

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

  • Vídeos do BABOO no YouTube

  • Posts

    • Oi amigo, Encontrei dois tutoriais relacionados que podem ajudar: "Criar texto curvo" e "Texto do Photoshop center". Espero que você possa resolver seu problema seguindo estas duas soluções.
    • Boa noite Galera,    O Meu HD é particionado em 3 Partes, sistema Operacional, Uma partição para arquivos e outra para filmes etc. A Partição de Arquivos e filmes, está protegida pelo bitlocker, que eu fiz pelo Windows 7, formatei a partição destinada ao sistema operacional e instalei o Windows 10 pro. Mas ai quando eu clico pra desbloquear as unidades, não aparece nem o campo para digitar a senha, da acesso negado diretamente, e quando eu clico com o botão direito sob elas não aparece a opção propiedades. Alguém poderia dar uma luz ?! Obrigado! em anexo as prints.
    • Uma última tentativa: Baixe o ZHPCleaner e salve no Desktop. (Área de Trabalho) Dê um duplo-clique sobre o ZHPCleaner.exe. Clique no botão Scanner. A Ferramenta comecará o exame do seu Sistema. Tenha paciência pois pode demorar um pouco dependendo da quantidades de itens a examinar. Ao final da Verificação, clique no botão Reparar. Concluída a operação, um Log se abrirá. Caso isso não aconteça, clique no botão Relatório e salve o Log. Selecione, copie e cole o conteúdo deste Log na sua próxima resposta.
    • Seu Programa HijackThis está defasado, pegue a nova Versão no Tópico acima.
    • Pessoal, estou vendendo o meu computador gamer.  Quem estiver interessado acesse o site do mercado livre para mais informações: http://produto.mercadolivre.com.br/MLB-870926055-computador-gamer-intel-core-i7-7700k-_JM Vlw.
    • Boa noite, Ciro Mota! Obrigado pelo contato! Quer dizer que os meus switches são "gato vendido por lebre"? Que safadeza...! Entendi seu esquema. Em sua opinião, o custo-benefício valeria a pena? Atualmente, minha Velox é de 10MB, limitada às "condições técnicas da rede de telefonia", segundo a operadora. Obrigado. Lúcio Dutra.
    • não imaginava q o emulador ia aparecer como S5, e como celulares são tudo parecido, não conseguia lembrar esse tal S5, ai fiquei pensando de alguém q eu já tenha logado na minha wifi, mas lembrei q não tinha nada a ver, era conta do google, ai descartei até o meu WP....
    • No Windows 7 não tem como alterar o valor da porta COM1 através do Gerenc. de Dispositivos. Daria para alterar o valor "9600" (padrão) para outro, através do regedit ou gpedit ? Obrigado.
    • Boa tarde,    Em uma pasta de trabalho, possuo uma planilha que contém uma lista de serviços e outra (modelo) para composição de preços.
      Após ter determinado os serviços da lista, seleciono o código de um dos serviços desta lista e ativo uma macro que cria uma nova planilha (baseada na modelo existente) renomeando esta com o código do serviço selecionado.   Ex: C001 = Serviço 01 da lista, após utilizar a macro eu terei uma nova planilha chamada C001 (com a estrutura da planilha Modelo).   Após criada esta nova planilha, necessito de uma macro que, ao criar uma nova planilha de composição de preço, também fosse criado um hyperlink na célula (selecionada) do código utilizado que possa me direcionará à esta planilha criada (C001).   Ex: C001 = Serviço 01 da lista, a célula que contém o código utilizado será um link para a planilha C001 criada.   Pesquisei aqui no fórum alguns modelos e cheguei a um resultado próximo, mas só consegui criar o hyperlink em um Range fixo.
      Segue abaixo a macro e espero que seja possível solucionar este empasse.

      Desde já agradeço.   Sub CriaNomeiaHyper() Dim planBase, planNova As String
      Dim plan As Worksheet, flg As Boolean
          planBase = ActiveSheet.Name
          nomePlan = ActiveCell.Value
              
              For Each plan In Worksheets
              If plan.Name Like nomePlan Then flg = True: Exit For
              Next
      If flg = True Then
          MsgBox "Já existe a planilha  " & "'" & _
          nomePlan & "'" & ",  altere o nome desejado"
      Else
          Sheets("Modelo").Copy after:=Sheets(Sheets.Count)
          ActiveSheet.Name = nomePlan
          Range("b7").Value = ActiveSheet.Name     ActiveSheet.Hyperlinks.Add Anchor:= _
          Sheets(planBase).Range("A1"), Address:="", _
              SubAddress:="'" & ActiveSheet.Name _
                  & "'!B1", TextToDisplay:=ActiveSheet.Name
      End If
      End Sub
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.