Problema al Guardar Datos

Estimada Ana:

El probelma es que no obtienes los cambios, prueba esto:

1. Llamada
Private Sub cmdGuardar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdGuardar.Click

If SaveChanges() = True Then
MessageBox.Show("Los cambios se han guardado", "RecepMerc",
MessageBoxButtons.OK, MessageBoxIcon.Information)

Else

MessageBox.Show(Me.DataError, "RecepMerc",
MessageBoxButtons.OK, MessageBoxIcon.Error)>
End If

End Sub



2. Función

Private Function SaveChanges() As Boolean

'Creamos au nuevo dataset para poner los cambios que se han
realizado en el Data Set.
Dim objDataSetChanges As Nombreaplicacion.RecepMerc = New
Nombreaplicacion.RecepMerc
'Cancelamos la Edición Actual.
Me.BindingContext(RecepMerc, "NombreTabla").EndCurrentEdit()
'Obtenemos los cambios para ponerlos en el dataset.
objDataSetChanges = CType(RecepMerc.GetChanges,
Nombreaplicacion.RecepMerc)

'Chequeamos si se ha relizado algún cambio.
If (Not (objDataSetChanges) Is Nothing) Then
Try
'Los cambios aquí necesitan ser puestos, para intentar
actulizarlos en el Data set por
'la llamada del metodo UpDatadataSource y pasar los
parámetros al Dataset.
Me.UpdateDataSource(objDataSetChanges)
RecepMerc.Merge(objDataSetChanges)
RecepMerc.AcceptChanges()
Return True
Catch eUpdate As System.Exception
'Add your error handling code here.
Me.DataError = ex.Message
Throw eUpdate
Return False
End Try
'Add your code to check the returned dataset for any errors that
may have been
'pushed into the row object's error.
End If
End Sub

End Function

3. Este procedimiento lo necesitas para ver si hay cambios

Public Sub UpdateDataSource(ByVal ChangedRows As Nombreaplicacion.RecepMerc)
Try
'Solo los datos que necesitan ser actualizados.
If (Not (ChangedRows) Is Nothing) Then
'Abrimos la conexión.
OleDbConnection.Open() '
'intentar actualizar los datos en el data source.
OleDbDataAdapter1.Update(ChangedRows)
End If
Catch updateException As System.Exception
'Add your error handling code here.
Throw updateException
Finally
'Cerramos la conexion.
OleDbConnection.Close()
End Try
End Sub




"Ana" wrote:

Hola,

Estoy intentando realizar una aplicación con un dataset tipado pero no
consigo almacenar los datos.

¿Alguien me puede indicar que estoy haciendo mal? Estoy comenzado ahora,
disculpen mi ignorancia

Gracias y un saludo,

1. Llamada
Private Sub cmdGuardar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdGuardar.Click


If SaveChanges() = True Then

MessageBox.Show("Los cambios se han guardado",
"RecepMerc", MessageBoxButtons.OK, MessageBoxIcon.Information)

Else

MessageBox.Show(Me.DataError, "RecepMerc",
MessageBoxButtons.OK, MessageBoxIcon.Error)

End If

End Sub

2. Función



Private Function SaveChanges() As Boolean

Try

RecepMercBindingSource.EndEdit() 'Aplica los cambios
pendientes al origen de datos subyacente.

RecepMercTableAdapter.Update(Me.RecepMercDataSet.RecepMerc)

LineasRecepMercTableAdapter.Update(Me.RecepMercDataSet.LineasRecepMerc)

Catch ex As Exception

Me.DataError = ex.Message

Return False

End Try

Try

RecepMercTableAdapter.Update(Me.RecepMercDataSet.RecepMerc)

LineasRecepMercTableAdapter.Update(Me.RecepMercDataSet.LineasRecepMerc)

Catch ex As Exception

Me.DataError = ex.Message

Return False

End Try

Return True

End Function