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: 22 años, 1 mes
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 sqloConn31

Do While not RS.EOF 
    codigo 
RS("codigo")
    
precio RS("precio")
    
Set RS2 Server.CreateObject ("ADODB.RecordSet")
    
sql2 "SELECT * FROM prod2"
    
RS2.Open sql2oConn31
    
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