[Pgsql-ayuda] idle in transaction... Thnks Jorge Zurita

Mauricio E. Pastorini Torres m_pastorini@elgolfo.cl
Mon, 27 Oct 2003 17:08:16 -0300 (CLST)


Jorge, gracias por contestar tan rápidamente y debo acotar que tu
acotación respecto a mi programa es correcta... quizas si puedes revisar
mi código te lo agradecería mucho.
Mira al cargar la forma llamo esta función que crea la conexión con el
postgres... :

Public conex As ADODB.Connection
Public Function creaconexion()
Dim connectString As String

    Set conex = Nothing
    Err.Clear
    On Error GoTo 0

    connectString = "SERVER=" + SERVER + ";" + _
                    "UID=" + USER + ";" + _
                    "PWD=" + Pwd + ";" + _
                    "DSN=" + Dsn + ";" + _
                    "DATABASE=" + Base + "; " + _
                    "LANGUAGE=us_english;" + _
                    "AutoTranslate=No"

    Set conex = New ADODB.Connection

    With conex
        .ConnectionString = connectString
        .ConnectionTimeout = 10
        .CursorLocation = adUseClient
        .Open
    End With
    conex.CommandTimeout = 20
end function

La que pienso no debería tener problema, sin embargo para ingresar datos
uso la siguiente función:...

Dim ADORs As ADODB.Recordset
Dim cmd_sql As ADODB.Command

    conex.BeginTrans
    Set cmd_sql = New ADODB.Command
        With cmd_sql
        Set .ActiveConnection = conex
            .CommandText = consulta        ' insert into tabla values....
            .CommandType = adCmdText
         End With
    On Error GoTo Err_Execute
         Set ADORs = New ADODB.Recordset
         'Resume Next
         Set ADORs = cmd_sql.Execute(afectadas)
    conex.CommitTrans

puede haber algún error por este lado?????

te agradecería que me dieras tu opinion...

Mauricio.