Que tal como estan de nuevo aqui con una consulta, tengo el siguiente problema tengo una consulta
Código:
Private Sub ConsultaPresupuesto()
Dim sql As String, cadena As String, cadena1 As String
cadena = codigo.Text
Call VisualizarPresupuestos
sql = "SELECT concepto,subconcepto1,subconcepto2,subconcepto3,subconcepto4,subconcepto5,importe,id FROM tblpresupuestos WHERE codigo like '" & cadena & "' ORDER BY codigo"
Set presupuestos1 = New ADODB.Recordset
presupuestos1.Open sql, BD, adOpenKeyset, adLockOptimistic
If presupuestos.BOF = True Or presupuestos.EOF = True Then
Exit Sub
End If
End Sub
q la ocupa para enviarla a un mshflexgrid y me muestra la informacion si problema alguno el problema es q despues ocupa esa misma consulta para mandarla a un data report y me lo muestra en blanco
Código:
Private Sub Imprimir_Presupuestos()
Call ConsultaPresupuesto
Set DataPresupuestos.DataSource = presupuestos1
DataPresupuestos.Show
End Sub
aqui es donde hago el proceso del datareport............ el problema es q no me marca ningun error no se si me haga falta algo, de antemano muchas gracias por la ayuda
saludos
