Re: AYUDA CON ODBC DE POSTGRESQL PARA VISUAL BASIC 6.0

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
>
>
>
>
A ver si el mini-proyecto para ADODC que adjunto te ayuda...
Base de datos: TESTVB6
Usuario: usuario
passwd: usuario
Servidor: localhost
ODBC: ODBCTESTVB6

Toni