Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Gilberto Andre Junior

Popular textbox BD access

Question

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

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148386
    • Total Posts
      643775
×
×
  • Create New...