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