Visual Basic - adodb.recorset

Life is soft - evento anual de software empresarial
   
Vista:

adodb.recorset

Publicado por Guillermo Vilchez (11 intervenciones) el 25/11/2010 23:21:58
saludos compañeros

quisiera saber si alguien sabe como puedo llenar un ADODB.Recordset en forma manual, ya que quiero hacer un reporte con dartareport pero en la propiedad datasource me da un error de tipo no coincide, al intentar igualar la propiedad datasource con un rdoResultset

no logre conectar una base de datos Mysql con ADO y utilice RDO, pero ahora se me presento este problema al intentar hacer un reporte con datareport.

por esto quiero intentar "llenar" el ADODB.Recordset en forma manual y utilizarlo en el datareport, ya que este tipo de recorset si lo acepta la propiedad datasource del datareport.

gracias por su colaboracion
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:adodb.recorset

Publicado por @RojasMarcelo (225 intervenciones) el 30/11/2010 06:58:31
Dim cnn as adodb.connection
Dim rst as adodb.recordset

set cnn = new adodb.connection
set rst = new adodb.recordset

cnn.cursorlocation = aduseclient
cnn.open "TU CADENA DE CONECCION"

rst.open "Select * from TU_TABLA;", cnn, , adOpenKeyset, adLockOptimistic, adcmdtext

rst.movefirst

msgbox rst.recordcount

No tengo VB6 en frente de mi...escribo esto de memoria asi que tendras que verificar que este correcto en la sintaxis. Pero a grandes rasgos asi es como cargas un Adodb.Recordset manualmente.

Suerte.
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:adodb.recorset

Publicado por Guillermo Vilchez (11 intervenciones) el 01/12/2010 23:09:14
Gracias por tu respuesta.

pero no es posible conectarme con ADO al intentarlo me da "Error no especificado", y no ha habido poder humano que halla logrado conectarlo, por eso decidi hacerlo con RDO, todo iba bien hasta que decidi hacer un reporte con DataReport.

asi que mi problema no es conectarme con ADO sino llenar en forma manual el ADODB.RECORDSET.
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:adodb.recorset

Publicado por @RojasMarcelo (225 intervenciones) el 02/12/2010 07:15:12
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockBatchOptimistic
rst.CursorLocation = adUseClient

'Definimos los campos que va a tener nuestro recordset
rst.Fields.Append "Nombre", adBSTR, 10, adFldUpdatable
rst.Fields.Append "Apellido", adBSTR, 10, adFldUpdatable

rst.Open
'Llenamos nuestro rst con 3 records...
rst.AddNew
rst.Fields("Nombre").Value = "Marcelo"
rst.Fields("Apellido").Value = "Rojas"
rst.Update

rst.AddNew
rst.Fields("Nombre").Value = "Guillermo"
rst.Fields("Apellido").Value = "Sanchez"
rst.Update

rst.AddNew
rst.Fields("Nombre").Value = "Willie"
rst.Fields("Apellido").Value = "Amigo"
rst.Update

rst.MoveFirst

Do While rst.EOF = False
MsgBox rst.Fields("Nombre").Value & " " & rst.Fields("Apellido").Value
rst.MoveNext
Loop
'limpiamos memoria y adios...
Set rst = Nothing

'Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

RE:adodb.recorset

Publicado por Guillermo Vilchez (11 intervenciones) el 03/12/2010 21:20:33
gracias amigo

esto era lo que necesitaba

muchas 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

RE:adodb.recorset

Publicado por cesar cesardaniel_@msn.com (1 intervención) el 21/01/2015 23:36:06
muy bueno el aporte
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