Ir para conteúdo
Fórum Script Brasil
  • 0

Popular textbox BD access


Gilberto Andre Junior

Pergunta

boa tarde caros colegas, estou aprendendo a programar pois estou convertendo um sistema antigamente em access para visual basic porém estou com dificuldades (que pra vocês deve ser coisa basica) em popular as textbox com os registros específicos das tabelas, eu consegui fazer funcionar porém estou achando que demora para abrir o formulario, alguém poderia me dar uma dica para ficar melhor? Realmente tem bastante informação nas tabelas mas creio que dê para optimizar (corrijam se eu estiver errado ou se tiver algo melhor a ser feito) meu codigo ta da seguinte forma. Tenho um modulo que faz com a conexão do banco de dados que está assim:

Imports System.Data.OleDb
Module mdlAcesso
    Public Function getConnection() As OleDbConnection
        Dim sql As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Settings.conexaoBanco
        Return New OleDbConnection(sql)

    End Function
End Module

E no formulario está assim:

Imports System.Data.OleDb
Public Class frmProcesso
    Public Sub PCarregaDados()
        Using con As OleDbConnection = getConnection()
            Try
                con.Open()
                Dim strPasta As String
                strPasta = InputBox("Digite o numero da pasta")
                Dim sql As String = "Select * from Processos WHERE pasta LIKE '%" & strPasta & "%'"
                Dim cmd As New OleDbCommand(sql, con)
                Dim da As New OleDbDataAdapter(cmd)
                Dim dt As New DataTable

                da.Fill(dt)

                txtpasta.Text = dt.Rows(0)("Pasta").ToString
                txtprocesso.Text = dt.Rows(0)("Processo").ToString
                cboobjacao.Text = dt.Rows(0)("Objeto da Ação").ToString
                txtsituacao.Text = dt.Rows(0)("Situação do Processo").ToString
                txttipoacao.Text = dt.Rows(0)("Ação").ToString
                txtvara.Text = dt.Rows(0)("Vara").ToString
                txtforum.Text = dt.Rows(0)("Forum").ToString
                txtarquiv.Text = dt.Rows(0)("DigitalizacaoFisica").ToString
                txtandamento.Text = dt.Rows(0)("Andamento").ToString
                txtresumoprocesso.Text = dt.Rows(0)("Resumo Processo").ToString
            Catch ex As Exception
                MsgBox("Ocorreu um erro ao carregar os dados", MsgBoxStyle.Critical)
            End Try
        End Using
    End Sub

    Private Sub frmProcesso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PCarregaDados()
    End Sub

End Class

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...