pepe_fap
22 de Julio del 2003

Saludos a todos.
Estoy haciendo un sistema en Visual Basic 6.0 conectado a ORACLE 9i, puedo realizar consultas y modificaciones satisfactoriamente.

Mi problema es el siguiente:
Usar un reporte creado en Crystal Report 4.6 (Crystal Report Control 4.6) llamado Prueba1.Rpt

Si coloco Prueba.PrintReport lo imprime normal.

Pero falla al colocar las siguientes líneas:
Reporte1.Reportfilename = "C:Prueba1.Rpt"
Reporte1.Discardsave= true
Reporte1.WindoState = crptmaximized
Reporte1.WindowBorderStyle = crptnoborder
Reporte1.Action = 1

Aparece un error:
Error '20536' en tiempo de ejecución:
"Imposible conectar: registro de parámetros incorrectos".

Es asi que no puedo refrescar la información de Prueba1.Rpt

Estoy casi seguro que debe ser de que alguna manera debo pasarle mediante codigo los datos de la base de Datos en Oracle 9i:
Usuario: PEPE1
Contraseña: PEPE1
Cadena Conexion: SISTEMA

He instalado Crystal Report 8.5 y estoy tratanto en VB con el Crystal Report View Control y coloco:
CRViewer1.ReportSource = "E:PEPEautores.rpt"
CRViewer1.PrintReport
Pero arroja el
"Error de compilación: No coinciden los tipos"

Solicito su ayuda por favor.
Gracias de antemano.

K-1118
22 de Julio del 2003

mirà yo hago reportes con Crystal, pero primero hago la conexiòn a la bd y despuès los reportes.
nùnca me he conectado a Oracle, te mando un fragmento de còdigo donde hago una conexiòn a una bd Informix y despuès lo que hago para Crystal.
Ojalà te sirva.


'esto es para conectarse a la base de datos
sDSN = cmbDSN.Text
sDataBaseName$ = "xxx"
Set Env = rdoEngine.rdoEnvironments(0)
sUsu = txtUID.Text
txtPWD = txtPWD.Text
sConexion$ = "DSN=" & sDSN & ";" & "UID=" & sUsu & ";"
sConexion$ = sConexion & "PWD=" & txtPWD & ";"
sConexion$ = sConexion & "Database=" & sDataBaseName
Set Cn = Env.OpenConnection("", rdDriverNoPrompt, 0, sConexion)
If Err.Number <> 0 Then
sMsgError = " Usuario o Clave invalida, Error No. " & Err.Number
MsgBox sMsgError, vbCritical, "Error : "
txtUID.SetFocus
Else
Unload Me
'frmSplash.Show vbModal
MDI.Show
End If

'despuès ya con esa conexiòn llamo mis reportes
'utilizando un query desde vb.
Crystal1.Connect = sConexion
Crystal1.ReportFileName = App.Path & "repDireTelDepI.rpt"
sSQL = "SELECT * FROM insti, telefonos " _
& "WHERE icodigo = tinstitucion "
Crystal1.SQLQuery = sSQL
I = Crystal1.PrintReport
If I <> 0 Then
MsgBox "Error No." & I
End If
'el app.path es el path actual donde te encontràs
'te aconsejo usarlo en lugar de un path fijo
saludos.