Ir para conteúdo
Fórum Script Brasil

Pesquisar na Comunidade

Mostrando resultados para as tags ''adicionar dados''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Encontrado 1 registro

  1. Olá, Pessoal. Essa é a minha primeira vez aqui no fórum e também em VB .Net + Access. Eu tenho uma cadastro de funcionário onde é exibido os dados de uma tabela do banco de dados do access quando o form é carregado, até aqui tudo bem. Com OleDb.OleDbDataReader eu consegui exibir os dados nos campos do formulário e também preencher os combobox com campos da tabela. Porém não estou conseguindo adicionar, editar e excluir os dados do banco de dados. Esse é o código que preenche os campos do formulário quando o form é carregado: Private Sub IDServidor_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles IDServidor.TextChanged Dim LeituraBD As OleDb.OleDbDataReader Dim ComandoSQL As String If Len(IDServidor.Text) = 6 Then 'Armazena na variável o comando que fará a consulta SQL no BD Access ComandoSQL = "select * from TB_Servidores where IDServidor like '" & IDServidor.Text & "'" 'Chama a rotina que faz a conexão com o BD Call Conectar() 'Atribui a variável objeto de BD a execução dos comandos SQL Consulta = New OleDb.OleDbCommand(ComandoSQL, Banco) LeituraBD = Consulta.ExecuteReader LeituraBD.Read() 'Tratamento de erro de acesso aos dados. Se houver erro, desvia o comando para o rótulo Sai 'On Error Resume Next 'Preenche Formulário Matrícula.Text = CNullToStr(LeituraBD.Item("Matrícula")) 'Matrícula Regime.Text = CNullToStr(LeituraBD.Item("Regime")) 'regime Nome.Text = CNullToStr(LeituraBD.Item("nome")) 'nome Cargo.Text = CNullToStr(LeituraBD.Item("cargo")) 'cargo Função.Text = CNullToStr(LeituraBD.Item("função")) 'função Unidade.Text = CNullToStr(LeituraBD.Item("unidade")) 'unidade Lotação.Text = CNullToStr(LeituraBD.Item("lotação")) 'lotação Admissão.Text = CNullToStr(LeituraBD.Item("admissão")) 'admissão Jornada.Text = CNullToStr(LeituraBD.Item("jornada")) 'jornada de trabalho CPF.Text = CNullToStr(LeituraBD.Item("cpf")) 'cpf Pasep.Text = CNullToStr(LeituraBD.Item("pis/pasep")) 'pasep Nascimento.Text = CNullToStr(LeituraBD.Item("dt nascimento")) 'nascimento Observação.Text = CNullToStr(LeituraBD.Item("Observação")) 'Observações Call Desconecta() 'Configura o Display de Registro Atual RegistroAtual.Text = IDServidor.SelectedIndex + 1 End If End Sub Essa é uma função que eu criei para converter os valores null do banco de dados para string: Function CNullToStr(ByVal Variável) As String 'Converte uma variável de banco de dados com valor NULL para uma STRING vazia On Error Resume Next If Variável Is DBNull.Value Then CNullToStr = "" Else CNullToStr = Variável End If End Function
×
×
  • Criar Novo...