CONEXAO VB2010 COM BANCO POSTGRESQL

DUSK 23/09/2011 21:24:08
#385157
Bom pessoal, estou tentando abandonar o passado (VB6 com BD ACCESS) e chegar mais proximo ao presente. *rs

Baixei e instalei o VB2010 e o postgre.
Agora preciso da ajuda dos amigos para fazer a conexão do VB no Banco Postgre.

Grato


=========================================================================================================================
23/09/2011 21:13:09 #385153

ALTAIR148


ARINOS

Mensagem interna


Boa noite,

Amigo dê uma olhada no link abaixo.

http://www.macoratti.net/07/11/vbn5_pg2.htm


Outra coisa é que quando abriu o tópico você escolheu [Ô]VB/VBA[Ô] e nesse caso teria que ter sido [Ô]VB.NET[Ô].

Até mais.

[Ô]Se não der certo da primeira vez, chame de versão 1.0.[Ô]

Altair Pereira
23/09/2011 21:20:53 #385156


================================================================================================================
DUSK


BAURU

Mensagem interna


Grato pela atenção Altair

Ja havia baixado e executado o projeto do macoratti.
O projeto foi feito em .NET2005 e quando executei no 2010 ele faz a conversão.
Mesmo assim deu alguns erros e naum executa a conexão.

===============================================================================================
ALTAIR148 23/09/2011 21:33:40
#385163
Quais erros?
DUSK 24/09/2011 10:13:13
#385174
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[txt-color=#007100][ô]<<< ESTA STRING DE CONEXÃO NÃO ESTAVA DANDO CERTO >>>[/txt-color]
[ô]Dim ConexaoPG As String = [Ô]Server=localhost;Port=5432;User Id=postgres;Password=[ô]kerigma[ô];Database=Agenda[Ô]

[txt-color=#007100] [ô]<<< COM ESTA APARENTEMENTE FUNCIONOU >>>[/txt-color]
Dim conexaoPG As String = [Ô]Server=127.0.0.1;Port=5432;Userid=postgres;Password=kerigma;Protocol=3;SSL=false; Pooling=true;MinPoolSize=1;MaxPoolSize=20;Encoding=UNICODE;Timeout=15;SslMode=Disable;[Ô]

Dim conn As NpgsqlConnection = Nothing

Try
[ô]Cria uma Instancia de NpgsqlConnection na variavel conn
conn = New NpgsqlConnection(ConexaoPG)

[ô]Abre a conexão
conn.Open()

[ô]Declara e atribui a instrucao SQL de consulta
Dim SQL As String = [Ô]SELECT codigo, nome, email, inclusao FROM usuarios[Ô]

[ô]Instancia o NpgsqlDataAdapter responsavel pela comunicação
[ô]é feita a leitura dos dados preenchendo o dataset
Dim da As Npgsql.NpgsqlDataAdapter = New NpgsqlDataAdapter(SQL, conn)

[ô]Instacia um DataSet
Dim ds As DataSet = New DataSet()

[txt-color=#e80000] [ô]<<< AQUI DA O ERRO 42P01: relação [Ô]usuarios[Ô] não existe >>>[/txt-color]
[ô]Preenche o DataAdapter
da.Fill(ds, [Ô]Usuarios[Ô])

[ô]Atribiu um Datasource a Grid
DataGridView1.DataSource = ds.Tables([Ô]Usuarios[Ô]).DefaultView

Catch ex As Exception
MsgBox(ex.Message)

Finally
If Not conn Is Nothing Then
If conn.State = ConnectionState.Open Then
conn.Close()
End If
End If
End Try
End Sub
ALTAIR148 24/09/2011 10:18:08
#385175
Veja se assim resolve.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        [ô]<<< ESTA STRING DE CONEXÃO NÃO ESTAVA DANDO CERTO >>>
        [ô]Dim ConexaoPG As String = [Ô]Server=localhost;Port=5432;User Id=postgres;Password=[ô]kerigma[ô];Database=Agenda[Ô]
       
       [ô]<<< COM ESTA APARENTEMENTE FUNCIONOU >>>
        Dim conexaoPG As String = [Ô]Server=127.0.0.1;Port=5432;Userid=postgres;Password=kerigma;Protocol=3;SSL=false; Pooling=true;MinPoolSize=1;MaxPoolSize=20;Encoding=UNICODE;Timeout=15;SslMode=Disable;[Ô]

        Dim conn As NpgsqlConnection = Nothing

        Try
            [ô]Cria uma Instancia de NpgsqlConnection na variavel conn
            conn = New NpgsqlConnection(ConexaoPG)

            [ô]Abre a conexão
            conn.Open()

            [ô]Declara e atribui a instrucao SQL de consulta
            Dim SQL As String = [Ô]SELECT codigo, nome, email, inclusao FROM usuarios[Ô]

            [ô]Instancia o  NpgsqlDataAdapter responsavel pela comunicação 
            [ô]é feita a leitura dos dados preenchendo o dataset 
            Dim da As Npgsql.NpgsqlDataAdapter = New NpgsqlDataAdapter(SQL, conn)

            [ô]Instacia um DataSet
            Dim ds As DataSet = New DataSet()

           [ô]<<< AQUI DA O ERRO 42P01: relação [Ô]usuarios[Ô] não existe >>>
             [ô]Preenche o DataAdapter 
            da.Fill(ds, [Ô]usuarios[Ô])

            [ô]Atribiu um Datasource a Grid
            DataGridView1.DataSource = ds.Tables([Ô]Usuarios[Ô]).DefaultView

        Catch ex As Exception
            MsgBox(ex.Message)

        Finally
            If Not conn Is Nothing Then
                If conn.State = ConnectionState.Open Then
                    conn.Close()
                End If
            End If
        End Try
    End Sub


Até mais.
DUSK 24/09/2011 14:32:24
#385182
Continua dando o mesmo erro
ALTAIR148 24/09/2011 14:39:02
#385183 Resposta escolhida
Boa tarde.

Olha se no link abaixo vc consegue a solução.

http://postgresql.1045698.n5.nabble.com/Iniciante-td2027118.html


Até mais.
DUSK 24/09/2011 15:22:59
#385184
Altair, no exemplo do macoratti o nome do banco estava [Ô]Agenda[Ô] e segunto o tuto que você me indicou, o fato de colocarmos 1 letra maiúscula ela passa a ser [Ô]case-sensitive[Ô].
Recriei o BD, a Tabela e mesmo assim continuou dando erro.

Alterei novamente a String de conexão e ae funcionou.

[ô]<<< ANTERIOR >>>
[ô]Dim ConexaoPG As String = [Ô]Server=localhost;Port=5432;User Id=postgres;Password=[ô]vbmania[ô];Database=Agenda[Ô]

[ô]<<< ALTERADA >>>
Dim ConexaoPG As String = [Ô]Server=127.0.0.1;Port=5432;Userid=postgres;Password=vbmania;Database=agenda[Ô]


MUITO OBRIGADO PELO SOCORRO.
ABRAÇO
Tópico encerrado , respostas não são mais permitidas
Voltar