codice:
SUB LogRiubicazione(codScatola, scatola, codArch, codUbicazioneOLD, UbicazioneOLD, codUbicazioneNEW, UbicazioneNEW, data, codiceOperatore, percorsoDB)
'inserisco una riga nel DB storicoubi
Call CreaConnDB(Mariadb_driver,"ConnStoricoUBI", percorsoDB, Mariadb_portserver, Mariadb_server, Mariadb_user, Mariadb_password, Mariadb_option, Mariadb_charset)
ConnStoricoUBI.BeginTrans
SQLSTO = "INSERT INTO storicoUbi (codScatola, scatola, codArch, codUbicazioneOLD, UbicazioneOLD, codUbicazioneNEW, UbicazioneNEW, data, codOpe) "& _
" VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?);"
set cmdSTO = server.createobject("ADODB.Command")
cmdSTO.ActiveConnection = ConnStoricoUBI
cmdSTO.CommandText = SQLSTO
cmdSTO.CommandType = adCmdText
cmdSTO.CommandTimeout = 900
cmdSTO.Parameters.Append cmdSTO.CreateParameter("codScatola", adInteger, adParamInput, , codScatola )
cmdSTO.Parameters.Append cmdSTO.CreateParameter("scatola", adDouble, adParamInput, , scatola )
cmdSTO.Parameters.Append cmdSTO.CreateParameter("codArch", adInteger, adParamInput, , codArch )
cmdSTO.Parameters.Append cmdSTO.CreateParameter("codUbicazioneOLD", adInteger, adParamInput, , codUbicazioneOLD )
cmdSTO.Parameters.Append cmdSTO.CreateParameter("UbicazioneOLD", adVarChar, adParamInput, 30, UbicazioneOLD )
cmdSTO.Parameters.Append cmdSTO.CreateParameter("codUbicazioneNEW", adInteger, adParamInput, , codUbicazioneNEW )
cmdSTO.Parameters.Append cmdSTO.CreateParameter("UbicazioneNEW", adVarChar, adParamInput, 30, UbicazioneNEW )
cmdSTO.Parameters.Append cmdSTO.CreateParameter("data", adDBTimeStamp, adParamInput, , data )
cmdSTO.Parameters.Append cmdSTO.CreateParameter("codOperatore", adInteger, adParamInput, , codiceOperatore )
cmdSTO.Execute '<---- errore qui
set cmdSTO = nothing
On Error Resume Next
If Err.number = 0 and ConnStoricoUBI.Errors.Count = 0 Then
ConnStoricoUBI.CommitTrans
Else
ConnStoricoUBI.RollbackTrans
'ConnStoricoUBI.close
'set ConnStoricoUBI=nothing
Call ChiudiConnDB("ConnStoricoUBI")
esitoOP "Si e' verificato un errore, eseguito il rollback",""
End If
On Error GoTo 0
Call ChiudiConnDB("ConnStoricoUBI")
End SUB
CreaConnDB e ChiudiConnDB aprono e chiudono la connessione, l'errore che mi esce e'