05/07/2011, 18:33
|
| | Fecha de Ingreso: octubre-2003 Ubicación: Lima
Mensajes: 319
Antigüedad: 21 años, 1 mes Puntos: 2 | |
Respuesta: Recorrer una tabla de access y modificar un campo en todas las filas Gracias por tu respuesta me ayudo mucho a aclarar las cosas, aqui les dejo el codigo que me funciono.
' Luego de eliminar un campo con este codigo reasigno el numero de id mio a cada registro
Public Function rehacer_indice(ByVal var_tabla As String) As DataSet
myConnection = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=" & HttpContext.Current.Server.MapPath("App_Data/martin.mdb"))
myConnection.Open()
myDataAdapter1 = New OleDbDataAdapter("Select id, my_id From " & var_tabla & " ;", myConnection)
myDataSet2 = New DataSet()
Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(myDataAdapter1)
myDataAdapter1.Fill(myDataSet2, var_tabla)
Dim i = 0
For Each myRow In myDataSet2.Tables(0).Rows
myRow("my_id") = i
i = i + 1
Next
myDataAdapter1.Update(myDataSet2, var_tabla)
myDataSet2.Dispose()
End Function |