Re: AYUDA CON POSTGRESQL PARA VISUAL BASIC 6.0

Hola.

1.- Debes bajar e instalar en tu pc el odbc para postgresql, que lo
bajas desde el sitio postgresql.
2.- lo configuras desde el administrador de odbc (panel de control)
3.- ejemplos:

Funcion que busca un dato en la bd.

Public Function busca_ubicacion(emp, sed, ubi)
On Error Resume Next
stSQL = "select nb_ubicacion from samaubi where co_empresa =" & UserCia
stSQL = stSQL & " and co_filial =" & UserSede
stSQL = stSQL & " and co_ubicacion =" & Trim(ubi)
Call AbreRS(1, 1, RsGenerico3, stSQL)
If Not IsNull(RsGenerico3!nb_ubicacion) Then
busca_ubicacion = RsGenerico3!nb_ubicacion
End If
End Function

Funcion que crea y abre el recordset.

Public Function AbreRS(tipo As Integer, Modo As Integer, RS As
ADODB.Recordset, Qry As String) As Recordset
Dim Cursor As String
Dim Bloqueo As String

Select Case tipo
Case 1
Cursor = adOpenForwardOnly
Case 2
Cursor = adOpenKeyset
Case 3
Cursor = adOpenDynamic
Case 4
Cursor = adOpenStatic
End Select

Select Case Modo
Case 1
Bloqueo = adLockReadOnly
Case 2
Bloqueo = adLockPessimistic
Case 3
Bloqueo = adLockOptimistic
Case 4
Bloqueo = adLockBatchOptimistic
End Select

Set RS = New ADODB.Recordset
RS.Open Qry, strCn, Cursor, Bloqueo
End Function

Espero te sirvan

El 5/05/06, juanudo(at)galeon(dot)com<juanudo(at)galeon(dot)com> escribió:
> Atentamente, Juan Mosqueda.
> Constructor de Exitos.
> Te alcanzan tus ingresos? te invito a
> desarrollar tu propio negocio. 058-0414-0932538
> Linux Counter #145635
>
>
>
> --- Mensaje original ---
> -----------------------------------------------------------------------------------
> Di adiós a los virus y a los pop-ups:
> http://barra.hispavista.com/hispavista/cargar.html
> Correo seguro con tecnología Panda Software.
> -----------------------------------------------------------------------------------
>
>
>
> ---------- Mensaje reenviado ----------
> From: <juanudo(at)galeon(dot)com>
> To: juanudo(at)galeon(dot)com
> Date: Fri, 05 May 2006 15:09:59 +0200
> Subject: FWD:Re: [pgsql-es-ayuda] AYUDA CON POSTGRESQL PARA VISUAL BASIC 6.0
>
>
>
>
> hola amigos gracias por las ayudas con respecto a la coneccion ahora si
> corre el POSTGRESQL a la perfeccion.
>
> Pero ahora quiciera que me ayuden con ejemplos en codigos de como llamar un
> STORE PROCEDURE en postgresql tanto como pasarle parametros y devolviendome
> como por ejemplos:
>
> -Ya tengo los stores procedures en POSTGRESQL pero no se como llamarlos en
> VISUAL BASIC via codigo
>
> -los cuales tengo uno que genera un nuevo producto P00001 y quiero mostrarlo
> en una caja de texto.
>
> - y los demas solo son para grabar y eliminar,actualizar la tabla productos.
>
> Espero sus ayudas ya que hay muchos amigos que usan POSTGRESQL con VISUAL
> BASIC.
>
>
>
> ---------------------------(fin del
> mensaje)---------------------------
> TIP 10: visita nuestro canal de IRC #postgresql-es en irc.freenode.net
>
>
>

--
cordialmente,

Ing. Mario Soto Cordones