Views

Histats

Vitrine

VBA Access Basic - Abrindo um Banco de Dados com Segurança em Nível de Usuário - Opening a Database Secured at the User Level

Conectando um Banco de Dados com Segurança em Nível de Usuário.

Segue:

Sub Open_WithUserSecurity()
   Dim conn As ADODB.Connection
   Dim strDb As String
   Dim strSysDb As String

   On Error GoTo ErrorHandler

   strDb = CurrentProject.Path & "\Bernardess\mydb.mdb"
   strSysDb = CurrentProject.Path & "\Security.mdw"
   Set conn = New ADODB.Connection

   With conn
      .Provider = "Microsoft.Jet.OLEDB.4.0;"
      .ConnectionString = "Data Source=" & strDb & ";" & _
         "Jet OLEDB:System Database=" & strSysDb
      .Open , "Developer", "WebMaster"
   End With

   conn.Close

   Set conn = Nothing

   Exit Sub

ErrorHandler:
   MsgBox Err.Number & ": " & Err.Description

End Sub



Tags: VBA, Access, connect, SQL, database, Connecting, Server, Data Source, Opening, Secured, User Level,

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias