Ir ao conteúdo
  • Cadastre-se
igor.oliveira

VB + banco de dados access

Recommended Posts

Estou com um problema em adicionar/editar/deletar novos itens na tabela, eu segui um tutorial e me levou ao código abaixo e funciona, ele lista os valores na combobox, mas ai eu clico em adicionar e abr e o form2 com dois textbox

 

form1.vb:

Imports System.DataImports System.Data.OleDbPublic Class Form1    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        PPreenchaComboBox()    End Sub    Private Sub PPreenchaComboBox()        Using con As OleDbConnection = GetConnection()            Try                con.Open()                Dim sql As String = "SELECT Nome FROM servidores"                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)                Dim da As OleDbDataAdapter = New OleDbDataAdapter                Dim dt As DataTable = New DataTable                da.SelectCommand = cmd                da.Fill(dt)                cmxNomeservidores.DisplayMember = "Nome"                cmxNomeservidores.DataSource = dt            Catch ex As Exception                MsgBox(ex.Message)            Finally                con.Close()            End Try        End Using    End Sub    Private Sub PleDados()        Dim dr As OleDbDataReader = Nothing        Using con As OleDbConnection = GetConnection()            Try                con.Open()                Dim sql As String = "SELECT IP FROM servidores WHERE nome='" & cmxNomeservidores.Text & "'"                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)                dr = cmd.ExecuteReader(CommandBehavior.SingleRow)                If dr.HasRows Then                    dr.Read()                    lbl_IP.Text = dr.Item("IP")                Else                    MsgBox("Não foi encontrado")                End If            Catch ex As Exception                MsgBox(ex.Message)            Finally                con.Close()            End Try        End Using    End Sub    Private Sub cmxNomeservidores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmxNomeservidores.SelectedIndexChanged        PleDados()    End Sub    Private Sub btn_addservidor_Click(sender As Object, e As EventArgs) Handles btn_addservidor.Click        Form2.Show()    End SubEnd Class

mdlAcesso:

Imports System.DataImports System.Data.OleDbModule mdlAcesso    Public Function GetConnection() As OleDbConnection        Dim sql As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\bancoservidores.accdb"        Return New OleDbConnection(sql)    End FunctionEnd Module

Compartilhar este post


Link para o post
Compartilhar em outros sites
Private Sub PPreenchaComboBox()Using con As OleDbConnection = GetConnection()Trycon.Open()Dim sql As String = "SELECT IP, Nome FROM servidores"Dim cmd As OleDbCommand = New OleDbCommand(sql, con)Dim da As OleDbDataAdapter = New OleDbDataAdapterDim dt As DataTable = New DataTableda.SelectCommand = cmdda.Fill(dt)cmxNomeservidores.DisplayMember = "Nome"cmxNomeservidores.DataSource = dt'é só colocar para o label utilzar o mesmo datasource,'Sendo assim ele busca pra vocêlbl_IP.DataBindings.Add("Text", dt, "IP", False, DataSourceUpdateMode.OnPropertyChanged)Catch ex As ExceptionMsgBox(ex.Message)Finallycon.Close()End TryEnd UsingEnd Sub 

Com isso não precisa mais do método PleDados()

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

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×