Conexao POSTGRE, como fazer??


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Conexao POSTGRE, como fazer??

CarlinhosBrown

ALTO PARAÍSO DE GOIAS
GO - BRASIL

ENUNCIADA !

Postada em 23/01/2013 13:30 hs

Ola, boa tarde...

pretendo migrar do access para o postgre, gostaria de saber como alterar minhas conexões, no access faço assim:

Option Explicit

Public BancoLanc As New ADODB.Connection
Public TabProp As New ADODB.Recordset

------------------------------------------------------------------------------------------------
conectar banco:
BancoLanc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "CadContInter.mdb;Jet " & "OLEDB:Database Password=82621932;"
------------------------------------------------------------------------------------------------
conectar tabela:
TabProp.CursorLocation = adUseServer
TabProp.Open "Select * From CadProponente", BancoLanc, adOpenKeyset, adLockOptimistic, adCmdText
------------------------------------------------------------------------------------------------

e no postgre como seria??

LCRamos

GOIANIA
GO - BRASIL

ENUNCIADA !

Postada em 24/01/2013 06:43 hs

Carlinhos, eu migrei do Access para o Postgre, creia, vale a pena, não terá muita dificuldades.
Veja esta função:

Public Function abrePOSTGRE() As Boolean
    abrePOSTGRE = False
    On Error GoTo erro
        Set cn = New ADODB.Connection
        cn.CursorLocation = adUseClient
        cn.Open "PROVIDER=MSDASQL;dsn=PostgreSQL35W;uid=postgres;pwd=" & spaSS & ";database=gvision;server=" & slocalHOST & ";option=(1 + 2 + 8 + 32 + 2048 + 16384)"
        abrePOSTGRE = True
        Exit Function
erro:
        sultCAUSA = pegaERRO(Err.Number, Erl, Err.Description, Err.Source, "Módulo Funções", "Abrindo Postgre")
        Exit Function
End Function

gvision = Nome do seu Banco de Dados
PostgreSQL35W = Nome da sua conexão
spaSS = Senha do Banco de Dados
slocalHOST = IP da máquina

Isto ai usando o PSQL

O restante o que faz no Access é igual, usando o ADO.
Interativo use o pgAdmin III.

Qualquer dúvida as ordens.

vlu//

LCRamos

GOIANIA
GO - BRASIL

Postada em 24/01/2013 06:58 hs

Mais uma coisa, você pode criar o Banco e as Tabelas tudo pelo VB, e transferir os dados do Access para o PostGreSQL, com muita facilidade.

A função de criar o Banco:

Private Function CRIABANCO()
    On Error GoTo ERRO
        cnn.Open "PROVIDER=MSDASQL;dsn=PostgreSQL35W;" & "uid=postgres" & ";pwd=SENHA" & ";database=postgres" & ";server=localhost" & ";option=" & (1 + 2 + 8 + 32 + 2048 + 16384)
        cnn.Execute ("CREATE DATABASE gvision WITH ENCODING='UTF8' LC_COLLATE='Portuguese_Brazil.1252' LC_CTYPE='Portuguese_Brazil.1252' Connection LIMIT = -1 TABLESPACE=pg_default;")
        cnn.Close
        cn.Open sCONEXAO
        Exit Function
ERRO:
        Call FECHACNN
        Call ABRECN
        Exit Function
End Function
Private Function FECHACNN()
    On Error GoTo ERRO
        cnn.Close
        Exit Function
ERRO:
        Exit Function
End Function
Private Function ABRECN()
    On Error GoTo ERRO
sCONEXAO = "PROVIDER=MSDASQL;dsn=PostgreSQL35W;uid=postgres;pwd=SENHA;database=gvision;server=localhost;option=(1 + 2 + 8 + 32 + 2048 + 16384)"
        cn.Open sCONEXAO
        Exit Function
ERRO:
        Exit Function
End Function

Função para criar Tabelas:
Call TABELA("CREATE TABLE nometabela(campo serial NOT NULL PRIMARY KEY)")

Função para alterar Tabelas
Call TABELA("ALTER TABLE nometabela ADD COLUMN nomedocampo VARCHAR(6)")

Private Function TABELA(Nome As String)
    On Error GoTo ERRO:
        cn.Execute (Nome)
        Exit Function
ERRO:
    Exit Function
End Function

vlu//

CarlinhosBrown
não registrado

ENUNCIADA !

Postada em 24/01/2013 08:39 hs

legal... o access, como ja era d esperar, um dia iria me dá trabalho, e acho q esse momento ta chegando cada vez mais... corrompe, q nem corrigir e reparar consegue resolver, ja perdi umas bases d dados... acho q é a hora d migrar... rsss

vou tentar aqui, qualquer coisa eu grito vcs...

CarlinhosBrown
não registrado

ENUNCIADA !

Postada em 24/01/2013 08:48 hs

agora mesmo, to com um problema, um determinado banco, so ele... ao acessar via rede, diz:

tun time erro '-2147467259 (80004005)'
o mecanismo de banco de dados microsoft jet nao pode abrir o arquivo ..... ele ja foi aberto em modo exclusivo por outro usuario ou voce precisa de permissao para exibir seus dados.

mas ele tava funcionando, igual aos demais, ja verifiquei nas opcoes, ele nao esta em modo exclusivo, esta em mode compartilhado, nas propriedades nao esta como somente leitura, ou seja, aparentemente as configuracoes tanto do arquivo banco de dados, quanto ao codigo d sistema, ta igual aos demais... e so esse banco especifico nao abre via rede...

o pior q essa mensagem d erro, nao chega a um ponto d concerto, tem muitas coisas...

alguem tem uma dica ai...

LCRamos

GOIANIA
GO - BRASIL

Postada em 24/01/2013 17:26 hs

Carlinhos, seu Banco está preso, pode ver, que deve ter uma arquivo, com o nome do banco e extensão .LDB
se existir, delete, se não houver, desligue a máquina, aguarde 3 minutos, e tenta abrir pelo access, se não conseguir, bau, bau..., baleou, ai recupera ele pelo access2010, ou 2007, que recupera, se não conseguir amigo, só o backup pra te salvar.

vlu//

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR