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

[Silvia Ortega]

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


No le estas diciendo se que desconecte cada 10 minutos y se vuelva a
conectar cada 20?
----- Original Message -----
From: "Mauricio E. Pastorini Torres" <m_pastorini@elgolfo.cl>
To: <pgsql-ayuda@tlali.iztacala.unam.mx>
Sent: Monday, October 27, 2003 3:08 PM
Subject: [Pgsql-ayuda] idle in transaction... Thnks Jorge Zurita


> 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.
> _______________________________________________
> Pgsql-ayuda mailing list
> Pgsql-ayuda@tlali.iztacala.unam.mx
> http://tlali.iztacala.unam.mx/mailman/listinfo/pgsql-ayuda