Olá gente tudo bem ? espero que sim,

 

estou com um probleminha aqui na empresa, se c podem me ajudar ...

há computadores com e sem Access ... os que tem Access ... estão Usando a segurança a nivel de usuario... com um arquivo *.MDW ... quando executo o programa em maquinas que não tem Access ele funciona legal .. sem problemas ...

agora quando executo nessas máquinas que Têm o Access ele retorna um erro ... fala que não tem permissão para acessar o banco de dados ...

 

Ps. não tem como alterar o esquema de segurança nesses micros q Têm ACcess .. pois é usado o Access nos mesmos ...

 

gostaria de saber se alguem pode me ajudar com isso ...

1- como eu devo fazer para o VB logar no access, sendo a segurança dessa forma ?

2- tenho que fazer alguma referencia pra esse arquivo *.MDW ?

 

Poderiam me ajudar ?

qq coisa podem mandar e-mail (pvt) sem problemas...

 

 

???????????????? ninguem ?

Olha andré eu vi algo sobre segurança no Acess no site do marcoratti, da uma procurada la q eu acho q tem o q vc precisa.

 

 

Ok

eu jah vi sim ... mais digamos q nao ajudou muita coisa ...

se alguem souber ... por favor ...

 

valew ae Tom

 

 

Veja se este exemplo corresponde às suas necessidades:

' ABRIR CONEXAO JET
Function GetJetConnection(strDBPath As String, _
    lngMode As ADODB.ConnectModeEnum, _
    Optional strDBPwd As String, _
    Optional strSysDBPath As String, _
    Optional strUserID As String, _
    Optional strUserPwd As String, _
    Optional lngcurrentineType As opgJetcurrentineType) _
    As ADODB.Connection
    Dim cnnDB As ADODB.Connection
        Set cnnDB = New ADODB.Connection
        With cnnDB
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Mode = lngMode
            .Properties("Jet OLEDB:Database Password") = strDBPwd
            .Properties("Jet OLEDB:System Database") = strSysDBPath
            .Properties("Jet OLEDB:currentine Type") = lngcurrentineType
            .Open ConnectionString:=strDBPath, _
            UserID:=strUserID, _
            Password:=strUserPwd
        End With
        Set GetJetConnection = cnnDB
  End Function

 

João Mateus

Ainda so meio novato João, agradeço sua ajuda ... mas peço mais uma ajuda... pelo que Vi nesse exemplo está usando ADO certo ? nao tem problemas se eu misturar DAO com ADO no meu projeto ? e onde eu estarei colocando essa rotina ? onde coloco os nomes de usuario e senha ? vao ser pedidos quando essa rotina entrar em execução ...

 

infelizmente ainda sobram muitas dúvidas ... se puderem me ajudar ... .. valew mesmo ...