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

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.:.

On 4/8/06, Milhenny Jordán <milhenny(at)gmail(dot)com> wrote:
> 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.
>

De PostGre no se, de postgres (postgresql) te dire que no... es decir,
si no lo quieres instalar en la maquina del cliente instalalo en un
servidor pero lo tienes que instalar por que postgres es mas que una
libreria...

--
Atentamente,
Jaime Casanova

"What they (MySQL) lose in usability, they gain back in benchmarks, and that's
all that matters: getting the wrong answer really fast."
Randal L. Schwartz

Milhenny Jordán escribió:
> 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.

No. Para eso, mejor usa SQLite de ser posible. PostgreSQL es
cliente-servidor y no hay forma de empotrarlo. Lo mas cercano que
podrias llegar seria haciendo una instalacion silenciosa, pero entiendo
que eso es complicado de manejar en general.

--
Alvaro Herrera http://www.CommandPrompt.com/
The PostgreSQL Company - Command Prompt, Inc.