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
Views: Raw Message | Whole Thread | Download mbox | Resend email
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

Browse pgsql-es-ayuda by date

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