Su un database ho uno script che va ad aggiornare alcuni campi su oracle.
Questa mattina non funzionava più!!
lo script è il seguente:
Uselsx "*LSXODBC"
Sub Initialize
On Error Goto GestError
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim datasource As String
' definizioni variabili per caricamento nella sql
Dim varsql As String
Set qry.Connection = con
Set result.Query = qry
datasource = "helpdesk"
username = "******"
password = "******"
If Not con.ConnectTo(dataSource, userName, password) Then
Messagebox "errore nella connessione a " & datasource,, "Error"
Exit Sub
End If
'disabilito autocommit
con.Autocommit=False
Set uidoc = workspace.CurrentDocument
account = uidoc.FieldGetText( "UtenteNT" )
varSQL = "SELECT * FROM HD_ANAG "
varSQL = varSQL + "WHERE ACCOUNT = '" + account + "' "
varSQL = varSQL + "OR ACCOUNT ='" + Ucase(account) + "' "
qry.SQL = varsql
result.Execute
If result.IsResultSetAvailable Then
varaccount = result.getvalue("ACCOUNT")
result.Close(DB_CLOSE)
Dim boxType As Long, answer As Integer
boxType& = MB_YESNO + MB_ICONQUESTION
....//....
qui c'è il codice che fa gli aggiornamenti in oracle
......//......
fine:
con.Disconnect
Exit Sub
GestError:
Messagebox "Si sono verificati errori, dati non inseriti" & Str(Err) &
": " & Error$
con.Rollbacktransactions
If Err=13 Then
Messagebox "Verifica che siano compilati tutti i campi dei dati
rilevati dall'anagrafica, in caso negativo clicca su 'verifica dipendenti'"
End If
Resume fine
End Sub
Quando lo eseguo mi risponde con questo errore:
"Si sono verificati errori, dati non inseriti 720: LS:DO- ODBC could not
complete the requested operation"
Qualcuno è in grado di capire perchè?
Grazie!!
Inoltre utilizzando lo stesso dsn con excel o con un programmino in
vbasic posso leggere i dati delle tabelle!!!
Che c*****o sta succedendo??? Aiutttoooo!!
--
Dr.Ugo Gagliardelli,Modena,ItalyCertifiedUindoscrasherAñejoAlcoolInside
Spaccamaroni andate a cagare/Spammers not welcome/Spammers vão à merda
Spamers iros a la mierda/Spamers allez vous faire foutre/Spammers loop
schijten/Spammers macht Euch vom Acker/Spamerzy wypierdalac'
> Che sia cambiata la password dell'utente?
> Che l'utente sia stato licenziato?
> A volte i primi di settembre succede... :-)
> Sinceramente con 'On Error' in testa al programma e' difficile capire
> quale operazione 'could not complete'.
>
Grazie della risposta!
Niente di tutto ciň.... si era incasinato il path di sistema (tutte le
voci doppie) grazie (forse) a qualche test di installazione.
Ho sistemato la cosa, tutto ok!