CONEXAO COM O BANCO DE DADOS ACCESS

CHARLESTON10 24/10/2011 22:12:26
#387635
Pessoal, eu estou migrando de vb6 para vb10
Tenho grande facilidade no uso, estou criando um projeto com banco de dados.. apenas para teste;

Porém aconteceu um erro que não sei onde está o problema.

Criei um modulo e em um botao eu chamo a conexao do banco de dados...

  Imports System.Data.OleDb

Module mdlConexao

    Public Banco As New OleDbConnection [ô]Banco de dados
    Public cmBanco As New OleDbCommand [ô]Comando do Banco de dados

    [ô] Procedimento para conexão com o banco de dados.

    Public Sub ConectarBD()
        Dim Caminho As String
        Dim Usuario As String
        Dim Senha As String
        Dim Provedor As String
        Dim sSQLConecta As String

        Usuario = [Ô]Admin[Ô]
        Senha = [Ô][Ô]
        Caminho = [Ô]G:\Informatica\Meus Projetos\Teste    este\bancoteste.mdb[Ô]
        Provedor = [Ô]Provider=Microsoft.Jet.OLEDB.4.0[Ô]
        sSQLConecta = ([Ô][Ô] & Provedor & [Ô];[Ô] & _
                                  [Ô]Data Source=[Ô] & Caminho & [Ô];[Ô] & _
                                  [Ô]User ID=[Ô] & Usuario & [Ô];[Ô] & _
                                  [Ô]Password=[Ô] & Senha & [Ô][Ô])

        Banco.Close()
        Banco.ConnectionString = sSQLConecta
        Banco.Open()
        cmBanco.Connection = Banco
    End Sub

    [ô] Procedimento para desconectar do  banco de dados.

    Public Sub DesconectarBD()
        Banco.Close()
    End Sub

    [ô] Procedimento para  conectar com o banco de dados.

    Public Sub ConectarCGA()

        Try
            ConectarBD()
            MsgBox([Ô]Conexão realizada com sucesso!!![Ô])
        Catch ex As Exception
            MsgBox([Ô]Não foi possível conectar o banco de dados [Ô])
            DesconectarBD()
        End Try

        [ô]DesconectarBD()
    End Sub


End Module


o erro é que da falha na conexao do banco de dados, mas está tudo certo, oq será q é?

E nessa parte do try catch

Try
            ConectarBD()
            MsgBox([Ô]Conexão realizada com sucesso!!![Ô])
        Catch ex As Exception
            MsgBox([Ô]Não foi possível conectar o banco de dados [Ô])
            DesconectarBD()
        End Try


tem como eu fazer com q a mensagem do erro apareceça junto?

programo em java eu apenas faço isso

 MsgBox([Ô]Não foi possível conectar o banco de dados [Ô] & ex)


Concateno..

enfim, ql será q é o erro da conexao com o banco?
PROFESSOR 24/10/2011 22:21:52
#387637
Altere estas linhas

        sSQLConecta = ([Ô][Ô] & Provedor & [Ô];[Ô] & _
                                  [Ô]Data Source=[Ô] & Caminho & [Ô];[Ô] & _
                                  [Ô]User ID=[Ô] & Usuario & [Ô];[Ô] & _
                                  [Ô]Password=[Ô] & Senha & [Ô][Ô])


Por estas

        sSQLConecta = ([Ô][Ô] & Provedor & [Ô];[Ô] & _
                                  [Ô]Data Source=[Ô] & Caminho & [Ô];[Ô] & _
                                  [Ô]User ID=Admin;[Ô] & _
                                  [Ô]Password=;[Ô])


Tente novamente e poste os resultados.
Tópico encerrado , respostas não são mais permitidas
Voltar