• Jueves 14 de Noviembre de 2024, 08:07

Autor Tema:  Conexion A Postgres  (Leído 1516 veces)

Lucer

  • Miembro activo
  • **
  • Mensajes: 29
    • Ver Perfil
Conexion A Postgres
« en: Lunes 30 de Enero de 2006, 12:55 »
0
Bueno, la conexion ya la he hecho (mediante ADO y ODBC), pero no consigo que el recorset me funcione como es devido. Aqui os dejo el codigo a ver si alguien me puede hechar una mano.

Private Sub Form_Load()

Dim Conexion As ADODB.Connection
Dim Mitabla As ADODB.Recordset

Set Mitabla = New ADODB.Recordset
Set Conexion = New ADODB.Connection

Conexion.ConnectionString = "DSN=Mi base"
Conexion.Open

Mitabla.Open "peliculas", "DSN=Mi base", adOpenStatic, adLockOptimistic

End Sub


Gracias

ElberGon

  • Nuevo Miembro
  • *
  • Mensajes: 20
    • Ver Perfil
Re: Conexion A Postgres
« Respuesta #1 en: Sábado 4 de Febrero de 2006, 12:09 »
0
Pues intenta esto puede ser que te sirva:


Private Sub Form_Load()

Dim Conexion As ADODB.Connection
Dim Mitabla As ADODB.Recordset

Set Mitabla = New ADODB.Recordset
Set Conexion = New ADODB.Connection

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Mitabla.CursorLocation=adUseClient  'estoesloqueteleagregechecaloyavahaservir

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Conexion.ConnectionString = "DSN=Mi base"
Conexion.Open

Mitabla.Open "peliculas", "DSN=Mi base", adOpenStatic, adLockOptimistic

End Sub
[size=109]  eLbErGoN  [/size]  

[El conosimiento es el arma que hace la Diferencia entre las personas; pero el saber no te hace mas que otra persona solo estas mas preparado