Ver Mensaje Individual
  #22 (permalink)  
Antiguo 16/04/2005, 23:02
xochitemol
 
Fecha de Ingreso: diciembre-2004
Mensajes: 79
Antigüedad: 20 años, 2 meses
Puntos: 0
Gracias creo resolver el problema

el codigo quedo algo asi:


Private Sub Command4_Click()
Dim CrApp As CRAXDRT.Application
Dim Reporte As CRAXDRT.Report
Dim Conn As ADODB.Connection
Dim Recset As ADODB.Recordset

'Crea el reporte y lo abre desde el RPT
Set CrApp = New CRAXDRT.Application
Set Reporte = CrApp.OpenReport(App.Path & "\reportes\Reporte5.rpt")
Set Conn = New ADODB.Connection
conexion 'modulo de conexion a la base de datos
'Obtiene los datos de la tabla
Set Recset = New ADODB.Recordset
Recset.Open "Select * from registrar where nombre='" & Text1 & "'", cn, adOpenDynamic
Reporte.Database.SetDataSource Recset, 3, 1
'Establece el reporte a mostrar del control Viewer
CRV.ReportSource = Reporte
CRV.ViewReport
'Elimina la instancia del reporte para eliminar el bloqueo del archivo RPT
Set Reporte = Nothing

End Sub


*************************
aqui esta el modulo de la conexion
***************************
Option Explicit
Public cn As ADODB.Connection
Sub conexion() 'establezco conexion xon base de datos
Dim ruta As String
On Error GoTo errores
ruta = App.Path & "\RBDC\BDC.mde"
'If cn.State = adStateOpen Then cn.Close
Set cn = Nothing
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & ruta & ";" & _
"Jet OLEDB:Database password=cossies "
cn.Open
errores:
If Err.Number = -2147467259 Then
MsgBox "Error fatal la base de datos no existe", vbCritical
Exit Sub
End If
End Sub



perdon se me olvidaba el reporte usa archivos TTX, gracias a bebita por los consejos y ayuda. a Jrp01 por el consejo de archivos ttx

Última edición por xochitemol; 16/04/2005 a las 23:08 Razón: modificar contenido