Recorrer una tabla de access y modificar un campo en todas las filas

[carlitosdan]

Hol que tal estoy tratando de recorrer toda una tabla desde el principio y modificar un campo, como lo peudo hacer ?

[HaverRamirez]

Changos para modificar un campo, mejor ejecuta una instrucción Update, y listo, explicate un poco mas

[carlitosdan]

De hecho un Update para modificar, lo unico que deseo hacer es recorrer toda la tabla, tenog un campo que se llama my_id y entonces irle poniendo un numerito 1, 2, 3...etc... Me dejo entender ? gracias or tu respuesta.

[HaverRamirez]

MMM, puedes poner un campo autonumerico y te olvidas de recorrer, pero si de todos modos lo quieres hacer es una mescla
primero traers los datos llenas un dataset
despues lo recorres

Código vb:

dim cnx as new oledb.oledbconextion("")
dim dt as new oledb.oledbdatadapter("Select algo",cnx)
dim ds as new dataset
dt.fill(ds)
 
for each dtr as datarow in ds.tables(0).rows
dim cmd as new oledb.oledbcommand("Update tabla set campo = "& dtr("CAMPO") &" where Campo = "& dtr("Campo") )
cnx.open
cmd.executenonquery
cnx.close
next
 

[carlitosdan]

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