18/04/2008, 16:17
|
| | Fecha de Ingreso: abril-2008
Mensajes: 4
Antigüedad: 16 años Puntos: 0 | |
ayuda para conectar el servidor desde visual basic con crystal XI alguien por ahi tiene algun ejemplo de como se realiza la conexion desde visual basic al servidor para poder mostrar los datos en el reporte hecho en crystal report.
yo lo estoy haciendo de la siguiente forma pero me muestra el reporte con el filtro que le doy desde la caja de texto pero la aplicacion de visual basic no responde, no se si la conexion esta bien hecha o si la consulta debe de ser de otra manera, alguien por ahi tiene un ejemplo de como se hace.
estoy usando crystal XI, visual basic 6 y sql 2000.
Aqui les pongo el codigo que utilizo...
Private Sub Command1_Click()
Dim conecta As ADODB.Connection
Dim extrae As ADODB.Recordset
Set conecta = New ADODB.Connection
Set extrae = New ADODB.Recordset
Dim crystal As New CRAXDRT.Application
Dim reporte As New CRAXDDRT.Report
Set crystal = New CRAXDRT.Application
Set reporte = New CRAXDDRT.Report
conecta.Open "Provider=SQLOLEDB;driver={SQL Server};server=(local);uid=sa;pwd=sermed;database= PRUEBAS;"
Set reporte = crystal.OpenReport(App.Path & "\reportes\rep_docentes_pruebas.rpt")
extrae.Open "select * from docentes where clave_doc='" & Text1.Text & "'", conecta, adOpenDynamic, adLockReadOnly
reporte.DiscardSavedData
reporte.Database.SetDataSource extrae
CrystalActiveXReportViewer1.ReportSource = reporte
CrystalActiveXReportViewer1.ViewReport
extrae.Close
conecta.Close
End Sub |