Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[RESOLVIDO] Conexão com senha no BD

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

andre220
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Dom Jul 22, 2018 4:47 pm

[RESOLVIDO] Conexão com senha no BD

Mensagem por andre220 »

Caros amigos,

estou precisando da ajuda de vocês. Como faço para acessar o banco de dado com senha de acordo com a conexão abaixo?

Código: Selecionar todos

Private Sub PopulaCidade()
    Dim Conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim SQL As String
    Dim EnderecoBD As String
    
        EnderecoBD = [cBanco]
        
    Set Conn = New ADODB.Connection
    With Conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .ConnectionString = "Data Source=" & EnderecoBD & ""
        .Open
    End With

    SQL = "SELECT DISTINCT NomeProduto FROM [TblProduto]"

    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = Conn
        .Open SQL, Conn, adOpenDynamic, _
              adLockBatchOptimistic
    End With

    Do While Not rst.EOF
        If Not IsNull(rst(0).Value) Then
            lstNomeProduto.AddItem rst(0).Value
        End If
        rst.MoveNext
    Loop

    ' Fecha o conjunto de registros.
    Set rst = Nothing
    ' Fecha a conexão.
    Conn.Close

End Sub
Editado pela última vez por andre220 em Qui Ago 02, 2018 2:03 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
PRMPOKER
Consultor
Consultor
Mensagens: 206
Registrado em: Ter Dez 04, 2012 8:57 am

Re: Conexão com senha no BD

Mensagem por PRMPOKER »

Prezados, Bom dia!
Caro andre220, adicione a string que define o password no seu código:

Jet OLEDB:Database Password=MyDbPassword; 'MyDbPassword é a senha do BD Access

Testa aí e nos retorne. Caso ainda persista a dúvida, dá uma olhadinha neste link: https://www.connectionstrings.com/access/

Um abraço!

Paulinho Monteiro


andre220
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Dom Jul 22, 2018 4:47 pm

Re: [RESOLVIDO] Conexão com senha no BD

Mensagem por andre220 »

Caro,

Amigo Paulinho
Perfeito!! Tudo funcionando

Sou seu Fã de carteirinha... :D

Deus te abençoe

Abraços


Avatar do usuário
PRMPOKER
Consultor
Consultor
Mensagens: 206
Registrado em: Ter Dez 04, 2012 8:57 am

Re: [RESOLVIDO] Conexão com senha no BD

Mensagem por PRMPOKER »

Prezados, bom dia.

Caro andre220, fico feliz que tenha podido ajudar. Afinal, quando compartilhamos, multiplicamos e fazemos valer a pena o nosso conhecimento.
Não fosse pela generosidade dos muitos colegas aqui do fórum, eu não teria avançado tanto nos meus parcos conhecimentos. O mínimo que posso fazer é partilhar e ajudar outros colegas a se desenvolverem também.

Conte sempre comigo e obrigado pela confiança.

Um abraço.

Paulinho Monteiro.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


andre220
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Dom Jul 22, 2018 4:47 pm

Re: [RESOLVIDO] Conexão com senha no BD

Mensagem por andre220 »

Paulinho,

Agradeço de coração
Deus te abençoe

Abraços


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder