Hola amigos postgreanos estuve haciendo unas pruebas con PGOLEDB pero me sale este error
ya que lo registre y nada cuando tiene que mostrar los datos en la grilla y este
es el error que me sale pero en cambio via ODBC me muetra los datos espero que
me ayuden amigos ahi les pongo mis dos conecciones y con el OLEDB no funciona.
espero sus ayudas amigos.
----------------------------------------------------------------------
Error '7004' en tiempo de ejecusion

El conjunto de Datos no admite marcadores
-----------------------------------------------------------------------
uso el PgOleDb-1.0.0.20.zip de la comunidad

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
Dim cn As New ADODB.Connection
'Set cn = New ADODB.Connection
With cn
    .CursorLocation = adUseServer
   .Open ("Provider=PostgreSQL OLE DB Provider;Data Source=localhost;Location=rafa;User ID=postgres;Password=123456")
   '.Open ("Provider=MsDataShape.1;Persist Security Info=False;User ID=postgres;Extended Properties=""DSN=PostgreSQL;DATABASE=rafa;SERVER=localhost;PORT=5432;SSLMODE=prefer;UID=postgres;PWD=123456;ReadOnly=0;Protocol=6.4;FakeOidIndex=0;ShowOidColumn=0;RowVersioning=0;ShowSystemTables=0;ConnSettings=;Fetch=100;Socket=8192;UnknownSizes=0;MaxVarcharSize=254;MaxLongVarcharSize=8190;Debug=0;CommLog=0;Optimizer=1;Ksqo=1;UseDeclareFetch=0;TextAsLongVarchar=1;UnknownsAsLongVarchar=0;BoolsAsChar=1;Parse=0;CancelAsFreeStmt=0;ExtraSysTablePrefixes=dd_;;LFConversion=1;UpdatableCursors=0;DisallowPremature=0;TrueIsMinus1=0;BI=0;ByteaAsLongVarBinary=0;UseServerSidePrepare=0;LowerCaseIdentifier=0 """)
  
End With
rs.Open "select * from ubigeo", cn
Set grid.DataSource = rs
End Sub

 

Ruben Avila G.