OpenOffice.info

Hallo,

allen die den Thread schon gelesen haben herzlichen Dank, falls ihr euch schon mühen gemacht habt.

Der Code funktioniert einwandfrei, der Fehler lag darin, daß ich die Datei per USB Stick auf einem anderen Rechner weiterbearbeitet habe, auf dem schon mal eine andere Test.odb registriert wurde. Ich habe also die Daten in eine andere Datenquelle geschrieben.


Christian

Hallo,

habe versucht mit einem Makro einen Datensatz in eine Basetabelle eizufügen. Angeblich ist der Rückgabewert I_Resultset die Anzahl der Eingefügten Datensätze. Demnach hätte er einen Datensatz eingefügt, nur in der Tabelle kann ich keinen neuen Datensatz erkennen.

Folgenden Code habe ich verwendet:

Sub Schreiben

Dim O_Datasoure As Object
Dim O_Connection As Object
Dim O_Statement As Object
Dim I_Resultset As Integer
Dim S_Sql As String


S_Sql ="INSERT INTO ""person"" (""name"",""ort"") VALUES ('Huber','Stadt')"
O_Datasoure = createUnoService("com.sun.star.sdb.DatabaseContext").getByName("test")
O_Connection = O_Datasoure.getConnection("","")
I_Resultset = O_Connection.createStatement().executeUpdate(S_Sql)
O_Connection.close()
msgbox I_Resultset
End Sub

Die Tabelle besteht aus drei Spalten ID (Primärschlüssel Autowert), name (Text) und ort(Text)


Mein System: WinXP, OO2.0.1, integrierte HSQLDB

Danke
Christian