Skip site navigation (1) Skip section navigation (2)

Re: Como conectar Visual basic con postgresql8

From: "Fernando Javier Luyo Zegarra" <fluyoz(at)hotmail(dot)com>
To: <pgsql-es-ayuda(at)postgresql(dot)org>, <new_world33(at)yahoo(dot)com(dot)mx>
Subject: Re: Como conectar Visual basic con postgresql8
Date: 2005-04-12 13:31:39
Message-ID: BAY18-DAV14A45FA607D89030EC25D9DC330@phx.gbl (view raw or flat)
Thread:
Lists: pgsql-es-ayuda
Hola Erik

Con esta función VBA de Autocad logre conectarme :
 
Public Function ConexionPOSTGRESQL_dsn() As ADODB.Connection
'Conexion al PostGresSQL via dsn de sistema
    Dim strCn As String, cN As ADODB.Connection
    On Error GoTo Fin
    Set cN = New ADODB.Connection
    strCn = "dsn=PostgreSQL"
    cN.ConnectionString = strCn
    cN.Open
    Set ConexionPOSTGRESQL_dsn = cN
Fin:
    If Err.Number <> 0 Then
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
End Function
 
'ojo el DSN lo he creado en el grupo de sistema (inicio/panel de
control/Herramientas administrativas/Orígenes de datos (ODBC)) 
 

sub LeeGEODB
Dim cN As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim vl_coor, sl_Geom As Variant
Dim sl_condenadas, sl_ini, sl_dato As String
Dim il_total As Integer
Set cN = ConexionPOSTGRESQL_dsn
sl_txt = "select * from PERU"
rs.Open sl_txt, cN, adOpenStatic, adLockReadOnly
il_total = rs.RecordCount
If il_total > 0 Then
    For il_cont = 1 To rs.RecordCount
        sl_Geom = Trim(rs.Fields(5)) 'leyendo la Geometry
        dibujar_perimetro (leer_coordenadas(sl_Geom))
        rs.MoveNext
    Next
Else
    MsgBox "No se encontro datos en la base de datos"
End If
rs.Close
MsgBox "Listo el Chifaaa..!!"
End Sub


saludos
 
Fernando Luyo 
 
-------Mensaje original-------
 
De: Erik De leon
Fecha: 04/11/05 22:47:11
Para: pgsql-es-ayuda(at)postgresql(dot)org
Asunto: [pgsql-es-ayuda] Como conectar Visual basic con postgresql8
 
hola lista:
 
empeze a diseñar un programa en visual basic, pero deseo conectarlo con la
bd de postgresql, y es lo que no entiendo como hacerlo, o con que driver
establecer el enlace y al forma en que se mandaria allamar dentro de mmi
programa.
 
por sus ayuda muchas gracias.
 
Atte.Erik




Do You Yahoo!?
Yahoo! Net: La mejor conexión a internet y 2GB en tu buzón de Correo Yahoo!
por $100 al mes.

 

In response to

pgsql-es-ayuda by date

Next:From: David OchoaDate: 2005-04-12 13:32:01
Subject: Re: ayuda migracion MySQL to PostgreSQL
Previous:From: Edwin QuijadaDate: 2005-04-12 13:28:14
Subject: RE: Cambiar tipo de dato

Privacy Policy | About PostgreSQL
Copyright © 1996-2014 The PostgreSQL Global Development Group