Re: PROBLEMAS CON PGOLEDB EN VISUAL BASIC

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