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
Datensatz in Basetabelle einfügen
Moderator: Moderatoren
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
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