Guten Tag.
Beim Versuch über Basic Daten in eine Tabelle einzufügen entsteht ein Fehler.
Sub DatenEinfuegen
Dim oDialog As Object
Dim DatabaseContext as Object
Dim s as String
Dim oDatenquelle as Object
Dim oHandler as Object
Dim oDatVerb as Object
Dim oStatement as Object
Dim oErgSet as Object
Dim sSql as String
DatabaseContext=createUnoService("com.sun.star.sdb.DatabaseContext")
oDatenquelle=DatabaseContext.getByName("Test")
If not oDatenquelle.IsPasswordRequired Then
oDatVerb=oDatenquelle.getConnection("","")
Else
oHandler=oDatenquelle.createUnoService("com.sun.star.sdbc.InteractionHandler")
oDatVerb=oDatenquelle.ConnectWithCompletion(oHandler)
End If
oStatement=oDatVerb.createStatement()
oStatement.ResultSetConcurrency=com.sun.star.sdbc.ResultSetConcurrency.UPDATABLE
oStatement.ResultSetType=com.sun.star.sdbc.ResultSetType.SCROLL_SENSITIVE
sSQL= "SELECT ""Name"",""Vorname"" FROM ""tblPerson"""
oErgSet=oStatement.executeQuery(sSQL)
oErgSet.absolute(3)
s=oErgSet.getString(1)
msgBox s, 0, "Test"
oErgSet.moveToInsertRow()
......
End Sub
Die Daten können aus der Tabelle gelesen werden. In der Zeile oErgSet.moveToInsertRow() zeigt er folgenden Fehler.
BASIC Laufzeitfehler,
Es ist eine Exception aufgetreten
Type:com.star.sdbc.SQLException
Massage:Function sequence error.
Woran liegt das?
Function error
Moderator: Moderatoren
Hey Kulesza,
Gruss
Thomas
Was für eine Tabelle? Was für eine Datenbank hast du? HSQLDB oder Calc-Tabelle?..Versuch über Basic Daten in eine Tabelle einzufügen ...
Gruss
Thomas
Unterstützer LibreOffice, zertifizierter Trainer und Berater
Bücher: LibreOffice 6- Einstieg und Umstieg
Makros Grundlagen - LibreOffice / OpenOffice Basic
Bücher: LibreOffice 6- Einstieg und Umstieg
Makros Grundlagen - LibreOffice / OpenOffice Basic