USUÁRIO:
SENHA:
SALVAR LOGIN ?
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
CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados.
Powered by
HostingZone -
A melhor hospedagem para seu site