Rogloz
16 de Julio del 2004

Tengo una aplicación en Visual Basic 6, enlazada con una BD en Access que posee una contraseña, además tengo los reportes hechos en Crystal Report.
Para Acceder a los datos desde la aplicación no hay problema; el problema es que cuando llamo el reporte desde Visual no me lo carga, al parecer es un conflicto con la contraseña de Access, necesito saber si hay alguna forma o instrucción en Visual para quitar este inconveniente, cabe aclarar que si se quita la contraseña de Access el reporte si carga. La conexión es por ODBC pero no quisiera quitar la contraseña para que funcionara.

Espero haber sido claro, gracias el que lo resuelva se gana el cielo

tecniCam
16 de Julio del 2004

Esto es un ejemplo, ahora lo adaptas a tus necesidades:

If reporte = vbNullString Then
MsgBox "No hay nada seleccionado o no existe el informe solicitado", vbOKOnly + vbInformation, "Mi programa"
Else
With Rep
.Destination = crptToWindow
.DataFiles(0) = DireccionBasesDatos
.Connect = "pwd=este785UtR33;" 'Esta es la contrasela de la BD
'.ReportFileName = "c:maestro cadenasreporte" & reporte
DireccionReportes = App.Path & "reporte"
If TipoFlex <> "Consulta" And TipoFlex <> "Potencial" And TipoFlex <> "Dispersion" Then
If verTres Then
.ReportFileName = DireccionReportes & "3" & reporte
'.ReportFileName = App.Path & "reporte3" & reporte
Else
.ReportFileName = DireccionReportes & reporte
'.ReportFileName = App.Path & "reporte" & reporte
End If
Else
.ReportFileName = DireccionReportes & reporte
End If
.WindowTitle = "REPORTE " & subtitulo
.WindowState = crptMaximized
.Formulas(0) = "Texto = '" & titulo & "'"
.Formulas(1) = "Titulo = '" & subtitulo & "'"
'.Action = 1
valiendo = True

For bytContfor = 0 To 1
.Formulas(bytContfor) = " "
Next
End With
End If

Y lo llamas desde el procedimiento que sea.

tecniCam
16 de Julio del 2004

Report.Connect = "pwd=este785UtR33;"

Suponiendo que la contraseña sea esta: este785UtR33

Lo demás de arriba te servirá de orientación para que te hagas un experto en Crystal.