Introducir datos desde un textbox a una base access en vb.net
La idea basica es utilizar un 'bindingsource' y un commandbuilder para tu adataptador de datos, a partir de este concepto es tan simple como añadir un 'datarow' o registro a tu tabla de datos 'datatable' cada vez que pulsamos 'enter' y la longitud de los datos introducidos es mayor de cero. Posteriormente para actualizar o añadir los registros del 'datatable' a la BD de access utilizaremos el mandato 'update' (al pulsar un boton en nuestro caso), o asociado al momento que consideres oportuno.
Puedes descargarte este ejemplo haciendo click en 'attachments'
Imports System.Data.OleDb
Imports System.Data.DataRow
Public Class Form1
Private MiConexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bd1.mdb")
Private MiAdaptador As New OleDbDataAdapter("SELECT * FROM Nombres", MiConexion)
Private MiDataSet As New DataSet()
Private MiEnlazador As New BindingSource
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If (e.KeyChar = Chr(Keys.Enter)) And (Me.TextBox1.Text.Length > 0) Then
Dim nombre As DataRow
nombre = MiDataSet.Tables(0).NewRow()
nombre("Nombre") = TextBox1.Text
MiDataSet.Tables(0).Rows.Add(nombre)
Me.TextBox1.Text = ""
Me.ComboBox1.SelectedIndex = Me.ComboBox1.Items.Count - 1
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim commandbuilder As New OleDb.OleDbCommandBuilder(Me.MiAdaptador)
MiConexion.Open()
MiAdaptador.Fill(MiDataSet)
MiEnlazador.DataSource = MiDataSet.Tables(0)
Me.ComboBox1.DataSource = MiEnlazador
Me.ComboBox1.DisplayMember = "Nombre"
Me.ComboBox1.ValueMember = "Id"
Me.TextBox1.Select()
End Sub
Private Sub Guardar(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.MiAdaptador.Update(CType(Me.MiEnlazador.DataSource, DataTable))
End Sub Espero que sea de tu utilidad.
Pep Lluis,