Mostrar consulta SQL en MSFlexGrid o DataGrid

[rositafresita]

Hola a todos, como puedo hacer que se muestre la consulta "SELECT * FROM Tabla WHERE Nombre = nom AND Fecha between #" & fec1 & "# AND #" & fec2 & "# ORDER BY Fecha" en un DataGrid.
Ya intente hacerlo con un MSFlexGrid, primero cree una conexión (cn) en un módulo y creo un recordset en el formulario donde uso el MSFlexGrid y la consulta queda "SELECT * FROM Tabla WHERE Nombre = nom AND Fecha between #" & fec1 & "# AND #" & fec2 & "# ORDER BY Fecha", cn pero marca el siguiente error "no se puede utilizar la conexión p realizar esta operacion.Está cerrada o no es válida en este contexto".
Gracias de antemano a quien me pueda ayudar

[jc_moty]

no se puede utilizar la conexión p realizar esta operacion.Está cerrada o no es válida en este contexto

Lo que sucede es que queres usar la MSFlexGrid con ADO y esta solo funciona con DAO, ahora bien la DataGrid si la podes usar con ADO, si mal no recuerdo, para usar la DataGrid con ADO tendria que ser asi:

Código:

Set Datagrid1.DataSource = Recordset

Saludos

[rositafresita]

Gracias x responder, pero ya lo probe y no funciona, me sigue marcando el mensaje de error

[antonio2005pe]

Iniciado por rositafresita

Gracias x responder, pero ya lo probe y no funciona, me sigue marcando el mensaje de error

tu codigo es algo como esto?

Código:

Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
CN.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=BD;Data Source=PC"
CN.Open
RS.CursorLocation = adUseClient
RS.LockType = adLockOptimistic
RS.ActiveConnection = CN
RS.Open "SELECT * FROM CLIENTES"

Código:

Set DataGrid1.RecordSource = RS

[rositafresita]

Gracias x responder, pero ya probé el código, cambiandole lo del SQL server por una conexión de tipo access pero no funciona, tal vez me hace falta alguna referencia

[Aguila71]

Hola es primera vez que estoy en este foro, sobre el uso del MSFlexGrid en lo personal tengo unos ejemplos con Ado para mostrar registros de una base de Access, si aun no has resulto la situacion enviame tu correo y te mando los ejemplos o no se si puede enviar arch adjuntos para conpartirlos con todos.

[juanes222]

ok, yo lo hago de la siguiente forma para el MSFlexGrid.

'Primero declaro el recordset
Set RsRep = New ADODB.Recordset
RsRep.LockType = adLockOptimistic
RsRep.CursorType = adOpenKeyset
RsRep.ActiveConnection = CnGeneral

'Luego hago al consulta y confirmo que no este vacio es decir que si
'haya traido datos
RsRep.Open "SELECT Cod_Rep, Nom_Rep, Des_Rep FROM Reportes"
If RsRep.RecordCount > 0 Then
LlenarFlex
End If
RsRep.Close

'Por ultimo con esta función lleno el MSFlexGrid
Function LlenarFlex()
Dim intFila As Integer
RsRep.Requery
MsfInf.Clear
MsfInf.Rows = 1
RsRep.MoveFirst
With MsfInf
.ColWidth(0) = 800
.ColWidth(1) = 2000
.ColWidth(2) = 6500
.TextMatrix(0, 0) = "Código"
.TextMatrix(0, 1) = "Nombre"
.TextMatrix(0, 2) = "Descripción"
End With
While Not RsRep.EOF
With MsfInf
intFila = MsfInf.Rows
.Rows = intFila + 1
.TextMatrix(intFila, 0) = RsRep!Cod_Rep
.TextMatrix(intFila, 1) = RsRep!Nom_Rep
.TextMatrix(intFila, 2) = RsRep!Des_Rep
RsRep.MoveNext
End With
Wend
End Function