password in access files

[hgarcia]

Does somebody knows how to put a password in this file type via fivewin and xharbour?
I can open read write and close the access table but i don't know how put a password to encrypt it

Thank for any help

[Enrico Maria Giordano]

Code: Select all  Expand view

FUNCTION MAIN()

    LOCAL oJro := CREATEOBJECT( "JRO.JetEngine" )

    LOCAL cConStr1 := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mymdb.mdb"
    LOCAL cConStr2 := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=newmdb.mdb;Jet OLEDB:Database Password=newpwd"

    oJro:CompactDatabase( cConStr1, cConStr2 )

    RETURN NIL

EMG

[hgarcia]

sorry but I tried your solution and I have an ole error in compacdatabase instruction called by tole the name of the error is "error jro.jetengine/16389 sure I'm making something wrong

[Enrico Maria Giordano]

I don't know. My sample works fine here.

EMG