[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.