To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=70226
Issue #|70226
Summary|Second database select against DB2 V9 fails
Component|Database access
Version|OOo 2.0.3
Platform|PC
URL|
OS/Version|Windows 2000
Status|UNCONFIRMED
Status whiteboard|
Keywords|
Resolution|
Issue type|DEFECT
Priority|P3
Subcomponent|none
Assigned to|dbaneedsconfirm
Reported by|buschu
------- Additional comments from [EMAIL PROTECTED] Mon Oct 9 03:02:00 -0700
2006 -------
I tried the following macro, which actually gives only 2 values:
Sub Testsub
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
Dim Statement As Object
Dim ResultSet As Object
Dim i As Integer
DialogLibraries.LoadLibrary("Standard")
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("testdb")
Connection = DataSource.GetConnection("user","pass")
Statement = Connection.createStatement()
ResultSet = Statement.executeQuery("VALUES (1)")
If Not IsNull(ResultSet) Then
IF ResultSet.next Then
MsgBox "Number of values: " + ResultSet.getInt(1)
End If
End If
ResultSet = Statement.executeQuery("VALUES (2)")
End Sub
Result: The first statement works without errors. The message box appears. The
second executeQuery shows error message (translated from German):
"BASIC Run time error. Exception occured. Type:
com.sun.star.lang.DisposedException Message: ."
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
