Ir para conteúdo
Fórum Script Brasil

Gilberto Andre Junior

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Gilberto Andre Junior

Gilberto Andre Junior's Achievements

0

Reputação

  1. 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
×
×
  • Criar Novo...