Problema al actualizar recordset

[moche_67]

hola a todos estyo trabjando kon un rekordset ke debo actualizar, pero a pesar ke mi recordset tiene propiedades de lectura - escritura no puedo grabar nada en la base de datos, es edcir no puedo actualizar los datos esste es mi kodigo

Set rs1 = New Recordset
cn.CursorLocation = adUseClient
rs1.ActiveConnection = cn
rs1.CursorType = adOpenDynamic
rs1.LockType = adLockOptimistic
rs1.Open "SELECT id_movimiento, fecha, usuario, turno, cliente,total, estado FROM movimiento "
txtid_movimiento = rs1!id_movimiento
txtfecha = rs1!fecha
txtusuario = rs1!usuario
txtturno = rs1!turno
txtcliente = rs1!cliente
txttotal = rs1!total
txtEstado = rs1!estado

txtestado es un textbox ke debe cambiar segun unos datso ingresados , lo kuriso es ke trabajo lo mismo(solo kambio la sentencia sql y el nombre del recordset)y trabajo dentro de un datagrid y si me permite grabar los datos, kisiera saber, dodne o en ke punto estyo fallando o me falta alguna propiedad o ke?, agradecere dese ya las respuestaa

Asi trabajo kon el grid y si funciona, komo se ve es casi lo mismo, pero ke pasa??????????'


cn.CursorLocation = adUseClient
rs2.ActiveConnection = cn
rs2.CursorType = adOpenDynamic
rs2.LockType = adLockOptimistic
rs2.Open "SELECT id_submovimiento, descripcion, detalle, cantidad, monto, total, acuenta, condicion FROM submovimiento WHERE id_movimiento = '" + txtid_movimiento + "'"
Set DataGrid1.DataSource = rs2
txtcondicion = rs2!condicion
txtacuenta = rs2!acuenta

aproposito uso MS ACCESS

[jrp01]

¿En que parte del codigo actualizas la BD?

[lic_dahool]

Una pregunta:

Es con este procedimiento que intentas guardar los datos en la base?

Código:

txtid_movimiento = rs1!id_movimiento
txtfecha = rs1!fecha
txtusuario = rs1!usuario
txtturno = rs1!turno
txtcliente = rs1!cliente
txttotal = rs1!total
txtEstado = rs1!estado

Ya que si es así, debería ser al reves

Código:

rs1!estado=txtestado
' etc, etc

También veo te faltaría el rs1.AddNew (el el rs1.Edit si lo que quieres es modificar un registro existente) y el rs1.Update al final para confirmar los cambios.

Saludos.