Ayuda Urgente con las relaciones

26/11/2004 - 18:06 por Giovany Castillo | Informe spam
Tengo una aplicacion que utiliza varias tablas para lo
cual utilizo relaciones entre tablas hasta ahi todo
funciona bien pero al realizar cambios en la tabla hija de
la relacion nos cambios no se guardan.

me aparece el error siguiente

Additional information: 'dataSet' argument cannot be null.

la rutina que utilizo para guardar es la siguiente:

Public Sub actualizardataset(ByVal e As Form, ByVal
dataset As DataSet, ByVal tabla As String, ByVal coneccion
As OleDb.OleDbConnection, ByVal adaptador As
OleDb.OleDbDataAdapter)
Dim cambiosdataset As Dsgeneral = New Dsgeneral()
e.BindingContext(dataset, tabla).EndCurrentEdit()
cambiosdataset = CType(dataset.GetChanges,
Dsgeneral)
cambiosdataset = CType(dataset.GetChanges, DataSet)
'If (Not (cambiosdataset) Is Nothing) Then
actualizardataadapter(cambiosdataset, coneccion,
adaptador)
dataset.Merge(cambiosdataset)
dataset.AcceptChanges()
'End If
End Sub

Public Sub actualizardataadapter(ByVal lineascambiadas
As Dsgeneral, ByVal coneccion As OleDb.OleDbConnection,
ByVal adaptador As OleDb.OleDbDataAdapter)
If (Not (lineascambiadas) Is Nothing) Then
coneccion.Open()
adaptador.Update(lineascambiadas)
coneccion.Close()
End If
End Sub

Preguntas similare

Leer las respuestas

#1 DJ MIAO
26/11/2004 - 22:24 | Informe spam
Miao...
Comprate un libro.

Tengo una aplicacion que utiliza varias tablas para lo
cual utilizo relaciones entre tablas hasta ahi todo
funciona bien pero al realizar cambios en la tabla hija


de
la relacion nos cambios no se guardan.

me aparece el error siguiente

Additional information: 'dataSet' argument cannot be


null.

la rutina que utilizo para guardar es la siguiente:

Public Sub actualizardataset(ByVal e As Form, ByVal
dataset As DataSet, ByVal tabla As String, ByVal


coneccion
As OleDb.OleDbConnection, ByVal adaptador As
OleDb.OleDbDataAdapter)
Dim cambiosdataset As Dsgeneral = New Dsgeneral()
e.BindingContext(dataset, tabla).EndCurrentEdit()
cambiosdataset = CType(dataset.GetChanges,
Dsgeneral)
cambiosdataset = CType(dataset.GetChanges,


DataSet)
'If (Not (cambiosdataset) Is Nothing) Then
actualizardataadapter(cambiosdataset, coneccion,
adaptador)
dataset.Merge(cambiosdataset)
dataset.AcceptChanges()
'End If
End Sub

Public Sub actualizardataadapter(ByVal


lineascambiadas
As Dsgeneral, ByVal coneccion As OleDb.OleDbConnection,
ByVal adaptador As OleDb.OleDbDataAdapter)
If (Not (lineascambiadas) Is Nothing) Then
coneccion.Open()
adaptador.Update(lineascambiadas)
coneccion.Close()
End If
End Sub
.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida