[Resolvido] Banco de Dados

[gabrieldb 5]

Eu to começando a desenvolver um sistema pra empresa onde trablho em VB 6.0 com banco de dados em PostgreSQL só que assim eu criei todas as tabelas que vou usar no sistema mais não sei como faço pra ligar elas com o VB alguem pode me ajudar ?

[Gvip 0]

Falae Gabriel,

 

Da uma olhada nisso e vê se ajuda:

 

http://forum.imasters.com.br/index.php?showtopic=147478

 

vlw!

[gabrieldb 5]

ohh valeu

deu uma clareada sim mais não consegui ainda...

flw

[gabrieldb 5]

ohh valeu

mais não consegui ainda...

flw

[Claudio Neto 3]

Oi Gabriel.

 

Mas o que acontece que não deu certo? Deu algum erro?

 

Pode postar como ficou seu código?

[gabrieldb 5]

Global Conex As New ADODB.Connection 

Global AccessConnect As String

 

Public Sub Conexao()

AccessConnect = "driver={PostgreSQL};server=localhost;database=Sistema Deluca;uid=postgres;pwd=xxxxxx;"

Conex.ConnectionString = AccessConnect

Conex.Open AtivConex.ActiveConnection = Conex

End Sub

ele dá erro nesse código...

[scorpio 7]

Coloque o erro para facilitar.

 

Não tenho certeza, mas acho que o espaço na string de conexao não é permitido. Coloque entre aspas simples.

[gabrieldb 5]

Global Conex As New ADODB.Connection 

Global AccessConnect As String

 

Public Sub Conexao()

AccessConnect = "driver={PostgreSQL};server=localhost;database=Sistema Deluca;uid=postgres;pwd=xxxxxx;"

Conex.ConnectionString = AccessConnect

Conex.Open AtivConex.ActiveConnection = Conex

End Sub

[scorpio 7]

grabrieldb,

 

Qual mensagem de erro que aparece ?

 

 

Tente assim:

Global Conex As New ADODB.Connection 
Global AccessConnect As String 

Public Sub Conexao() 
AccessConnect = "driver={PostgreSQL};server=localhost;database='Sistema Deluca';uid=postgres;pwd=xxxxxx;" 
Conex.ConnectionString = AccessConnect 
Conex.Open 
AtivConex.ActiveConnection = Conex 
End Sub

[gabrieldb 5]

o erro que apareceé esse aki:

 

Run-time error'424':

 

Object required

 

 

e aponta pra esse

Public Sub Conexao() 
AccessConnect = "driver={PostgreSQL};server=localhost;database='Sistema Deluca';uid=postgres;pwd=xxxxxx;" 
[color="#FF0000"][b]Conex.ConnectionString = AccessConnect [/b][/color]
Conex.Open 
AtivConex.ActiveConnection = Conex 
End Sub

será que eu não to sabendo onde colocar esse código rsrs?

[scorpio 7]

Testei o código aqui e funcionou.

 

Qual versão do ADODB você referenciou?

[gabrieldb 5]

Eu nem sei sobre ADODB

to quase desistindo já disso mais o f*** que é um sistema pra empresa....ai fode tudo

[scorpio 7]

Entra no menu: Project>References

Procure por Microsoft ActiveX Data Object 2.8

 

E tenta rodar de novo.

[gabrieldb 5]

Nada acho que eu estou sendo o erro da história...rsrs

[Claudio Neto 3]

Você fez o que o Scorpio disse?

 

Achou a biblioteca que ele falou, marcou a caixinha do lado e deu ok?

 

Mas acho que não seja isso. Se fosse o erro ocorreria na hora de ler a declaração da variável.

 

Tenta usar desse jeito, veja se muda alguma coisa:

 

AccessConnect = PROVIDER=MSDASQL.1; DRIVER={PostgreSQL UNICODE}; DATABASE=Sistema Deluca; SERVER=localhost; UID=postgres; PWD=xxxxxx; ByteaAsLongVarBinary=1;

E outra coisa, você declarou sua variável de conexão como global. Onde fez essa declaração e onde está rodando essa sub?

[gabrieldb 5]

Eu criei um módulo e colokei o codigo assim:

Global Conex As New ADODB.Connection
Global AccessConnect As String

Public Sub conexao()
AccessConnect = PROVIDER=MSDASQL.1; DRIVER={PostgreSQL UNICODE}; DATABASE=Sistema Deluca; SERVER=localhost; UID=postgres; PWD=deluca; ByteaAsLongVarBinary=1;"
Conex.ConnectionString = AccessConnect
Conex.Open AtivConex.ActiveConnection = Conex
End Sub

fica desse jeito meu código mais daí pra frente ..

[scorpio 7]

Eu criei um módulo e colokei o codigo assim:

Global Conex As New ADODB.Connection
Global AccessConnect As String

Public Sub conexao()
AccessConnect = PROVIDER=MSDASQL.1; DRIVER={PostgreSQL UNICODE}; DATABASE=Sistema Deluca; SERVER=localhost; UID=postgres; PWD=deluca; ByteaAsLongVarBinary=1;"
Conex.ConnectionString = AccessConnect
Conex.Open AtivConex.ActiveConnection = Conex
End Sub

fica desse jeito meu código mais daí pra frente ..

Deu certo ?

[gabrieldb 5]

Global Conex As New ADODB.Connection
Global AccessConnect As String

Public Sub conexao()
[color="#FF0000"]AccessConnect = PROVIDER=MSDataShape;PROVIDER=MSDASQL;DRIVER={PostgreSQL UNICODE}; DATABASE=Sistema Deluca; SERVER=localhost; UID=postgres; PWD=deluca; ByteaAsLongVarBinary=1;"[/color]
Conex.ConnectionString = AccessConnect
Conex.Open AtivConex.ActiveConnection = Conex
End Sub

Porque essa parte ae fica em vermelho ?

[Claudio Neto 3]

Porque precisa colocar esse string toda entre aspas:

 

AccessConnect = "PROVIDER=MSDataShape;PROVIDER=MSDASQL;DRIVER={PostgreSQL UNICODE}; DATABASE=Sistema Deluca; SERVER=localhost; UID=postgres; PWD=deluca; ByteaAsLongVarBinary=1;"

[gabrieldb 5]

Blza coloquei tudo isso ai no módulo...como faço pra ligar o módulo com as colunas do formulário ?

cara tá f***