Gaston, Hi. you may want to cross post this in the pgsql-odbc and pgsql-general list (both can be signed up on at majordomo.postgresql.org), as that may be a better place for the type of support you are after. You have posted this in the pgAdmin list, a list for discussing specific problems with a VB written program called pgAdmin, a front end tool to administer PostgreSQL, not a email-list for general VB/ODBC related issues. Personally I cant help you with this one although the other pgAdmin programmers (who use VB & PGSQL) may be able to, and if so will reply accordingly. Cheers, Tim. At 16:57 06/03/2002 -0300, Gastón Micheri wrote: Hello, I have a problem. Bug using ADODB and Visual Basic for acceding PSQL We have a problem using ADODB (from Visual Basic) and POSTGRESQL when trying to use an unconnected recordset which´s property "locktype" is set to "adLockBatchOptimistic" (Rs.locktype=adLockBatchOptimistic). When trying to access to a database through ODBC, using ADODB, we have noticed an important delay in comparison to other databases such as SQLServer. Investigating this problem, we have detected where that delay is produced. The problem is produced when we are trying to get an unconnected recordset with the "adLockBatchOptimistic" block type. When it is trying to execute the query (tracing it) we have seen that arrives three select results, but only one of them corresponds to the sentence of the que! ry but the other two are not. We conclude that the last two results are important to recover the recordset structure that will be disconnected later. The problem is that one of this two extra queries runs a complete select over the table that we are accessing with the written select.This table has a lot of records, and it turns the answer really slow because it brings all the talbe recordsets.But this records are not kept into the recordset. It only brings the data requested by the written sentence.Now, we present the Visual Basic code used to access the database and, after that, a log obtained through POSTGRE ODBC.
Visual Basic Code Dim objRs As New ADODB.Recordset Dim objConn As New ADODB.Connection Dim strSql As String Dim strCadenaConexion As String strCadenaConexion = _ "DSN=contabilidad_psql;DATABASE=contabilidad;" & _ "SERVER=192.168.1.41;PORT=5432;UID=credito;PWD=;" objConn.Open strCadenaConexion strSql = "select * from agentes where id_sucursal = 7 and id_agente = 100" objRs.CursorLocation = adUseClient objRs.CursorType = adOpenStatic objRs.LockType = adLockBatchOptimistic Set objRs.ActiveConnection = objConn objRs.Open strSql objRs.ActiveConnection = Nothing objConn.Close MsgBox "Cant: " & objRs.RecordCount ! Log ODBC POSTGRE conn=409745072, query='select * from agentes where id_sucursal = 7 and id_agente = 100' [ fetched 1 rows ] conn=409745072, query='SELECT * FROM agentes' [ fetched 10773 rows ] conn=409745072, query='select ta.attname, ia.attnum from pg_attribute ta, pg_attribute ia, pg_class c, pg_index i where c.relname = 'agentes' AND c.oid = i.indrelid AND i.indisprimary = 't' AND ia.attrelid = i.indexrelid AND ta.attrelid = i.indrelid AND ta.attnum = i.indkey[ia.attnum-1] order by ia.attnum' [ fetched 2 rows ] conn=409745072, PGAPI_Disconnect I hope you could help us to solve this problem. Thank you! Gastón Hable con sus amigos en línea, pruebe MSN Messenger: http://messenger.msn.es
