VBA Access Basic - Conectando um Banco de Dados com Nome e Usuário - Connect to database with user name and password

| Blog Office VBA | Blog Excel | Blog Access |

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

Segue:

Sub addUser() 

   Dim myConnection As ADOX.Catalog

   Dim newUser As ADOX.User

   Dim userName As String

   Dim newPassword As String

   

   Set myConnection = New ADOX.Catalog

   myConnection.ActiveConnection = _

        "Provider = Microsoft.Jet.OLEDB.4.0;" & _

        "Data Source=C:\r.mdb;" & _

        "Jet OLEDB:System database=C:\Bernardess\r.mdw;" & _

        "User id=john;Password=;"

   Set newUser = New ADOX.User

   newUser.Name = userName

   myConnection.Users.Append newUser

   myConnection.Users(newUser.Name).changePassword "", newPassword

End Sub

Tags: VBA, Access, connect, SQL, database, Connecting, Server, Data Source, ADOX, Opening, Secured, User Level, Conectando, Banco de Dados, Nome, Usuário, user, name, password

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

| Blog Office VBA | Blog Excel | Blog Access |

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,