RE: Problemas con ADODB y Postgres

From: Henry <hensa22(at)yahoo(dot)es>
To: Paulina Quezada <paulina(dot)quezada(at)gmail(dot)com>, pgsql-es-ayuda(at)postgresql(dot)org
Subject: RE: Problemas con ADODB y Postgres
Date: 2007-03-03 05:04:54
Message-ID: 623896.53707.qm@web30805.mail.mud.yahoo.com
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgsql-es-ayuda

Paulina Quezada <paulina(dot)quezada(at)gmail(dot)com> escribió: Hola:

Tengo mi aplicación en visual basic 6.0 usando ADODB para interactuar con la base de datos, el problema es que mis consultas en postgres usando el PGadmin tienen un tiempo de respuesta satisfactorio o casi inmediato, pero al abrir el recordset se demora varios segundos.

dim rec_um as adodb.recordset

s_sql = "select ttc.color_ttc from abastecimientomp.temporada_cosecha as tc," _
& "abastecimientomp.tipo_temporada_cosecha As ttc where tc.id_ins = " _
& s_insumo + " and extract(month from timestamp '" _
& s_fechaActual + "') between tc.mes_ini_tco and mes_fin_tco and " _
& "tc.id_ttc = ttc.id_ttc;"

rec_um.Open s_sql, ConexionBD, adOpenStatic, adLockOptimistic
(esta sentencia es la que se demora varios segundos, y no es solo con esa sentencia SQL sino con todas)

EStoy usando Postgres 8.2.1, y la cadena de conexión que uso es esta:

s_cadenaConexion = "Provider=MSDASQL.1;Persist Security Info=False;" _
& "User ID=" + s_usuario + ";" _
& "Extended Properties='DSN=PostgreSQL;" _
& "DATABASE=" + s_base + ";" _
& "SERVER=" + s_servidor + ";PORT=5432;" _
& "UID=" + s_usuario + ";" _
& "PWD=" + s_password + ";" _
& "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'"


If (ConexionBD.State = adStateOpen) Then
ConexionBD.Close

ConexionBD.ConnectionString = s_cadenaConexion

ConexionBD.Open

Else

ConexionBD.ConnectionString = s_cadenaConexion

ConexionBD.Open
End If

Alguien me podría ayudar en si existe algún problema en la conexión o por qué se puede producir el problema?

Muchas gracias!

Paulina Q.
si vas a usar tu consulta para solo lectura, en vez de usar PGODBC usa PGOLEDB version 1.0.0.19 porque la 1.0.0.20 es muy lenta.


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

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

In response to

Browse pgsql-es-ayuda by date

  From Date Subject
Next Message Leonel Nunez 2007-03-03 14:44:46 Re: validacion de usuarios
Previous Message Gabriel Colina 2007-03-03 00:22:52 Re: Problemas con ADODB y Postgres