Visual Basic - Agregar tablas a una matriz mediante ADO

Life is soft - evento anual de software empresarial
 
Vista:

Agregar tablas a una matriz mediante ADO

Publicado por poncho (1 intervención) el 07/02/2007 19:42:52
como puedo hacer eso ?

e intentado, pero la verdad no eh podido !

si alguien me puede volver a ayudar !! jeje

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Agregar tablas a una matriz mediante ADO

Publicado por hector (67 intervenciones) el 07/02/2007 20:43:04
bucha poncho no vi tu duda pasada pero ya te ayudaron parece y esta que tienes ahora realmente no se no he trabajado con matrices en ADO ni lo he intentado
oie tu sabes algo de data report, lee mi consulta porfa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Agregar tablas a una matriz mediante ADO

Publicado por Matías Freire (421 intervenciones) el 07/02/2007 22:45:57
agregar una tabla a una matriz??????????????

o no sabes lo que quieres, o a las cosas las llamas por el nombre equivocado... o quieres juntar peras con naranjas.

Explícate un poco mejor
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar