Tema: Arreglo
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 14/11/2002, 11:42
Avatar de deprabado
deprabado
 
Fecha de Ingreso: febrero-2002
Mensajes: 649
Antigüedad: 23 años, 2 meses
Puntos: 0
creo que ya esta, lo probe y funciona
arrClav = carrito.Keys()
arrElem = carrito.Items()
for a= 0 to carrito.Count-1
Set sql = conexion.Execute("INSERT INTO PRUEBA (CODIGO,CANTIDAD) VALUES ('"&arrClav(a)&"' ,'"&arrElem(a)&"')")

Perdonen el fastidio