ich finde den Fehler einfach nicht!
Folgendes Progrämmlein habe ich für LibreOffice Base zusammengetippt und scheinbar unterwegs irgendwo einen Fehler eingebaut, denn es kommt als Fehlermeldung:
BASIC-Laufzeitfehler. (4.3.5.2)
Es ist eine Ausnahme aufgetreten
Type: com.sun.star.sdbc.SQLException
Message: No data is available.
Am Ende des Makros gebe ich zum Test zwei Message Boxes aus, kopiere ich von dort den String aus dem ersten (strSQL) in eine Abfrage oder in das SQL-Fenster von Base, erscheint das richtige Ergebnis.
Zu Ostern vielleicht schonmal eine Vorübung zum Suchen
Hier das Makro noch dazu.
Code: Alles auswählen
Sub getSchoolLeader ()
Dim oForm as Object
Dim oDataSource as Object
Dim oQueryStatement as Object
Dim oQueryResult as Object
Dim strSchoolID as String
Dim strSQL as String
oDataSource = ThisComponent.Parent.CurrentController
If NOT (oDataSource.isConnected()) THEN
oDataSource.connect()
END IF
oForm = ThisComponent.DrawPage.Forms.GetByName("frm_Mitglieder")
oQueryStatement = oDataSource.ActiveConnection.createStatement()
strSchoolID = oForm.GetByName("Schul-ID").currentValue
strSQL = "SELECT ""tbl_Ausbilder"".""Titel"", ""tbl_Ausbilder"".""Vorname"", ""tbl_Ausbilder"".""Name"" "_
+ "FROM ""tbl_Schulen"", ""tbl_Ausbilder"" "_
+ "WHERE ""tbl_Schulen"".""Schulleiter"" = ""tbl_Ausbilder"".""ID"" AND ""tbl_Schulen"".""ID"" = '" + strSchoolID + "'"
oQueryResult = oQueryStatement.ExecuteQuery(strSQL)
msgbox strSQL
msgbox oQueryResult.GetString(1)
End Sub
Greez2all
Tweety
