mshflexgrid y una consulta sql que no funciona

[azazel_xes]

hola tengo que llenar un mshflexgrid con el resultado de un recorset pero la consulta sql me esta marcando un error espero puedan ayudarme aqui les dejo el codigo:

Dim conexion As ADODB.Connection: Set conexion = New ADODB.Connection
Dim recorset As ADODB.Recordset: Set recorset = New ADODB.Recordset
Me.MSHFlexGrid1.Visible = True
With conexion
.Provider = "MSDataShape.1"
.ConnectionString = "Data Source=" & "C:\carpeta\db.mdb;" _
& "Data Provider=Microsoft.Jet.OLEDB.4.0;"
.Open

With recorset
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
End With
Set recorset = .Execute("SHAPE {SELECT fecha As FECHA , id_num as NºUSUARIO, nombre as NOMBRE ,tomadas as TOMADAS,restantes as RESTANTES FROM clases where fecha='" & cdate(me.text4.text) & "'}")

End With

Set Me.MSHFlexGrid1.DataSource = recorset

Me.MSHFlexGrid1.ColWidth(0, 0) = 0
Me.MSHFlexGrid1.ColWidth(1, 0) = 1500
Me.MSHFlexGrid1.ColWidth(2, 0) = 1500
Me.MSHFlexGrid1.ColWidth(3, 0) = 2000
Me.MSHFlexGrid1.ColWidth(4, 0) = 1500
Me.MSHFlexGrid1.ColWidth(5, 0) = 1500

Me.MSHFlexGrid1.ColAlignment(1) = 3
Me.MSHFlexGrid1.ColAlignment(2) = 3
Me.MSHFlexGrid1.ColAlignment(3) = 3
Me.MSHFlexGrid1.ColAlignment(4) = 3
Me.MSHFlexGrid1.ColAlignment(5) = 3

Me.MSHFlexGrid1.ColAlignmentHeader(0, 3) = 3



End Sub

[RsOfT]

Colocas los With separados a ver si es eso. Si no lo es, pues, debes ser más explícito, que error te tira?

[CODE]
With conexion
.Provider = "MSDataShape.1"
.ConnectionString = "Data Source=" & "C:\carpeta\db.mdb;" _
& "Data Provider=Microsoft.Jet.OLEDB.4.0;"
.Open
End With

With recorset
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
End With

[CODE]

[azazel_xes]

Pues Ya Cambie Lo De Los With Pero Sigue Sin Funcionar Y Me Marca El Error De Que Hay Algo Mal Con La Sentecia Que Puede Ser Que Este Usando Una Palabra Reservada O Los Signos De PuntuaciÓn Estan Mal

[RsOfT]

En que línea de te da el error?

[azazel_xes]

el error me lo marca en la sentencia de al busqueda de sql

Set recorset = .Execute("SHAPE {SELECT fecha As FECHA , id_num as NºUSUARIO, nombre as NOMBRE ,tomadas as TOMADAS,restantes as RESTANTES FROM clases where fecha='" & cdate(me.text4.text) & "'}")

en ocaciones ,e dice que los tipos de datos no coinciden y si lo modifico me dice que falta punots o la sentencia tiene una palabra reservada o algo asi

[RsOfT]

No se para que se usa el shape en el select, pero quitando esto, yo haría el select asi:

recorset.Open = "SELECT fecha As FECHA , id_num as NºUSUARIO, nombre as NOMBRE ,tomadas as TOMADAS,restantes as RESTANTES FROM clases where fecha='" & cdate(me.text4.text) & "'",conexion,3,1

[RsOfT]

por cierto la palabra NºUSUARIO, mejor usa NoUSUARIO, puede ser eso también

[azazel_xes]

gracias por todo pero ya resolvi el problema igual aqui pongo coo lo resolvi por si alguien algun dia se encuentra en la misma situción que yo:

NOTA*parece ser que para consulta de fechas sirve mejor el like en vez de =

Dim conexion As ADODB.Connection: Set conexion = New ADODB.Connection
Dim recorset As ADODB.Recordset: Set recorset = New ADODB.Recordset
Me.MSHFlexGrid1.Visible = True
With conexion
.Provider = "MSDataShape.1"
.ConnectionString = "Data Source=" & "C:\carpeta\mibasededatos.mdb;" _
& "Data Provider=Microsoft.Jet.OLEDB.4.0;"
.Open

With recorset
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
End With
Set recorset = .Execute("SHAPE {SELECT fecha As FECHA , FROM "mi tabla" WHERE fecha LIKE ' " & CDATE(ME.TEXT1.TEXT) & " ' }")

*creo que con esto alguien ya puede salir de un lio que se paresca al que me paso a mi

Set Me.MSHFlexGrid1.DataSource = recorset