Error en Dataset.Update

[alehawk]

Hola.
Tengo un problema...
He llenado una base de datos access con un par de datos, los campos son:
id-autonumerico
txt-texto
mm-memo
ole-objetoOle
fecha-fecha/hora
Ninguno de estos campos es requerido.
El datagrid lo muestra perfecto, me carga todo bien.

He cargado la base con un datagrid (salvo el campo de objeto OLE que queda NULL) a traves de la siguiente rutina que es la que utilizo para que me guarde los cambios que se realizan sobre el datagrid:

Código:

        Try
            Dim SQLString As String, connstring As String
            connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & nombrebase & ";Persist Security Info=False"
            SQLString = "Select * From " & tabla2
            Dim DBDataAdapter As New OleDb.OleDbDataAdapter(SQLString, connstring)
            Dim DBUpdateCommand As New OleDb.OleDbCommandBuilder(DBDataAdapter)
            If mfecha <> "" Then
                For Each r As DataRow In ds.Tables(0).Rows
                    ''MsgBox(mfecha)
                    If IsDBNull(r(mfecha)) Then r(mfecha) = Date.Now
                Next
            End If
            DBDataAdapter.Update(ds, tabla2)
            Me.Close()
            Exit Sub
        Catch Ex As Exception
            MsgBox(Ex.Message)
        End Try

El problem que estoy teniendo es que en este caso, si borro una fila me da un error en el ds.update, el error dice:
NO SE PUEDE TENER ACCESO A LA INFORMACION ELIMINADA DE UNA FILA

Con otras bases de datos no sucede, cargo, modifico y borro info hasta que de golpe vuelve a aparecer este error.
Alguien sabe porque puede ser que aparezca?
Muchas gracias!

[wakewakeup]

DBDataAdapter.Update(ds, tabla2) -> tabla2 no tendria que ir entre comillas?


Despues de borrar una fila y antes de actualizar los cambios haces esto:
For Each r As DataRow In ds.Tables(0).Rows
''MsgBox(mfecha)
If IsDBNull(r(mfecha)) Then r(mfecha) = Date.Now
Next
Has probado a kitar estas instrucciones por si tienen algo que ver?

El error da justo en la instruccion "DBDataAdapter.Update(ds, tabla2)" o antes?

[alehawk]

El error esta aca:

If IsDBNull(r(mfecha)) Then r(mfecha) = Date.Now

Lo que hago en esta parte es verificar que todas las filas cuyas columnas tengan fecha no queden con valores nulos, pero por algun motivo me esta verificando la fila borrada tambien :S
mfecha=nombre del campo fecha
Cuando la borro a la fila no deberia desaparecer del DS?
Abrazo

[wakewakeup]

Iniciado por alehawk

Cuando la borro a la fila no deberia desaparecer del DS?

Pues eso pensaba yo pero parece que no... Puedes enseñar el codigo con el que borras la fila a ver si veo algo raro?

[moNTeZIon]

Antes de preguntarle si es Null, podrías preguntarle esto:

If r.RowState = DataRowState.Deleted Then

Así, si la fila está eliminada no ejecutará el código sobre ella...
Si, al eliminar la fila, te la marca como "Deleted" e imagino que todavía la tienes presente en el dataset, y será por eso te ejecuta el codigo sobre las eliminadas también.

Saludos y cuentanos a ver..

[alehawk]

Ya esta!!! si! funciono!
Montezion, era justamente esa linea la que faltaba, pasa que como no trabajo nunca con datasets ni datagrids no tenia la mas palida idea de que tenia que buscar!!!
Gracias a ambos por la ayuda y buena onda1