Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: papadave am 01.04.08 - 14:56:46

Titel: Result set not available
Beitrag von: papadave am 01.04.08 - 14:56:46
HI,

da mit der Umstellung von Domino 6.5.5 (RHEL) auf Domino 7.0.3 (RHEL 4)
Domino crasht, sobald ich einen Agenten (LSXODBC und EasySoft Linux ODBC oder
Oracle ODBC driver) starte, bat mich IBM den hauseigenen Datadirect-Treiber zu installieren.

Dieser crash nun zwar nicht mehr,
jedoch bringt jegliches kleines Testscript wie anbei ein leeres Resultset.
 
- Verbindung steht.
- User, Passwort, Tabelle etc. existieren natürlich wie angegeben.
- dctest läuft als notesuser auch ok. 
- agent starte ich über die console 'Tell amgr run ..'

Vieleicht hat jemand ne Idee, wie ich den Fehler weiter eingrenzen kann,
da ich mit IBM seit Wochen auf keinen grünen Ast komm...

Danke, David

Code
Sub Initialize 
	Set con = New ODBCConnection 
	Set qry = New ODBCQuery 
	Set result = New ODBCResultSet 
	Set qry.Connection = con 
	Set result.Query = qry 
	
	Call con.ConnectTo("dsn","user","passwort")	
	
	If con.IsConnected Then
		Print "IsConnected: yes"
	Else 
		Print "IsConnected: no"
	End If
	
	
        Print "before qry.SQL"
	qry.SQL = "select * from partner001 where number001='FUC';" 
	Print "after qry.SQL"
   
        [ - hier ist dann schon ende - ]
        
        Call DisplayResultSetProperties 
	msg = "names:" & Chr(10) 
	
	Do 
		result.NextRow 
		TName = result.GetValue("Type001", TName) 
		NumberName = result.GetValue("NUMBER001", NumberName) 
		msg = msg & Chr(10) & TName & " " & NumberName 
	Loop Until result.IsEndOfData 
	
	
	Print msg & "Names" 
        REM Display result set properties after processing 
        REM result set 
	Call DisplayResultSetProperties 
	result.Close(DB_CLOSE) 
	con.Disconnect 
End Sub

Code
> 04/01/2008 14:56:03   AMgr: Start executing agent 'Test1' in 'Public/crm/adr-sem-med_neu.nsf'
04/01/2008 14:56:03   Agent Manager: Agent printing: IsConnected: yes
04/01/2008 14:56:03   Agent Manager: Agent printing: before qry.SQL
04/01/2008 14:56:03   Agent Manager: Agent printing: after qry.SQL
04/01/2008 14:56:03   Agent Manager: Agent printing: NO Resultset available :-((
04/01/2008 14:56:03   Agent Manager: Agent printing: Result set not availableNo result set
04/01/2008 14:56:03   Agent Manager: Agent printing: Not result.IsResultSetAvailable
04/01/2008 14:56:03   Agent Manager: Agent printing: names:  False FalseNames
04/01/2008 14:56:03   Agent Manager: Agent printing: Result set not availableNo result set
04/01/2008 14:56:03   AMgr: Agent 'Test1' in 'Public/crm/adr-sem-med_neu.nsf' completed execution
Titel: Re: Result set not available
Beitrag von: flaite am 01.04.08 - 15:12:01
Fehlt da nicht sowas hinter qry.SQL
Code
 result.Execute
  
  If result.IsResultSetAvailable Then
???
result.execute würd ich auf jeden Fall erwarten (fehlt bei dir).
Zumindest find ich das in den Beispielen der Hilfe und sowas in der Art würde ich auch erwarten, wobei mehr in Richtung von qry.execute. Scheint aber bei ODBC anders zu sein.

Gruß Axel
Titel: Re: Result set not available
Beitrag von: papadave am 01.04.08 - 15:15:35
sorry, scheint beim copy/pasten untergegangen zu sein.

Ein

Code
	Print "before qry.SQL"
	qry.SQL = "SELECT * FROM LAN42001.PARTNER001 WHERER NUMBER001 ='FUC'" 
	Print "after qry.SQL"	
	
	result.Execute

gibs natürlich.

mein Verdacht war ne Zeit lang, dass die Art Username/Password zu
übergeben so nicht funktioniert.
Beim Easysoft ODBC driver war das Login nähmlich am SystemDSN hinterlegt.

David
Titel: Re: Result set not available
Beitrag von: papadave am 01.04.08 - 15:28:35
aja, folgende Modifikation beginnt die Tabellen zu schreiben,
und endet nach einigen Hundert einträgen mit einem NSD:

Code
Sub Initialize 
Set con = New ODBCConnection 

tables = con.ListTables("dsn","user","pwd")
	Print "following tables: "
	For n% = Lbound(tables) To Ubound(tables)
		Print tables(n%)
	Next
	con.Disconnect 
End Sub

Code
0000A3E0: 938BD680: 0000 0000 0000 0000 7C96 0000 0000 0000   '.........|......'
0000A3F0: 938BD690: 0001 0000 96B0 9554 0000 AFFF 162E 0000   '....0.T..../....'
0000A400: 938BD6A0: 2018 0000 0000 0000 3C40 884F 024D 0000   '. ......@<O.M...'
-- 8192 (0x2000) bytes of 0 --
0000C410: 938BF6B0: 0000 E261 0000 0000 0000 0000 0000 0000   '..ab............'
-- 15328 (0x3BE0) bytes of 0 --


DPOOL - Dumping BAD FREE block
00000000: 938C32A0: 0000 0000 0000 0000 0000 0000             '............'


DPOOL - Dumping data following BAD FREE block
-- 10240 (0x2800) bytes of 0 --




 Thread=[05177:00057--1406837840]
Stack base=0xAC25552C, Stack size = 3244 bytes
PANIC: Invalid pool free chain
Stack base = 0xac25552c, Stack size = -332870376 bytes
Fatal Error signal = 0x0000000b PID/TID = 5177/-1406837840
4/1/2008 15:32:54  Running NSD
NSD is in progress .................
Titel: Re: Result set not available
Beitrag von: flaite am 01.04.08 - 16:45:04
Guck mal in der Doku von dem ODBC Treiber, ob es da irgendwo Beschränkungen gibt. Man kann da oft Sachen einstellen (erweitert button). Kann mich daran erinnern, dass dies uns das mal sehr geholfen hat. Schon mal darüber nachgedacht auf JDBC zu wechseln  ??? Mit Notes 7 sollte das ganz gut funktionieren.
Titel: Re: Result set not available
Beitrag von: LN4ever am 01.04.08 - 20:15:14
Versuch doch einmal, das SQL-Statement mit anderen Text-Delimitern als den Anführungszeichen aufzusetzen, damit du die doppelten Anführungszeichen im Statement selbst verwenden kannst, also z.B.

qry.SQL = |select * from partner001 where number001="FUC"|

Gruß

Norbert
Titel: Re: Result set not available
Beitrag von: flaite am 01.04.08 - 20:21:45
Sollte eigentlich egal sein.
Nach SQL sind ' als String-Delimiter ok.
Er liefert aber ja ein paar Ergebnisse zurück.
Die Menge scheint nur mit den Einstellungen begrenzt zu sein und das kann imho bei ODBC auftreten, lässt sich aber mit den konkreten Einstellungen des Treibers (dsn oder wie immer das heisst) beheben.