MySQL - Filtrar por fechas y por empresa

   
Vista:

Filtrar por fechas y por empresa

Publicado por Vanessa (1 intervención) el 30/10/2007 12:17:57
Necesito filtrar por fecha , obteniendo los datos de la tabla facturas recibidas, pero quiero filtrarlo por empresa para que solo me aparezcan las facturas de esa empresa.

Para las fechas cree dos campos fecha y para las empresas cree un combo que me muestra todas las empresas de la tabla empresas

Para ello cree la siguiente instrucción:

Private Sub cmdMostrar_Click()

Dim SQLa As String
Dim SQLc As String
Dim SQLfe As String
Dim SQLfr As String
Dim strcn As String
Dim rsta As New ADODB.Recordset
Dim rstc As New ADODB.Recordset
Dim rstfr As New ADODB.Recordset
Dim rstfe As New ADODB.Recordset

Dim cna As New ADODB.Connection
Dim cnc As New ADODB.Connection
Dim cnfe As New ADODB.Connection
Dim cnfr As New ADODB.Connection

strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\contafact.mdb;User Id=admin;Password="
cna.Open CurrentProject.BaseConnectionString
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\contafact.mdb;User Id=admin;Password="
cnc.Open CurrentProject.BaseConnectionString
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\contafact.mdb;User Id=admin;Password="
cnfe.Open CurrentProject.BaseConnectionString
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\contafact.mdb;User Id=admin;Password="
cnfr.Open CurrentProject.BaseConnectionString

SQLa = "select idempresa,sum(abonos)where idempresa= me.cboempresas.value and fecha between to_date('&txtfechadesde','dd/mm/yy') and to_date('&txtfechahasta','dd/mm/yy') from movimientosbancos group by idempresa"
rsta.Open SQLa, cna, adOpenKeyset, adLockOptimistic
SQLc = "Select idempresa,sum(cargos)where idempresa.value=me.cboempresas.value and me.txtfechadesde,me.txtfechahasta between fecha from Movimientosbancos group by idempresa"
rstc.Open SQLc, cnc, adOpenKeyset, adLockOptimistic
SQLfe = "select idcliente,sum(importetotalfactura) where idcliente.value=me.cboempresas.value and me.txtfechadesde,me.txtfechahasta between fecha from facturasemitidas group by idcliente"
rstfe.Open SQLfe, cnfe, adOpenKeyset, adLockOptimistic
SQLfr = "select idproveedor,sum(importetotalfactura) where idproveedor.value=me.cboempresas.value and me.txtfechadesde,me.txtfechahasta between fecha from facturasrecibidas group by idproveedor"
rstfr.Open SQLfr, cnfr, adOpenKeyset, adLockOptimistic

Me.txtabonos.Value = SQLa
Me.txtcargos.Value = SQLc
Me.txtfacturaem.Value = SQLfe
Me.txtfacturarec.Value = SQLfr

y no me funciona. ¿Alguna sugerencia de cómo debería de ser la consulta?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder