Visual Basic - Asignando a recordeset

Life is soft - evento anual de software empresarial
 
Vista:

Asignando a recordeset

Publicado por poncho (1 intervención) el 08/02/2007 17:11:09
Hola.

aun no encuentro la forma de asignar los campos de una base de una tabla un recordset, alguien me puede ayudar?, lo necesito hacer mediante ADO.

quiero asignar los campos al recordset, porque despues necesito eliminar tres de ellos mediante una condicion.

alguien me puede ayudar?
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:Asignando a recordeset

Publicado por poncho (1 intervención) el 08/02/2007 18:57:51
ya pude hacerlo, si alguien le intera el codigo me dice !
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:Asignando a recordeset

Publicado por Flipper (3 intervenciones) el 08/02/2007 19:37:44
Si, si.. a mi me intera la forma de asignar los campos de una base de una tabla un recordset, mediante ADO. y despues eliminar tres de ellos mediante una condicion.
si pudierais poner el codigo.... 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

Aqui mi codigo

Publicado por poncho (1 intervención) el 08/02/2007 19:58:35
Ok, esto fue lo que hize:

Public Sub GuardaEnVector()

Dim rs As ADODB.Recordset
Dim SqlOrden
Dim i, qq As Integer
qq = 0
Public miBase As ADODB.Connection
'funcion para guardar todos los campos de la tabla DATOS en un vector
miBase.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & BDDRuta
SqlOrden = "SELECT * FROM datos"
'Set miBase = New ADODB.Connection
Set rs = New ADODB.Recordset

Set rs = miBase.Execute(SqlOrden)
rs.MoveFirst

For i = 0 To 63 'son 67 campos en total, menos 3 = 64, pero recuerden que el cero es posicion inicial en una matriz

If rs.Fields(i).Name <> "Hora" And rs.Fields(i).Name <> "Indice" And rs.Fields(i).Name <> "01JDU070ZV11" Then
rsVector(qq) = rs.Fields(i).Name
'i = i + 1
qq = qq + 1
End If
Next i

End Sub

Espero que les sirva y le entiendan.
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:Aqui mi codigo

Publicado por poncho (1 intervención) el 08/02/2007 22:07:51
mi estimado quique, te pido de favor que te evites la pena de leer mis posts, seria bueno para tu salud mental.

Veo que eres el numero uno en desarrollo en este sitio y algunos no somos dignos de postear aqui, en un foro para AYUDAR.

En fin, no te doy las gracias porque nunca me has ayudado en nada :D
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:Aqui mi codigo

Publicado por Flipper (3 intervenciones) el 08/02/2007 23:09:55
ok, si funca.
el que escribe anterior no sabe lo que dice.
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