He estado intentando grabar registros en una base de datos access pero no me resulta. La aplicacion es una lista de contactos, hasta ahora el usuario puede buscar por el nombre en la base de datos, navegar por la base de datos pero no puedo hacer que se agregen nuevos registros en la bd. Lo que he logrado hasta ahora es ingresar los datos del nuevo contacto y al hacer click en "agregar" el datagrid se actualiza mostrando el nuevo contacto, pero no se graba en la base de datos. Les coloco el codigo para ver si me pueden ayudar con este problema.
Public Class Form1
Código:
Les estare super agradecido si me pudieran ayudar a encontrar el problema. Private Sub FriendsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Validate() Me.FriendsBindingSource.EndEdit() Me.FriendsTableAdapter.Update(Me.FriendsDataSet.friends) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.FriendsTableAdapter.Fill(Me.FriendsDataSet.friends) End Sub Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click ' Crea la nueva fila Dim newfriendsRow As friendsDataSet.friendsRow newfriendsRow = Me.FriendsDataSet.friends.NewfriendsRow() 'Agrega elemntos en la nueva fila newfriendsRow.lastName = txtNytEfter.Text newfriendsRow.firstName = txtNyttNamn.Text newfriendsRow.city = txtNyStad.Text newfriendsRow.address = txtNyAdress.Text newfriendsRow.telephone = txtNyTelefon.Text ' Agrega la fila en el datagrid de la aplicacion Me.FriendsDataSet.friends.Rows.Add(newfriendsRow) ' Grabar la fila en Bd ' Esto no me funciona!!!!! Me.FriendsTableAdapter.Update(newfriendsRow) End Sub Private Sub comSok_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comSok.SelectedIndexChanged If Me.comSok.SelectedIndex <> -1 Then txtSokNamn.Text = FriendsDataSet.friends.Rows(comSok.SelectedIndex)("firstName").ToString txtSokEfter.Text = FriendsDataSet.friends.Rows(comSok.SelectedIndex)("lastName").ToString txtSokStad.Text = FriendsDataSet.friends.Rows(comSok.SelectedIndex)("city").ToString txtSokAdress.Text = FriendsDataSet.friends.Rows(comSok.SelectedIndex)("address").ToString txtSokTele.Text = FriendsDataSet.friends.Rows(comSok.SelectedIndex)("telephone").ToString Else Exit Sub End If End Sub End Class
Se que se podria hacer con algun "BindingNavigator" pero quiero utilizar mis propios botones.