Pasar datos de una segunda tabla
Publicado por Antonio (93 intervenciones) el 10/03/2010 21:12:45
Para pasar registros de una tabla al report hago lo siguiente:
a) Creo el recordset:
Set rsLinPed = New ADODB.Recordset
strSQL = "SELECT * FROM LinPeSEA WHERE Numero = '" & TBcNumPed & "'"
rsLinPed.Open strSQL, g_db, adOpenDynamic, adLockOptimistic
b) paso al report:
With crReport
.Database.SetDataSource rsLinPed
.PaperOrientation = 1
.PaperSize = 0
.DiscardSavedData
End With
¿Pero que código debo añadir (al margen del recordset), para pasar los registros filtrados de una segunda tabla?
Saludos cordiales.
a) Creo el recordset:
Set rsLinPed = New ADODB.Recordset
strSQL = "SELECT * FROM LinPeSEA WHERE Numero = '" & TBcNumPed & "'"
rsLinPed.Open strSQL, g_db, adOpenDynamic, adLockOptimistic
b) paso al report:
With crReport
.Database.SetDataSource rsLinPed
.PaperOrientation = 1
.PaperSize = 0
.DiscardSavedData
End With
¿Pero que código debo añadir (al margen del recordset), para pasar los registros filtrados de una segunda tabla?
Saludos cordiales.
Valora esta pregunta


0