26/03/2004, 13:58
|
| | | Fecha de Ingreso: enero-2004
Mensajes: 154
Antigüedad: 21 años, 3 meses Puntos: 0 | |
| Te quedaría así, por si no lo ves claro:
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("mibd.mdb")
sql = "update prod2 set precio=p1.precio from prod2 p2,prod1 p1 where p2.codigo=p1.codigo
"
Rs.Open sql, oConn, 3, 1
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
Saludos!!!! |