RE:Modificar campo tabla access
Dim strQry As String
Dim cN As New OleDb.OleDbConnection
Dim oCGen As New OleDb.OleDbCommand
cN.ConnectionString = "Data Source= c:\tubasededatos.mdb'; " & _
"Provider = Microsoft.jet.OleDB.4.0;"
cN.Open()
Dim sqlselect As String
sqlselect = "SELECT * FROM teconomicos"
Dim myCNN2 As New OleDb.OleDbConnection(CN.ConnectionString)
Dim sqlcmd2 As New OleDb.OleDbCommand(sqlselect, myCNN2)
myCNN2.Open()
Dim myreader As OleDb.OleDbDataReader
myreader = sqlcmd2.ExecuteReader
Dim strQry As String
Dim cmUpdate As New OleDb.OleDbCommand
dim variabledecompracion as ???=string , numerico, booleano etc
If myreader.FieldCount > 0 Then
While myreader.Read() 'lee la tabla teconomicos
variabledecomparacion = myreader("compodecompracion")
IF myreader("compobooleano")=0 then 'compara el campo booleano
strQry = "UPDATE TELECONOMICOS " & _
"SET " & _
"compobooleano = " & 1 & _
"WHERE compodecompracion = " & variabledecompracion & " "
cmUpdate.CommandText = strQry
cmUpdate.Connection = cn
cmUpdate.ExecuteNonQuery()
endif
endwhile
endif
cn.close
myreader.Close()
myCNN.Close()
-------------------
bueno espero te sirva o por lo menos te de una idea