Enlazar Base de datos a MSHFlexGrid en tiempo de ejecucion

[FedericoC]

Buenas, la verdad que hace mucho no toco VB y ando medio perdido, mi problema es el siguiente, creo una conexion a una base de datos...

Código:

Public Conexion1 As ADODB.Connection
Public Ejemplo As ADODB.Recordset
Public str_con1 As String

    str_con1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\base.mdb"
    Set Conexion1 = New ADODB.Connection
    Conexion1.ConnectionString = str_con1
    Conexion1.Open

ahora mi problema es como enlazarla a un MSHFlexGrid.... mi idea es realizar una busqueda y que muestre los resultados en el mshflexgrid...

bueno desde ya gracias

[Avellaneda]

Bueno, primero tienes que abrir el recordset (Ejemplo) con una consulta de tipo

Ejemplo.Open Select * Fron LaTabla Where Campo = aloquequieras", Conexion1

y después para enlazarla al grid

Set MSHFlexGrid1.DataSource = Ejemplo

[FedericoC]

Iniciado por Avellaneda

Bueno, primero tienes que abrir el recordset (Ejemplo) con una consulta de tipo

Ejemplo.Open Select * Fron LaTabla Where Campo = aloquequieras", Conexion1

y después para enlazarla al grid

Set MSHFlexGrid1.DataSource = Ejemplo

gracias por responder, pero eso es lo que hago, y me tira el error "La operacion no esta permitida si el objeto esta abierto"

saludos

[Avellaneda]

¿En qué línea?

[FedericoC]

cuando abro el recordset

[Avellaneda]

Entonces, antes de abrirlo, pones esta instrucción:

If Ejemplo.State = 1 Then Ejemplo.Close