ACESSAR BD ACCESS COM SENHA
Estou acessando dados de um BD Access com o código abaixo. Finciona perfeitamenrte, porém quando coloco senha no BD e tento modificar o código não consigo fazer funcionar. Alguém saberia me informar quais alterações devo fazer?
Public Class Form1
#Region [Ô] Declaration [Ô]
Dim nRg As Integer = 0
Dim strDir As String = Application.StartupPath
Const pPROVIDER As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô]
Dim pDataSource As String = [Ô]Data Source=[Ô] & Application.StartupPath & [Ô]\Teste.Mdb[Ô]
Dim mConn As OleDb.OleDbConnection
Dim mDataAdapter As New OleDb.OleDbDataAdapter()
Dim mCommandBuilder As OleDb.OleDbCommandBuilder
Dim mDataSet As New System.Data.DataSet()
Dim pDataRow As DataRow
Dim strSql As String
#End Region
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strSql = [Ô]SELECT * FROM Clientes[Ô]
mConn = New OleDb.OleDbConnection(pPROVIDER & pDataSource)
mDataAdapter.SelectCommand = New OleDb.OleDbCommand(strSql, mConn)
mCommandBuilder = New OleDb.OleDbCommandBuilder(mDataAdapter)
mDataSet.Clear()
Try
mDataAdapter.Fill(mDataSet)
Catch Eror As Exception
MsgBox(Eror.Message, MsgBoxStyle.Exclamation, [Ô]Erro ao tentar abrir a base de dados.[Ô])
mConn.Close()
Exit Sub
End Try
If mDataSet.Tables(0).Rows.Count > 0 Then
Dim pDataRow As DataRow
Do While nRg <= mDataSet.Tables(0).Rows.Count - 1
pDataRow = mDataSet.Tables(0).Rows(nRg)
MsgBox([Ô]Cliente: [Ô] & pDataRow!Nome & [Ô] [Ô] & pDataRow!Sobrenome & Chr(13) & [Ô]Endereço: [Ô] & pDataRow!Endereço & Chr(13) & [Ô]Cidade: [Ô] & pDataRow!Cidade & [Ô] Estado: [Ô] & pDataRow!Estado & Chr(13) & [Ô]CEP: [Ô] & pDataRow!CEP & Chr(13) & [Ô]Telefone: [Ô] & pDataRow!NúmeroTelefone & Chr(13) & [Ô]Endereço: [Ô] & pDataRow!EndereçodeEmail)
nRg += 1
Loop
End If
End
End Sub
End Class
Public Class Form1
#Region [Ô] Declaration [Ô]
Dim nRg As Integer = 0
Dim strDir As String = Application.StartupPath
Const pPROVIDER As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô]
Dim pDataSource As String = [Ô]Data Source=[Ô] & Application.StartupPath & [Ô]\Teste.Mdb[Ô]
Dim mConn As OleDb.OleDbConnection
Dim mDataAdapter As New OleDb.OleDbDataAdapter()
Dim mCommandBuilder As OleDb.OleDbCommandBuilder
Dim mDataSet As New System.Data.DataSet()
Dim pDataRow As DataRow
Dim strSql As String
#End Region
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strSql = [Ô]SELECT * FROM Clientes[Ô]
mConn = New OleDb.OleDbConnection(pPROVIDER & pDataSource)
mDataAdapter.SelectCommand = New OleDb.OleDbCommand(strSql, mConn)
mCommandBuilder = New OleDb.OleDbCommandBuilder(mDataAdapter)
mDataSet.Clear()
Try
mDataAdapter.Fill(mDataSet)
Catch Eror As Exception
MsgBox(Eror.Message, MsgBoxStyle.Exclamation, [Ô]Erro ao tentar abrir a base de dados.[Ô])
mConn.Close()
Exit Sub
End Try
If mDataSet.Tables(0).Rows.Count > 0 Then
Dim pDataRow As DataRow
Do While nRg <= mDataSet.Tables(0).Rows.Count - 1
pDataRow = mDataSet.Tables(0).Rows(nRg)
MsgBox([Ô]Cliente: [Ô] & pDataRow!Nome & [Ô] [Ô] & pDataRow!Sobrenome & Chr(13) & [Ô]Endereço: [Ô] & pDataRow!Endereço & Chr(13) & [Ô]Cidade: [Ô] & pDataRow!Cidade & [Ô] Estado: [Ô] & pDataRow!Estado & Chr(13) & [Ô]CEP: [Ô] & pDataRow!CEP & Chr(13) & [Ô]Telefone: [Ô] & pDataRow!NúmeroTelefone & Chr(13) & [Ô]Endereço: [Ô] & pDataRow!EndereçodeEmail)
nRg += 1
Loop
End If
End
End Sub
End Class
nenhuma alteração porem sua string de conexão tem que ter a senha para se conectar. utilize a string abaixo basta colocar a senha que você coloco no bd
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;
Dessa forma
varPath = Application.StartupPath & [Ô]\bd\CAMINHO[Ô]
Dim sConnString As String = _
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & varPath & [Ô]banco.mdb;[Ô] & _
[Ô]Jet OLEDB:Database Password=123[Ô]
conexao = New OleDb.OleDbConnection(sConnString)
conexao.Open()
varPath = Application.StartupPath & [Ô]\bd\CAMINHO[Ô]
Dim sConnString As String = _
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & varPath & [Ô]banco.mdb;[Ô] & _
[Ô]Jet OLEDB:Database Password=123[Ô]
conexao = New OleDb.OleDbConnection(sConnString)
conexao.Open()
JWCELYO,
não deu certo, pois recebo a informação de que o banco já está aberto em modo exclusivo por outro usuário.
ALEXPASSOS,
valeu! Fiz a alteração e consegui acessar os dados normalmente.
Agradeço pela ajuda.
não deu certo, pois recebo a informação de que o banco já está aberto em modo exclusivo por outro usuário.
ALEXPASSOS,
valeu! Fiz a alteração e consegui acessar os dados normalmente.
Agradeço pela ajuda.
Tópico encerrado , respostas não são mais permitidas