Varias consultas
Publicado por Lúlu G (2 intervenciones) el 28/09/2005 16:25:05
Hola de antemano quiero agradecer a quien me pueda ayudar, estoy realizando una aplicación en VB en el modulo de consultas estoy utilizando un DataComb, un DataGrid y un botón de comando el cual contiene el siguiente código:
Private Sub CmdBuscar_Click()
If DEBASEII.rscmdreporte.State = adStateOpen Then
DEBASEII.rscmdreporte.Close
End If
DEBASEII.cmdreporte (DataCombo1.Text)
Set DataGrid1.DataSource = DEBASEII.rscmdreporte
End Sub
En mi consulta cmdreporte tengo lo siguiente:
SELECT personal.TARJETA, personal.NOMBRE, clvinci.DESCRIPCION, Sum(justifiI.TOTAL_DIAS) AS Total_Dias
FROM (personal INNER JOIN justifiI ON personal.TARJETA = justifiI.TARJETA) INNER JOIN clvinci ON justifiI.ID_INC = clvinci.ID_INC
where (mes_ini = ?)
GROUP BY personal.TARJETA, personal.NOMBRE, clvinci.DESCRIPCION, justifiI.TARJETA,justifiI.mes_ini
En mi consulta cmmes tengo
select distinct mes_ini from justifiI
Lo cual permite que el usuario elija a través del DataCombo la consulta según el mes solamente.
QUÉ PUEDO HACER PARA QUE EL USUARIO PUEDA ELEGIR POR MES, TARJETA, AREA Y DESCRIPCIÓN.
De verdad Muchas gracias es muy urgente para mi.
Private Sub CmdBuscar_Click()
If DEBASEII.rscmdreporte.State = adStateOpen Then
DEBASEII.rscmdreporte.Close
End If
DEBASEII.cmdreporte (DataCombo1.Text)
Set DataGrid1.DataSource = DEBASEII.rscmdreporte
End Sub
En mi consulta cmdreporte tengo lo siguiente:
SELECT personal.TARJETA, personal.NOMBRE, clvinci.DESCRIPCION, Sum(justifiI.TOTAL_DIAS) AS Total_Dias
FROM (personal INNER JOIN justifiI ON personal.TARJETA = justifiI.TARJETA) INNER JOIN clvinci ON justifiI.ID_INC = clvinci.ID_INC
where (mes_ini = ?)
GROUP BY personal.TARJETA, personal.NOMBRE, clvinci.DESCRIPCION, justifiI.TARJETA,justifiI.mes_ini
En mi consulta cmmes tengo
select distinct mes_ini from justifiI
Lo cual permite que el usuario elija a través del DataCombo la consulta según el mes solamente.
QUÉ PUEDO HACER PARA QUE EL USUARIO PUEDA ELEGIR POR MES, TARJETA, AREA Y DESCRIPCIÓN.
De verdad Muchas gracias es muy urgente para mi.
Valora esta pregunta


0