UPDATE CON SELECT
Publicado por SERGIO FLORES (1 intervención) el 14/03/2003 23:46:51
HOLA!!
TE COMENTO QUE TENDO UN PROBLEMA QUE AUN NO HE PODIDO RESOLVER.
TENGO UN UPDATE PARA VARIOS REGISTROS APOYADO POR UN SELECT. PERO ME ARROJA EL ERROR 3073 EL CUAL ME COMENTA QUE LA TABLA NO ESTA PARA MODO UPDATE .., ES DECIR SOLO LECTURA.
ADJUNTO UN TROZO DEL PROGRAMA.
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 estado de cheque
SQL$ = " UPDATE CUOTAS SET SCOSCOD = (SELECT tdetpag.dbuf3 FROM Tdetpag WHERE cuotas.pagnro=tdetpag.pagnro" & _
" AND cuotas.prorut =tdetpag.prorut AND cuotas.pagneto = tdetpag.dbuvalor" & _
" )" & _
" WHERE cuotas.prorut =" & mirut & ";"
dbUPse.Execute (SQL$), , dbsqlpasstrough
TE COMENTO QUE TENDO UN PROBLEMA QUE AUN NO HE PODIDO RESOLVER.
TENGO UN UPDATE PARA VARIOS REGISTROS APOYADO POR UN SELECT. PERO ME ARROJA EL ERROR 3073 EL CUAL ME COMENTA QUE LA TABLA NO ESTA PARA MODO UPDATE .., ES DECIR SOLO LECTURA.
ADJUNTO UN TROZO DEL PROGRAMA.
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 estado de cheque
SQL$ = " UPDATE CUOTAS SET SCOSCOD = (SELECT tdetpag.dbuf3 FROM Tdetpag WHERE cuotas.pagnro=tdetpag.pagnro" & _
" AND cuotas.prorut =tdetpag.prorut AND cuotas.pagneto = tdetpag.dbuvalor" & _
" )" & _
" WHERE cuotas.prorut =" & mirut & ";"
dbUPse.Execute (SQL$), , dbsqlpasstrough
Valora esta pregunta
0