ACTUALIZAR REGISTROS CON SELECT
Publicado por SERGIO FLORES (3 intervenciones) el 14/03/2003 21:53:10
HOLA !
TENGO UN PROBLEMA QUE DEFINITIVAMENTE NO HE PODIDO RESOLVER. DESEO REALIZAR UNA ACTUALIZACION DE REGISTRIOS CON UPDATE APOYADO POR SELECT . PERO ME ARROJA ERROR 3073 Y NO SE COMO SALIR DE ESTE EMBROLLO
ADJUNTO LA SENTENCIA..
SI NO ES POSIBLE ACEPTO SUGERENCIAS
SIN OTRO PARTICULAR
SERGIO FLORES FLORES
Sub actualiza_cuotas(mirut)
xpagflag = 0
xtipcod = 1
Dim dbUPse As Database
Set dbUPse = OpenDatabase("c:\convenio\agip.mdb")
'actualiza nro de cheque
SQL$ = "UPDATE CUOTAS SET PAGA1 = (SELECT Dbucta FROM Tdetpag WHERE cuotas.pagnro=tdetpag.pagnro" & _
" AND cuotas.prorut =tdetpag.prorut ) " & _
" WHERE cuotas.prorut =" & mirut & ";"
dbUPse.Execute (SQL$)
TENGO UN PROBLEMA QUE DEFINITIVAMENTE NO HE PODIDO RESOLVER. DESEO REALIZAR UNA ACTUALIZACION DE REGISTRIOS CON UPDATE APOYADO POR SELECT . PERO ME ARROJA ERROR 3073 Y NO SE COMO SALIR DE ESTE EMBROLLO
ADJUNTO LA SENTENCIA..
SI NO ES POSIBLE ACEPTO SUGERENCIAS
SIN OTRO PARTICULAR
SERGIO FLORES FLORES
Sub actualiza_cuotas(mirut)
xpagflag = 0
xtipcod = 1
Dim dbUPse As Database
Set dbUPse = OpenDatabase("c:\convenio\agip.mdb")
'actualiza nro de cheque
SQL$ = "UPDATE CUOTAS SET PAGA1 = (SELECT Dbucta FROM Tdetpag WHERE cuotas.pagnro=tdetpag.pagnro" & _
" AND cuotas.prorut =tdetpag.prorut ) " & _
" WHERE cuotas.prorut =" & mirut & ";"
dbUPse.Execute (SQL$)
Valora esta pregunta
0