dbaspot
Tags Register FAQ Calendar Search Today's Posts Mark Forums Read

notes to oracle odbc connection doesn't work anymore! - lotus-notes-programmer

This is a discussion on notes to oracle odbc connection doesn't work anymore! - lotus-notes-programmer ; Hallo! I'm new in this group Server 5.0.11 su window2000 server, client 5.0.11 su winxp. I've a nsf file with a lotusscrip reading and writing an oracle table. It worked till some days ago, but yesterday gave me an error. ...


Home > Database Forum > Other Technologies > lotus-notes-programmer > notes to oracle odbc connection doesn't work anymore!

Reply

 

LinkBack Thread Tools Display Modes
  #1  
Old 09-02-2008, 04:06 AM
Database Bot
 
Join Date: Sep 2009
Posts: 1,236,254
Database Administrator is on a distinguished road
Default notes to oracle odbc connection doesn't work anymore!

Hallo!
I'm new in this group
Server 5.0.11 su window2000 server, client 5.0.11 su winxp.

I've a nsf file with a lotusscrip reading and writing an oracle table.

It worked till some days ago, but yesterday gave me an error.

Here's the lotusscript:
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
....//....
here there's the code for writing oracle table
......//......
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

This is the error:
"Si sono verificati errori, dati non inseriti 720: LSO- ODBC could not
complete the requested operation"

Somebody can helpme?

Thank's!!
Reply With Quote
  #2  
Old 09-02-2008, 07:47 AM
Database Bot
 
Join Date: Sep 2009
Posts: 1,236,254
Database Administrator is on a distinguished road
Default Re: notes to oracle odbc connection doesn't work anymore!

I've resolved the problem.

The path was dirty (all the folder were doubled), now it's clean and all
working good!
Reply With Quote
Reply

Thread Tools
Display Modes



All times are GMT -4. The time now is 08:00 AM.