Ayuda con Registros!!
Publicado por Juan (2 intervenciones) el 21/09/2004 17:32:27
Hola como estan.. Mi problema es que quiero actualizar datos, ya sea que tenga que arreglar cualquier dato que halla introducido en mi base de datos este es mi codigo que les envio de ejemplo para que me digan como puedo actualizar, lo tengo asi y cuando presiono el boton para actualizar hace todo bien pero hace los cambios en el primer registro, tengo 5 registros actualmente en mi base no se como hacer para que me actualizar en el registro que yo seleccione......
Private Sub Command5_Click()
'***********Declaracion de Varibles*************
Dim Controles As Object
'***********************************************
If Verificar_Datos Then
sSQL = "SELECT * FROM movimiento"
Set rs = New ADODB.Recordset
rs.Open sSQL, dbIglesia, adOpenDynamic, adLockOptimistic
rs!mconcep1 = Trim(Text2.Text)
rs!mconcep2 = Trim(Text3.Text)
rs!mmonto = mskMonto.Text
rs!mfecha = mskFecham
'*******Tipo: Entrada o Salida*******
If optES(0).Value Then
rs!mtipo = "E"
ElseIf optES(1).Value Then
rs!mtipo = "S"
End If
'*******Forma de Pago*************
If optPago(0).Value Then
rs!mfpago = "Efectivo"
ElseIf optPago(1).Value Then
rs!mfpago = "Cheque"
ElseIf optPago(2).Value Then
rs!mfpago = "Deposito"
End If
rs.Update
End Sub
Private Sub Command5_Click()
'***********Declaracion de Varibles*************
Dim Controles As Object
'***********************************************
If Verificar_Datos Then
sSQL = "SELECT * FROM movimiento"
Set rs = New ADODB.Recordset
rs.Open sSQL, dbIglesia, adOpenDynamic, adLockOptimistic
rs!mconcep1 = Trim(Text2.Text)
rs!mconcep2 = Trim(Text3.Text)
rs!mmonto = mskMonto.Text
rs!mfecha = mskFecham
'*******Tipo: Entrada o Salida*******
If optES(0).Value Then
rs!mtipo = "E"
ElseIf optES(1).Value Then
rs!mtipo = "S"
End If
'*******Forma de Pago*************
If optPago(0).Value Then
rs!mfpago = "Efectivo"
ElseIf optPago(1).Value Then
rs!mfpago = "Cheque"
ElseIf optPago(2).Value Then
rs!mfpago = "Deposito"
End If
rs.Update
End Sub
Valora esta pregunta
0