SoloCodigo

Hola y espero que alguien me pueda ayudar, bien les explico lo que quiero hacer, use un command par crear una consulta SQL, claro un command del Dataenvironment. Bien el command lo enlace al Datagrid, y funciona veo los datos, pero ahora quiero que por medio de un combo, pueda actualizar mi grid, pongo un ejempo:

con el command hago una consulta a una tabla gastos con relacion a una tabla de clasificacion de gastos y la consulta quedo de la siguiente manera:

SELECT egresos.fechegre_egr, clasif_egreso.descripegre_claeg, egresos.mtoegre_egr , egresos.obseregre_egr From clasif_egreso, egresos WHERE clasif_egreso.codegre_claeg = egresos.codegre_egr ORDER BY egresos.fechegre_egr

ahora bien lo que quiero es que mi nueva consulta que es:

SELECT egresos.fechegre_egr, clasif_egreso.descripegre_claeg, egresos.mtoegre_egr , egresos.obseregre_egr From clasif_egreso, egresos WHERE clasif_egreso.codegre_claeg = egresos.codegre_egr AND Month(fechegre_egr) = combomes.text ORDER BY egresos.fechegre_egr

pueda mostrarse en el datagrid una vez escoja yo un mes del combo

please si alguien me pueda ayudar con esto estare muy agradecido!!!    

Hola Aura, te estoy agradecido por tratar de solucionar mi pequeño problema, lo que me planteas ya lo tengo en el codigo, pero no me refresca por eso hice el planteamiento para ver como me pueden orientar, te muestro cual es el codigo para ver si me puesdes orientar, el codigo es el siguiente:

Private Sub combomes_Click()
     Select Case combomes.Text
        Case Is = "Enero"
            Mes = 1
        Case Is = "Febrero"
            Mes = 2
        Case Is = "Marzo"
            Mes = 3
        Case Is = "Abril"
            Mes = 4
        Case Is = "Mayo"
            Mes = 5
        Case Is = "Junio"
            Mes = 6
        Case Is = "Julio"
            Mes = 7
        Case Is = "Agosto"
            Mes = 8
        Case Is = "Septiembre"
            Mes = 9
        Case Is = "Octubre"
            Mes = 10
        Case Is = "Noviembre"
            Mes = 11
        Case Is = "Diciembre"
            Mes = 12
    End Select
    Call actualizar_consulta
End Sub

Private Sub actualizar_consulta()
 
  If DE_SICPOS.rsCmEgresos.State = adStateOpen Then
     DE_SICPOS.rsCmEgresos.Close
  End If
   
  ConsultaSQL = "SELECT egresos.fechegre_egr, clasif_egreso.descripegre_claeg, egresos.mtoegre_egr , egresos.obseregre_egr From clasif_egreso, egresos WHERE clasif_egreso.codegre_claeg = egresos.codegre_egr AND Month(fechegre_egr) = mes ORDER BY egresos.fechegre_egr"
   
  DE_SICPOS.Commands("cmegresos").CommandText = ConsultaSQL
  DE_SICPOS.Commands("cmegresos").CommandType = adCmdText
  DE_SICPOS.Recordsets("cmegresos").LockType = adLockReadOnly
  DE_SICPOS.Recordsets("cmegresos").Open
 
  DE_SICPOS.Recordsets("cmegresos").Requery
 
  Set DataGrid1.DataSource = DE_SICPOS
  DataGrid1.Refresh
 
  Call Transf_Mes '/*********** llamado a la rutina del nombre de mes
  DataGrid1.Caption = "RELACION DE EGRESOS DEL MES DE  " + NomMes
  DataGrid1.Columns(0).Caption = "Fecha"
  DataGrid1.Columns(0).Width = 1000
  DataGrid1.Columns(1).Caption = "Descripción"
  DataGrid1.Columns(1).Width = 3000
  DataGrid1.Columns(2).Caption = "Monto"
  DataGrid1.Columns(2).Alignment = dbgRight
  DataGrid1.Columns(2).NumberFormat = "##,###0.00"
  DataGrid1.Columns(2).Width = 2500
  DataGrid1.Columns(3).Caption = "Observaciones"
  DataGrid1.Columns(3).Width = 3000
 
End Sub


Private Sub Transf_Mes()
    Select Case Mes
        Case Is = 1
            NomMes = "ENERO"
        Case Is = 2
            NomMes = "FEBRERO"
        Case Is = 3
            NomMes = "MARZO"
        Case Is = 4
            NomMes = "ABRIL"
        Case Is = 5
            NomMes = "MAYO"
        Case Is = 6
            NomMes = "JUNIO"
        Case Is = 7
            NomMes = "JULIO"
        Case Is = 8
            NomMes = "AGOSTO"
        Case Is = 9
            NomMes = "SEPTIEMBRE"
        Case Is = 10
            NomMes = "OCTUBRE"
        Case Is = 11
            NomMes = "NOVIEMBRE"
        Case Is = 12
            NomMes = "DICIEMBRE"
    End Select

End Sub

ves eso es lo que tengo y no se si esta bien o como pudiera hacerlo de otra forma, si sabes algo te lo agradezco desde ya..... Saludos y espero que me puedas ayudar gracias nuevamente    

Hoa Aura, bueno muchas gracias, por tu información, voy a intertarlo de ese modo, cualquier cosa pos te vuelvo a escribir, y de antemano gracias nuevamente