Para eliminar un Dato: Cita: 'Accedemos al Registro
ForEach Registro AsDataRowIn ds.Tables("Mi_Tabla").Rows
If Registro.Item("ID") = "El ID del registro" Then
Registro.Delete()
EndIf
Next
'Cargamos el DA en el CB para que pueda realizar operaciones en la BD
cb.DataAdapter = da
'Actualizamos la BD
da.Update(ds, "Mi_Tabla")
Recuerda lo siguiente:
- Puedes Cargar varias tablas en el DS, solo les pones diferentes nombres:
ds.Tables(
"Mi_Tabla_1"); ds.Tables(
"Mi_Tabla_2"); ds.Tables(
"Mi_Tabla_3")
- NO Puedes utilizar el mismo DA para diferentes consultas:
Cita:
'Creamos varios DA
Public da_1, da_2, da_3 As OleDb.OleDbDataAdapter
SQL = "SELECT * FROM Mi_Tabla_1"
da_1 = New OleDb.OleDbDataAdapter(SQL, con)
da_1.Fill(ds, "Mi_Tabla")
SQL = "SELECT * FROM Mi_Tabla_2"
da_2 = New OleDb.OleDbDataAdapter(SQL, con)
da_2.Fill(ds, "Mi_Tabla")
SQL = "SELECT * FROM Mi_Tabla_3"
da_3 = New OleDb.OleDbDataAdapter(SQL, con)
da_3.Fill(ds, "Mi_Tabla_3")
Recuerda que al modificar los datos en "Mi_Tabla_X" siempre debes utilizar el DA_X que contiene la consulta original.
Saludos !!!