Falha de Conexao VB com PostGreSql

[charlescunha 0]

Estou com dificuldade para fazer uma conexao de um aplicativo Vb com o POstGreSQL 8.0.3 instalado em servidor windows 2000 server.Tenho o vb instalado neste servidor juntamente com SGBD do PostgreSQL 8.0.3. Pelo pgadmin III consigo conectar com o banco de dados. Entretato quando tento adicionar uma nova conexao num aplicativo VB 6.0 configurando para o driver PostGre OLE DB instalado a partir da PSQLODBC.dll versao 8.00.01.01 5/3/2005 e tento testar a conexao, surge a seguinte mensagem apos a especificacao do nome do servidor, do banco de dados, usuario e senha:Falha no teste de conexao. Motivo: erro na inicializacao do provedor. Erro nao especificado.Charles

[nossila 0]

Charles,

 

Uso para fazer a conexão com vb06 o ODBC. Veja o exemplo:

Construo quatro caixas de texto e dois botões comandos conectar e cancelar: Veja o código

 

Private Sub conectar_Click()

If TxtHost.Text = Empty Then

MsgBox "Informe o local do Banco de Dados.", vbExclamation, "Campo Obrigatório"

TxtHost.SetFocus

Exit Sub

End If

If TxtNomeUsuario.Text = Empty Then

MsgBox "Informe o Nome do Usuário do Banco de Dados.", vbExclamation, "Campo Obrigatório"

TxtNomeUsuario.SetFocus

Exit Sub

End If

If TxtPassword.Text = Empty Then

MsgBox "Informe a Senha do Usuário.", vbExclamation, "Campo Obrigatório"

TxtPassword.SetFocus

Exit Sub

End If

On Error GoTo Trata_erro

If Trim$(cmbBancoDados) = "" Then

MsgBox "Você precisa selecionar um banco de dados.", vbCritical, "Informação Inválida"

cmbBancoDados.SetFocus

Exit Sub

End If

 

Me.MousePointer = vbHourglass

 

Set gconexao = New ADODB.Connection

gconexao.ConnectionTimeout = 60

gconexao.CommandTimeout = 400

gconexao.CursorLocation = adUseClient

gconexao.Open "PROVIDER=MSDASQL;dsn=PostgreSQL;" & "uid=" & TxtNomeUsuario & ";pwd=" & TxtPassword & ";database=" & cmbBancoDados & ";server=" & TxtHost & ";option=" & (1 + 2 + 8 + 32 + 2048 + 16384)

Me.MousePointer = vbNormal

If gconexao.State = 1 Then

SaveSetting App.Title, "Settings", "txtHost", TxtHost

SaveSetting App.Title, "Settings", "txtNomeUsuario", TxtNomeUsuario

SaveSetting App.Title, "Settings", "cmbBancoDados", cmbBancoDados

MDIForm_Principal.Show

form_imagem.Show

form_login.Visible = FalseElse

MsgBox "Não foi possível establer a conexão. Verifque as configurações e tente novamente.", vbCritical, "erro durate a conexão..."

End If

Exit Sub

Trata_erro:

MsgBox Err.Number & " " & Err.Description, vbInformation, "Erro durante a conexão..."

TxtPassword.Text = ""

TxtNomeUsuario.SetFocus

End Sub

 

Mas se você estiver dúvia passe o e-mail para : alisson@arq.ufmg.br

 

 

Um abraço