Open Office Basic Laufzeitfehler

[Till00]

Hi,
hoffe ich bin hier richtig, wenn das Thema eher in Datenbanken und Archivsoftware gehört bitte verschieben.

Ich muss gerade für die Schule in Open Office ein Makro für eine Datenbankanfrage programmieren, aber schon beim ausführen der SQL-Anfrage meldet OOo "Laufzeitfehler, Objektvariable nicht definiert“.
Kennt sich hier jemand mit OOo aus und kann mit helfen?

Die Fehlermeldung: http://cl.ly/GqYq

Mein Code bis jetzt:

REM  *****  BASIC  *****

Dim oDlg_Suche as Object

Sub Main
	Test()
	
End Sub


Sub oeffneDatenbankName
	Dim oVerbindung as Object

	oVerbindung = oeffneDatenbank("T_Info_vfeAktuell")

End Sub 


Function oeffneDatenbank (datenbank as String) as Object
	Dim oDatabaseContext As Object
	Dim oDataSource As Object
	Dim oConnection As Object
	Dim oInteractionHandler As Object
	
	oDatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
	oDataSource = oDatabaseContext.getByName(datenbank)
	
	if not oDataSource.IsPasswordRequired then
		oConnection = oDataSource.GetConnection("","")
	else
		oInteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
		oConnection = oDataSource.ConnectWithCompletion(oInteractionHandler1)
	end if
	
	oeffneDatenbank = oConnection
	
End Function

'**********************************************************************************************************************

Function fuehreSqlAnweisungAus (anfrage as String, oCon as Object) as Object
	Dim oStatement as Object
	Dim oResultSet as Object
	
	oStatement = oCon.createStatement()
	oStatement.ResultSetTyp = 1004
	oResultSet = oStatement.executeQuery(anfrage)
	
	fuehreSqlAnweisungAus = oResultSet
	

End Function


Sub Test
	Dim oVerbindung as Object
	Dim oAnfrageergebnis as Object
	
	oVerbindung = oeffneDatenbank ("T_Info_vfeAktuell")

	sqlAnfrage = "SELECT * FROM ""T_Medium"" WHERE ""T_Medium.zaehler"" = ""T_Bildtraeger.zaehler"""
	
	oAnfrageergebnis = Allgemein.fuehreSqlAnweisungAus(sqlAnfrage, oVerbindung)
	
End Sub

 

[falkgottschalk]

Das Einzige was mich wundert:

oAnfrageergebnis = Allgemein.fuehreSqlAnweisungAus

Warum Allgemein? Steht doch quasi direkt drüber... Bin aber kein Basic-Crack (mehr).

 

[Till00]

Danke, das wars...
Was für ein bekloppter Fehler