Jump to content
gelleg

Ligação a BD ACCESS 2010

Recommended Posts

gelleg

Estou a criar um projeto em VB 2012 em que pretendo criar uma ligação à base de dados (access 2010), mas sempre que corro a aplicação e quando carrego no botão guardar ele da-me um erro no provider com o seguinte código:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim nome As String
       Dim con As New SqlConnection()
       Try
           con.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source = C:\Users\Joel\Osmeusdocumentos\Visual Studio 2012\Projects\PAP\PAP\bin\Debug\bdloja.accdb"
           con.Open()
           nome = InputBox("Insira um Nome para o Ficheiro!", "Nome do Ficheiro", "")
           Editor_TextoTableAdapter.Insert(nome, TextBox1.Text)
           con.Close()
           MsgBox("Os seus dados foram guardados com êxito!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Informação")
           TextBox1.Text = ""
       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "#Erro#")
       End Try
   End Sub

Sem_T_tulo_2.jpg

Depois a BD está com símbolo desconectada!!

Sem_T_tulo.jpg

Share this post


Link to post
Share on other sites
Nelson Sousa

Olá,

Experimente retirar os espaços em branco:

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & str_Local_Base


Um Abraço,

Nelson Sousa

Share this post


Link to post
Share on other sites
acao

boas

ou se pretender com pass, a mim assim funciona bem.

conexao = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\BaseDados\GestaoChamadasTelefonicas.accdb;Jet OLEDB:Database Password= " & vCodDB & ";")

Edited by acao

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.