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