RE:Reportes Maestro Detalle Vb6 - URGENTISIMO
Miralo y adaptalo a tu necesidad.
El Señor te bendiga.
Set dB2 = New ADODB.Connection
Set rS2 = New ADODB.Recordset
´Listado de formulas entre fechas **************************************************Finicio = InputBox("Ingrese desde la Fecha que desea Consultar", "LISTADOS")
Ffinal = InputBox("Ingrese hasta que Fecha desea Consultar", "LISTADOS")
With dB2
.Provider = "microsoft.jet.oledb.3.51"
.ConnectionString = "F:\produc\Laborat.mdb"
.Open
End With
StrD = "Select Distinct Codigo,Codigo2,Fecha,Fulon,Turno,Partida,Partida2,ArtColEsp,Estado,Pedido,Cantidad,Kilaje from TBLarmadoFormula where Fecha between ´" & Finicio & "´ and ´" & Ffinal & "´ order by codigo, codigo2;"
With rS2
.ActiveConnection = dB2
.Open StrD
End With
Set RptArmaForm.DataSource = rS2
RptArmaForm.Sections("Sección4").Controls("etiqueta1").Caption = "Listado de Fórmulas entre Fechas"
RptArmaForm.Show