Re: AYUDA CON ODBC DE POSTGRESQL PARA VISUAL BASIC 6.0

Hola

Espero que este ejemplo te ayude, bueno almenos es asi como yo trabajo y hago que funcionen afortunadamente sin problemas mis sistemas con VB y PostgreSql


Option Explicit

Dim AdoConexionDB As ADODB.Connection



Private Sub Class_Initialize()

'ABRIMOS LA BASE DE DATOS
Set AdoConexionDB = New ADODB.Connection
AdoConexionDB.Open G_Conexion

End Sub

En algun momento debes asignar la cadena d conexion antes de abrir la base de datos y ademas create en el DSN Sistema en odbc ODBC para tu base de datos con la cuenta usuario que tenga los privilegios nesesarios y la direccion de tu servidor y si esta en la misma maquina solo coloca localhost

'ESTABLECEMOS LA CADENA DE CONEXION
G_Conexion = "DRIVER=PostGreSQL; Server=192.168.1.2;Port=5432;User Id=miCuentaUsr;Password=miContraseña;Database=miBaseDatos;"

Si tienes alguna duda, solo debes escribir a esta lista y siempre habra una respuesta a para ello

Suerte

Grover Navia

> ruben avila galindo wrote:

> hola amigo grabiel te comento primero quiero conectarme con
postgresql
> bajo windows primero y despues pasar a la segunda fase que es con
linux.
>
> -tengo Windows XP y POSTGRESQL 8.0 bajo windows. me pasaron un codigo
> pero no me funciona tambien instala el ODBC de POSTGRESQl de la
pagina
> que me distes para visual.
>
> -Luego empeze a codificar el codigo y hice este codigo:
>
> -me Sale este maldito error:
>
> - use las dos formas de coneccion pero igual espero que me ayudes con
> ejemplos porque hasta ahora no puedo conectarme espero ayudas amigos.
>
> *[Microsoft][Administrador de controladores ODBC]No se encuentra el
> nombre de
> origen de datos y no se especefico contralador prederteminado.*
>
> Public Sub seteobd()
> On Error GoTo errDescripcion
>
> ' Conectar via PostgreSQL ODBC
> 'strCn = "PROVIDER=MSDASQL ; DATA SOURCE=" & gblFuenteDatos & " ;
USER
> ID="" & Trim(gblUsuario) & " ;PASSWORD=" & Trim(gblPasswordBaseDatos)
> & " ;"
>
> strCn = "DRIVER={PostgreSQL};DATABASE=" & bdprueba & ";SERVER=" &
> localhost & ";PORT=" & 5432 & ";UID=" & postgres & ";PWD=" & postgres
> & ";"
>
> Set BaseRemota = New ADODB.Connection
> With BaseRemota
> .ConnectionString = strCn
> .ConnectionTimeout = 30000
> .CommandTimeout = 30000
> .CursorLocation = adUseClient
> .Properties("PROMPT") = adPromptNever
> .Open
> End With
> boBaseAbierta = True
> Exit Sub
>
> errDescripcion:
> boBaseAbierta = False
> MsgBox Err.Description
>
> End Sub
>

---------------------------------

LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com