Programación General > Bases de Datos

 Conexion A Postgres

(1/1)

Lucer:
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:
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

Navegación

[0] Índice de Mensajes