RE:Agregar tablas a una matriz mediante ADO
Publicado por
poncho (1 intervención) el 07/02/2007 23:01:19
Que onda, perdon si no me explique bien, mira, esta sub la quiero hacer mediante ADO:
Public Sub GuardaEnVector()
Set miBase = OpenDatabase(BDDRuta)
Set CamposDeTabla = miBase.OpenTable("Datos")
Dim X As Integer
'variable que guarda el numero de campos en una tabla
temporal1 = CamposDeTabla.Fields.Count - 2
temporal = CamposDeTabla.Fields.Count - 4
'guarda los campos de la tabla datos en un vector
For X = 0 To CamposDeTabla.Fields.Count - 1
'Omite 3 campos
If CamposDeTabla.Fields(X).Name <> "Hora" And CamposDeTabla.Fields(X).Name <> _
"Indice" And CamposDeTabla.Fields(X).Name <> "01JDU070ZV11" Then
rsVector(qq) = CamposDeTabla.Fields(X).Name
qq = qq + 1
End If
Next X
End Sub
Espero me me puedan ayudar!
gracias