Filtrar MSHFlexgrid por varios items
Publicado por Cecilia (1 intervención) el 28/10/2009 18:01:19
Que tal amigos foreros,
El problema que tengo es el siguiente...
Tengo un form y dentro de él un MSHFlexgrid, un ComboBox y ahora desearía agregarle dos TextBox con fechas parámetros que se las introduciría en modo ejecución.
Mi código es el siguiente:
Option Explicit
Public cn As ADODB.Connection
Public rst As ADODB.Recordset
Sub Conectar()
' Crea una nueva conexión y un recordset
Set cn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
rst.CursorLocation = adUseClient
' abre la base de datos
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
"Source=C:\Proyecto\FacturacionI" & _
"\Base.MDB;Persist Security Info=False"
End Sub
Sub Desconectar()
rst.Close
cn.Close
Set rst = Nothing
Set cn = Nothing
End Sub
Private Sub Combo1_Click()
' conecta a la base de datos
Call Conectar
' abre el recordset
rst.Open "SELECT NUMHISTO,APENOMPA,NNOMOBSOC,NUMAFIL,TIPOPLAN,NTIPOINTE,FEGRESO FROM Facturacion WHERE NNOMOBSOC Like '%" & _
Combo1.Text & "%'", cn, adOpenStatic, adLockOptimistic
' Muestra los datos en el FlexGrid
Set MSHFlexGrid1.DataSource = rst
' Visualiza la cantidad de registros filtrados
Me.Caption = "Registros encontrados: " & CStr(rst.RecordCount)
Desconecta
Call Desconectar
End Sub
Esto funciona muy bien, el problema es que cuando hago la selección desearía que el campo FEGRESO pudiera ser filtrado tambien con uno de los TextBox que tengo que agregar y me lo muestre en el Flex, intenté colocando "And" luego de "WHERE" pero evidentemente no se cual es la sintaxis y me da error.
Espero haber sido clara. Desde ya muuuuchas gracias!
Ceci.
El problema que tengo es el siguiente...
Tengo un form y dentro de él un MSHFlexgrid, un ComboBox y ahora desearía agregarle dos TextBox con fechas parámetros que se las introduciría en modo ejecución.
Mi código es el siguiente:
Option Explicit
Public cn As ADODB.Connection
Public rst As ADODB.Recordset
Sub Conectar()
' Crea una nueva conexión y un recordset
Set cn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
rst.CursorLocation = adUseClient
' abre la base de datos
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
"Source=C:\Proyecto\FacturacionI" & _
"\Base.MDB;Persist Security Info=False"
End Sub
Sub Desconectar()
rst.Close
cn.Close
Set rst = Nothing
Set cn = Nothing
End Sub
Private Sub Combo1_Click()
' conecta a la base de datos
Call Conectar
' abre el recordset
rst.Open "SELECT NUMHISTO,APENOMPA,NNOMOBSOC,NUMAFIL,TIPOPLAN,NTIPOINTE,FEGRESO FROM Facturacion WHERE NNOMOBSOC Like '%" & _
Combo1.Text & "%'", cn, adOpenStatic, adLockOptimistic
' Muestra los datos en el FlexGrid
Set MSHFlexGrid1.DataSource = rst
' Visualiza la cantidad de registros filtrados
Me.Caption = "Registros encontrados: " & CStr(rst.RecordCount)
Desconecta
Call Desconectar
End Sub
Esto funciona muy bien, el problema es que cuando hago la selección desearía que el campo FEGRESO pudiera ser filtrado tambien con uno de los TextBox que tengo que agregar y me lo muestre en el Flex, intenté colocando "And" luego de "WHERE" pero evidentemente no se cual es la sintaxis y me da error.
Espero haber sido clara. Desde ya muuuuchas gracias!
Ceci.
Valora esta pregunta


0