Re: AYUDA CON ODBC DE POSTGRESQL PARA VISUAL BASIC 6.0

Buenos dias,

quisiera hacer una pregunta, es posible embeber la biblioteca del servidor
PostGre en nuestras aplicaciones, para que así PostGre no tenga que ser
instalado en la computadora del usuario final.

El día 7/04/06, Grover Navia <grover8navia(at)yahoo(dot)es> escribió:
>
> 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<http://us.rd.yahoo.com/mail/es/tagline/messenger/*http://es.voice.yahoo.com/>
>
>

--
Milhenny Jordán
Cel. 0416-1272798
Usuario de GNU/Linux .:.408685.:.