ACESSAR BANCO ACESS EM OUTRA MAQUINA

Citação:

vb.net deixou de lado o uso de arquivo INI, ainda pode ser usado, mas em propriedades do projeto agora existem as Settings q fazem esse serviço de forma bem mais simples....

Citação:

muito cuidado qnd passa a ter multi acesso ao access.....

  
    Private Sub frmBancoDados_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        txtServidor.Text = My.Settings.SERVER
        txtBD.Text = My.Settings.DATABASE
        txtUsuarioBD.Text = My.Settings.USER
        Dim wrapper As New clsBDSeguranca()
        Dim plainText As String = wrapper.DecryptData(My.Settings.PASSWORD)
        txtSenhaBD.Text = plainText
    End Sub

    Private Sub btnSalvar_Click(sender As System.Object, e As System.EventArgs) Handles btnSalvar.Click
        My.Settings.Server = txtServidor.Text
        My.Settings.DATABASE = txtBD.Text
        My.Settings.USER = txtUsuarioBD.Text
        Dim wrapper As New clsBDSeguranca()
        Dim cipherText As String = wrapper.EncryptData(txtSenhaBD.Text)
        My.Settings.PASSWORD = cipherText
        My.Settings.Save()
        MessageBox.Show([Ô]Configurações atualizadas[Ô] & vbCrLf & [Ô]O sistema será reiniciado[Ô])
        Shell(Application.StartupPath & [Ô]\seibo.exe[Ô])
        End
    End Sub
 

  
    Dim plainText As String = wrapper.DecryptData(My.Settings.PASSWORD)

    Public Function BuscaString()
        Dim ConnectionString As String
        ConnectionString = [Ô]Server=[Ô] & My.Settings.SERVER & [Ô];User id=[Ô] & My.Settings.USER & [Ô];Password=[Ô] & plainText & [Ô];database=[Ô] & My.Settings.DATABASE
        Return ConnectionString
    End Function
 

Citação:

nilson eu uso a dica q dei e altero a qq momento, so uma tela de configuração no programa e tudo esta resolvido.....
leitura