Re: PROBLEMAS CON PGOLEDB EN VISUAL BASIC

Ruben,
este es un error común cuando usas un tipo de Recordset en ADO,
reemplaza el tipo adOpenDynamic constante por adOpenKeyset o adOpenStatic.
algo asi:

Set RS = New ADODB.Recordset
With RS
.CursorLocation = adUseClient
.CursorType =adOpenStatic
.LockType = adLockOptimistic
.Open "SELECT DISTINCT(Tipo) FROM Producto", con, , , adCmdText
End With

'Luego enlaza el control DataGrid
Set DataGrid1.DataSource = RS

puedes darle un vistazo a este articulo de Microsoft.

http://support.microsoft.com/default.aspx?scid=kb%3Bes%3B278408

2006/8/7, ruben avila galindo <ruben2218(at)hotmail(dot)com>:
>
> 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.

--
Atentamente,
.~.
( 0 0 ) Moisés Alberto Lindo Gutarra
/ V \ Asesor - Desarrollador Java / Open Source
// \\ TUMI Solutions S.A.C.
/(( _ ))\ Cel: 97366260
oo0 0oo MSN: mlindo(at)tumisolutions(dot)com