Mensaje enviado por Pablo Fébolo <pfebolo@microsystem.com.ar> el 27/12/2002

Este es otro truco que podes probar,



Private Sub mnuImpresionInforme1_Click()
  Dim db As Database
  Dim acc As Access.Application
  Set acc = New Access.Application
  Set db = acc.DBEngine.OpenDatabase(""\\srv-ofimatico\Autobuses\Perfiles especiales\Perfilesespeciales.mdb", False, False, ";PWD=tupassword")
  With acc
    .OpenCurrentDatabase ("\\srv-ofimatico\Autobuses\Perfiles especiales\Perfilesespeciales.mdb")
    .DoCmd.OpenReport "Informe1", acViewNormal
    .CloseCurrentDatabase
    .Quit
  End With
  db.Close
  Set db = Nothing
  Set acc = Nothing
End Sub


Saludos y suerte.



At 27/12/2002 10:21, you wrote:
Es un truco que no queda muy elegante pero funciona
Necesitas la dll de DAO 3.6 (Access2000) o ADO 3.51 (Access97)

    Dim x As Integer
    Dim a As New Access.Application
    Dim Db As Database

    Set Db = OpenDatabase("d:\ito.mdb", True, False, ";pwd=hola")
    Db.NewPassword "hola", ""
    Db.Close

    'Set a.new = Db ----Esto esta comentado porque no va pero la idea
era abrir la base de datos y asignarsela directamente al objeto
application
    a.OpenCurrentDatabase "d:\ito.mdb", True
    a.DoCmd.OpenReport "Prueba", acViewPreview
    a.CloseCurrentDatabase

    Set Db = OpenDatabase("d:\ito.mdb", True, False)
    Db.NewPassword "", "hola"
    Db.Close

Si encuentras otra solucion por favor enviamela

Por otro lado me gustaría saber tu opinion sobre una cosa, como veo
que trabajas con VB y Access supongo que te gusta utilizar más los
informes en Access que el datareport o Crystal. Hace tiempo habia
pensado que seria mejor que los informes estuvieran en el access
porque asi podemos modifcar los informes sin tener que volver a crear
un exe que se tiene que distribuir. ¿Piensas igual o no?


--- En visualbasic-esp@y..., "Tobar Martínez, Luis Tomás"
escribió:
> Utilizo el siguiente código VB 6 para imprimir un informe de Access
2000:
>
> Private Sub mnuImpresionInforme1_Click()
> Dim acc As Access.Application
> Set acc = New Access.Application
> With acc
> .OpenCurrentDatabase ("\\srv-ofimatico\Autobuses\Perfiles
> especiales\Perfilesespeciales.mdb")
> .DoCmd.OpenReport "Informe1", acViewNormal
> .CloseCurrentDatabase
> .Quit
> End With
> Set acc = Nothing
> End Sub
>
> He puesto contraseña a la BD y desearía darle la contraseña en el
código VB.
> ¿Es posible? ¿Hay algún modo de imprimir desde VB 6 un informe de
una BD
> Access 2000 dándole la contraseña en el código VB?
>
> Muchas gracias.
>
> Luis Tobar Martínez
> lttobar@a...
> Ayuntamiento de Burgos
> Burgos (España)