
21/07/2004, 08:24
|
 | Colaborador | | Fecha de Ingreso: enero-2002 Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses Puntos: 146 | |
Me imagino, estimado Bravenap, que Berletzis no esta familiarizado con los metodos del objeto recordset y por ello no espera que le dieras una solucion en AddNew y Update.
Tal vez el esperaba algo como:
Cadena = "000 0"
Dim vector(5) 'por decir algo, la verdad se puede definir con 1 y con redim crecerlo
for i=1 to Len(Cadena)
Vector (i) = Mid(Cadena,i,1)
Next
sql = "insert into tabla (campo1, campo2, campo3, campo5) values ("&vector(1)&","&vector(2)&","&vector(3)&","&vecto r(4)&","&vector(5)&")"
Saludos |