Re: PROBLEMAS CON PGOLEDB EN VISUAL BASIC

Lists: pgsql-es-ayuda
From: "ruben avila galindo" <ruben2218(at)hotmail(dot)com>
To: pgsql-es-ayuda(at)postgresql(dot)org
Subject: PROBLEMAS CON PGOLEDB EN VISUAL BASIC
Date: 2006-08-08 00:08:43
Message-ID: [email protected]
Views: Whole Thread | Raw Message | Download mbox | Resend email
Lists: pgsql-es-ayuda

<html><div style='background-color:'><DIV class=RTE>Hola amigos postgreanos estuve haciendo unas pruebas con PGOLEDB pero me sale este error<BR>ya que lo registre y nada cuando tiene que mostrar los datos en la grilla y este<BR>es el error que me sale pero en cambio via ODBC me muetra los datos espero que<BR>me ayuden amigos ahi les pongo mis dos conecciones y con el OLEDB no funciona.<BR>espero sus ayudas amigos.<BR>----------------------------------------------------------------------<BR>Error '7004' en tiempo de ejecusion</DIV>
<DIV class=RTE>El conjunto de Datos no admite marcadores<BR>-----------------------------------------------------------------------<BR>uso el PgOleDb-1.0.0.20.zip de la comunidad</DIV>
<DIV class=RTE>Private Sub Form_Load()<BR>Dim rs As New ADODB.Recordset<BR>Set rs = New ADODB.Recordset<BR>Dim cn As New ADODB.Connection<BR>'Set cn = New ADODB.Connection<BR>With cn<BR>&nbsp;&nbsp;&nbsp; .CursorLocation = adUseServer<BR>&nbsp;&nbsp; .Open ("Provider=PostgreSQL OLE DB Provider;Data Source=localhost;Location=rafa;User ID=postgres;Password=123456")<BR>&nbsp;&nbsp; '.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 """)<BR>&nbsp;&nbsp; <BR>End With<BR>rs.Open "select * from ubigeo", cn<BR>Set grid.DataSource = rs<BR>End Sub</DIV>
<DIV class=RTE>&nbsp;</DIV>
<DIV class=RTE>Ruben Avila G.</DIV></div></html>

Attachment Content-Type Size
unknown_filename text/html 1.9 KB
From: "Moises Alberto Lindo Gutarra" <mlindo(at)gmail(dot)com>
To: "ruben avila galindo" <ruben2218(at)hotmail(dot)com>
Cc: pgsql-es-ayuda(at)postgresql(dot)org
Subject: Re: PROBLEMAS CON PGOLEDB EN VISUAL BASIC
Date: 2006-08-08 10:59:28
Message-ID: [email protected]
Views: Whole Thread | Raw Message | Download mbox | Resend email
Lists: pgsql-es-ayuda

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

From: Grover Navia <grover8navia(at)yahoo(dot)es>
To: pgsql-es-ayuda(at)postgresql(dot)org
Subject: Re: PROBLEMAS CON PGOLEDB EN VISUAL BASIC
Date: 2006-08-08 16:25:49
Message-ID: [email protected]
Views: Whole Thread | Raw Message | Download mbox | Resend email
Lists: pgsql-es-ayuda

Hola

Alberto tiene razon, pero seria bueno que pruebes con esto, y en especial con la cadena de conexion especificada :

'******************************************
' DECLARAMOS VARIBLES PARA CONTROLAR LA BASE DE DATOS
'******************************************
Dim ConexionDB As ADODB.Connection
Dim RegisA As ADODB.Recordset

'ABRIMOS LA BASE DE DATOS
G_Conexion = "DRIVER=PostGreSQL; Server=192.168.1.8;Port=5432;User Id=miCuenta;Password=miPassword;Database=miBaseDatos;"
Set ConexionDB = New ADODB.Connection
ConexionDB.Open G_Conexion

Set RegisA = New ADODB.Recordset
RegisA.Open "empleado", ConexionDB, adOpenKeyset, adLockOptimistic, adCmdTable

RegisA.AddNew

RegisA!cod_empl = codEmpleado
.............................................
.............................................
RegisA.Update
RegisA.Close



'CERRAMOS LA BASE DE DATOS
ConexionDB.Close


Si desea realizar simplemente una consulta cambia el parametro "adCmdTable" de RegisA, y cambia el nombre de la tabla por tu consulta, espero que te sirva esto

Saludos
Grover Navia

Moises Alberto Lindo Gutarra <mlindo(at)gmail(dot)com> escribió:
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 :
>
> 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

---------------------------(fin del mensaje)---------------------------
TIP 8: explain analyze es tu amigo


---------------------------------

LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com