From: | "Paulina Quezada" <paulina(dot)quezada(at)gmail(dot)com> |
---|---|
To: | pgsql-es-ayuda(at)postgresql(dot)org |
Subject: | Problemas con ADODB y Postgres |
Date: | 2007-03-02 22:59:19 |
Message-ID: | 3babf2fc0703021459r153f12e1q96a3e5b4306d7e3d@mail.gmail.com |
Views: | Raw Message | Whole Thread | Download mbox | Resend email |
Thread: | |
Lists: | pgsql-es-ayuda |
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.
From | Date | Subject | |
---|---|---|---|
Next Message | Gabriel Colina | 2007-03-03 00:22:52 | Re: Problemas con ADODB y Postgres |
Previous Message | PAUL ELGUERA MEZA | 2007-03-02 21:53:19 | versiones de dblink |