Jump to content
Sign in to follow this  
big_dady

Erro Ole Db - Ligacao a Hostserver

Recommended Posts

big_dady

 Public Sub abrebd()
        'construir a string de ligação
        connectstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Trim(host) & ";Initial Catalog=Utilizador;Persist Security Info=" & Trim(protegido) & ";User ID=" & Trim(user) & ";Password=" & Trim(password) & ""
        'abrir a ligação para a bd
        ligacaobd = New OleDb.OleDbConnection(connectstr)
        ligacaobd.Open()
    End Sub

Desenvolvi a seguinte funçao para me ligar a um hostserver.

mas retorna um erro

"A operaçao de multiplos passos OLE DB gerou erros. Verifique cada valor do estado OLE DB, se disponivel. Não foi efectuado nenhum trabalho."

isto ocorre porque nesta funçao coloquei um catch.

Try
            abrebd()
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try


Yours, Bid_dady

Share this post


Link to post
Share on other sites
Caça

Essa connectionstring não é valida para Access...

isto


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
big_dady

Tantas hipotese, qual delas é ? ...

O que eu tenho é um hostserver que para aceder ao endereço tenho uma password e um username.


Yours, Bid_dady

Share this post


Link to post
Share on other sites
Caça

Tenta esta

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccess2007file.accdb;Jet OLEDB:Database Password=MyDbPassword;


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
big_dady

Não funciona.

Public Sub abrebd()
        'construir a string de ligação
        connectstr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Trim(host) & ";Jet OLEDB:Database Password=MyDbPassword;"
        'abrir a ligação para a bd
        ligacaobd = New OleDb.OleDbConnection(connectstr)
        ligacaobd.Open()
    End Sub

Mensagem de Erro: " Não é um nome de ficheiro válido."


Yours, Bid_dady

Share this post


Link to post
Share on other sites
Caça

O que é que está na variável host sem o Trim?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
big_dady

Ok, vou explicar

criei as seguintes variaveis configuraveis através d um mini formulario, que sao as seguintes

Host - possui o Hostserver por exemplo - hostingfree555.hostingfree.com

user - username

password - password :D

protegido - true ou false :)


Yours, Bid_dady

Share this post


Link to post
Share on other sites
Caça

Ok, mas tens de indicar o caminho para a BD, o endereço não chega.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
big_dady

Humm ... e como é que sei esse caminho ?

So tenho o endereço é a unica coisa que o hostserv me da :..


Yours, Bid_dady

Share this post


Link to post
Share on other sites
Caça

Tens a certeza que estás a usar Access?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Estão estavas-me a enganar...

Continua com o que tinhas no inicio mas troca OleDb para SqlClient

EDIT: E usa esta ConnectionString

Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;

Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
big_dady

Public Sub abrebd()
        'construir a string de ligação
        connectstr = "Data Source=" & Trim(host) & ";Initial Catalog=" & Trim(bd) & ";User ID=" & Trim(user) & ";Password=" & Trim(password) & ""

        'abrir a ligação para a bd
        ligacaobd = New OleDb.OleDbConnection(connectstr)
        ligacaobd.Open()
    End Sub

Coloquei aquilo e retornou o seguinte erro.

"An OLEDB Provider was not specified in the ConnectionString. An exemple would be, 'Provider=SQLOLEDBD'"


Yours, Bid_dady

Share this post


Link to post
Share on other sites
Caça

(...) Continua com o que tinhas no inicio mas troca OleDb para SqlClient(...)

Não leste a minha resposta?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
big_dady

pensava que era para aplicar aquele codigo,

li mas nao li entendes ? lool

Coloque o seguinte

Public Sub abrebd()
        'construir a string de ligação

        connectstr = "Provider=SqlClient;Data Source=" & Trim(host) & ";Initial Catalog=" & Trim(bd) & ";User ID=" & Trim(user) & ";Password=" & Trim(password) & ""

        'abrir a ligação para a bd
        ligacaobd = New OleDb.OleDbConnection(connectstr)
        ligacaobd.Open()
    End Sub

E deu o seguinte erro.

The SqlClient Provider is not registered on the local machine.


Yours, Bid_dady

Share this post


Link to post
Share on other sites
Caça

Tenta assim

Public Sub abrebd()
        'construir a string de ligação
        connectstr = "Data Source=" & Trim(host) & ";Initial Catalog=" & Trim(bd) & ";User ID=" & Trim(user) & ";Password=" & Trim(password) & ""

        'abrir a ligação para a bd
        ligacaobd = New SqlClient.SqlConnection(connectstr)
        ligacaobd.Open()
End Sub

Não te esqueças a definição da variável ligacaobd  para SqlClient.SqlConnection


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Actualmente deves ter isto, certo?

Dim ligacaobd As OleDb.OleDbConnection

Agora troca para

Dim ligacaobd As SqlClient.SqlConnection


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
Caça

Com este código?

Public Sub abrebd()
        'construir a string de ligação
        connectstr = "Data Source=" & Trim(host) & ";Initial Catalog=" & Trim(bd) & ";User ID=" & Trim(user) & ";Password=" & Trim(password) & ""

        'abrir a ligação para a bd
        ligacaobd = New SqlClient.SqlConnection(connectstr)
        ligacaobd.Open()
End Sub


Pedro Martins

Não respondo a duvidas por PM

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
Sign in to follow this  

×
×
  • 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.