Como incluir la password de la base access en el c贸digo de VB
ruso1
20 de Enero del 2005
C贸mo incluyo la password de la base de datos access en el c贸dogo de VB6.0 para pedir un informe, el c贸digo es el siguiente, pero con este c贸digo primero me solicita la password y despu茅s me muestra el informe.
Private Sub abreReporte(nombreRepo As String)
On Error GoTo final
Dim infacc As New Access.Application
infacc.OpenCurrentDatabase App.Path & "Sistema de Gestion de Reclamos.mdb"
infacc.DoCmd.OpenReport nombreRepo, acViewPreview
infacc.Visible = True
Exit Sub
final:
infacc.Quit acQuitSaveNone
Set infacc = Nothing
Exit Sub
End Sub
Saludos
Private Sub abreReporte(nombreRepo As String)
On Error GoTo final
Dim infacc As New Access.Application
infacc.OpenCurrentDatabase App.Path & "Sistema de Gestion de Reclamos.mdb"
infacc.DoCmd.OpenReport nombreRepo, acViewPreview
infacc.Visible = True
Exit Sub
final:
infacc.Quit acQuitSaveNone
Set infacc = Nothing
Exit Sub
End Sub
Saludos