Ver Mensaje Individual
  #1 (permalink)  
Antiguo 26/03/2004, 12:44
Avatar de jorel
jorel
 
Fecha de Ingreso: abril-2003
Ubicación: Monterrey, N.L.
Mensajes: 253
Antigüedad: 23 años, 6 meses
Puntos: 0
ayuda con vectores¡

Alguien podria orientarme de como cambiar este codigo que hice , pero utilizando vectores ¡¡¡ por favor necesito que me ayude alguein con esto, pasar este codigo utilizando vectores, ya que me quedan dudas con el uso de vectores ¡

Código PHP:
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 = "SELECT * FROM prod1"
Rs.Open sql, oConn, 3, 1

Do While not RS.EOF 
    codigo 
= RS("codigo")
    
precio = RS("precio")
    
Set RS2 = Server.CreateObject ("ADODB.RecordSet")
    
sql2 = "SELECT * FROM prod2"
    
RS2.Open sql2, oConn, 3, 1
    
Do While not RS2.EOF 
        sql2 
= "UPDATE prod2 SET precio="&precio&" where codigo="&codigo&" "
        
oConn.Execute sql2
        RS2
.MoveNext
        Loop 
RS
.MoveNext
Loop

RS2
.Close
Set RS2 
= nothing
RS
.Close
oConn
.Close
Set RS 
= nothing
Set oConn 
= nothing 
__________________

:adios:

Jorge Santana