OpenOffice.info

[quote="komma4"]Du hast doch [url=http://sourceforge.net/project/showfiles.php?group_id=87718&package_id=101416]Xray[/url] im Einsatz - das zeigt Dir sowas an ...?!![/quote]

Installiert ist es, aber leider habe ich es noch nicht zum Laufen gebracht :?

Du hattest es zwar [url=http://de.openoffice.info/viewtopic.php?f=18&t=25913#p110589]hier[/url] beschrieben, aber so richtig weiß ich da nicht weiter.

siehe [url=http://api.openoffice.org/docs/common/ref/com/sun/star/awt/XCheckBox.html]Checkbox APi-Dokumentation[/url]

In [url=http://www.pitonyak.org/oo.php]Andrew Pitonyaks Makro Dokument[/url] (meine Kopie!) Kap. 10.2.7


Du hast doch [url=http://sourceforge.net/project/showfiles.php?group_id=87718&package_id=101416]Xray[/url] im Einsatz - das zeigt Dir sowas an ...?!!

Wirklich schade, dass man die Daten nicht direkt über das ResultSet einfügen kann - würde doch sicherlich einfacher gehen.
Also werde ich mich dann mal ans basteln machen.

Und noch etwas:
Ich konnte es noch nicht schaffen, aus dem Formular eine CheckBox auszulesen. So hatte ich es versucht: [color=#008000]oSRCheckBox = oForm.getByName("SRCheckBox")'.boolean[/color] Es kommt eine Fehlermeldung, mit dem Hinweis: "Falscher Wert für Eigenschaft"

Soweit ich mich erinnere geht das nicht über Deklarationen - Du musst das gewünschte Format manuell zusammen setzen (als [i]string[/i]?) und HSQLDB "vorwerfen"

sSQL = CStr("INSERT INTO "+CHR(34)+"LOGTabelle"+CHR(34)+" (""Name"", ""Zeitstempel"", ""Datum"") VALUES ('"+oNameVariable+"', '"+oTimeStamp+"','"+oDatumsFeld+"')")

Ersteinmal vielen Dank.
Die SQL-Syntax stimmt jetzt schon mal:
[code]sSQL = CStr("INSERT INTO "+CHR(34)+"LOGTabelle"+CHR(34)+" (""Name"", ""Zeitstempel"", ""Datum"") VALUES ('"+oNameVariable+"', '"+oTimeStamp+"','"+oDatumsFeld+"')")[/code]

Aber was ich schon befürchtet habe, ist Zuordnung der Datentypen (ich arbeite mit der HSQLDB in Base):

z.B. der Zeitstempel: generieren wollte ich ihn aus "[color=#008000]oTimeStamp = Now()[/color]" aber die Datenbank schimpft, dass sie den Wert im Format "YYYY-MM-DD hh:mm:ss" benötigt.

Ebenfalls das Datum: Es wird aus einem Datumsfeld in einem Formular ausgelesen: [color=#008000]odatAusgabe = oForm.getByName("datAusgabe").date[/color]Wenn ich es mir in einer MsgBox ausgeben lasse, so hat es das Format "YYYYMMDD". Aber auch das nimmt die Datenbank nicht an. Die Tabellenfelder sind natürlich entsprechend formatiert.

Kann mir jemand sagen, wie ich die Datentypen entsprechend deklarieren muss?

vielen Dank

Hallo Stephan,
Du hast ein Problem mit der Klammer am Ende, die ja bereits beim ersten Anlauf gesetzt wurde.
Schau dir das endgültige SQL-Statement mal mit einer msgbox an. Da wird es Dir auffallen.
Gruß eBayer

sSQL = "INSERT INTO "+CHR(34)+"LOGTabelle"+CHR(34)+" ("+CHR(34)+"Name"+CHR(34)
sSQL = sSQL +") VALUES ('"+oNameVariable+"')" 'funktioniert mit einem Eintrag	

sSQL = sSQL+ CHR(34)+"Artikelnummer"+CHR(34)+" = '"+oArtikelNrVariable+"', "	'weitere Zelle funktioniert nicht
oStatement.executeUpdate(sSQL)

Also bei der Möglichkeit, die Daten direkt als fertigen SQL-String zuübergeben, bin ich nun schon ein bisschen weiter.
D.h., ich schaffe es einen Wert je Datensatz zu schreiben. Und zwar so:
[code]sSQL = "INSERT INTO "+CHR(34)+"LOGTabelle"+CHR(34)+" ("+CHR(34)+"Name"+CHR(34)
sSQL = sSQL +") VALUES ('"+oNameVariable+"')" 'funktioniert mit einem Eintrag [/code]

Und auf folgende Weise wollte ich den String um weitere Zellen erweitern:
[code]sSQL = sSQL+ CHR(34)+"Artikelnummer"+CHR(34)+" = '"+oArtikelNrVariable+"', " 'weitere Zelle funktioniert nicht
oStatement.executeUpdate(sSQL)[/code]
Hier erscheint dann die Fehlermeldung:
[color=#000080]BASIC-Laufzeitfehler.
Es ist eine Exception aufgetreten
Type: com.sun.star.sdbc.SQLException
Message: Unexpectet token: Artikelnummer in Statment ["Artikelnummer"].[/color]

Das geht zwar schon ziemlich in Richtung Baseforum, aber da ich hier nun angefangen habe...

Desweiteren: Muss ich die Datentypen im SQL-String definieren oder lediglich die Variablen entsrechend bearbeiten?

'''''''''''Verbindung zur Zieltabelle:

           DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
           oDatenquelle = DatabaseContext.getByName("DB-Name")
           
           If not oDatenquelle.IsPasswordRequired Then
           		oDatVerb = oDatenquelle.getConnection("","")	'("Benutzername","Passwort")
     	   else
           		oHandler = oDatenquelle.createUnoService("com.sun.star.sdb.InteractionHandler")
           		oDatVerb = oDatenquelle.ConnectWithCompletion(oHandler)
           End If
           
           oStatement = oDatVerb.createStatement()
           'oStatement.setPropertyValue("ResultSetConcurrency", 1008) 'ein weiterer Versuch, die Tabelle updatebar zu machen

           oStatement.ResultSetConcurrency = com.sun.star.sdbc.ResultSetConcurrency.UPDATABLE
           oStatement.ResultSetType = com.sun.star.sdbc.ResultSetType.SCROLL_SENSITIVE			
           
           sSQL = "SELECT ""Zeitpunkt"", ... FROM ""LOGTabelle"" AS ""LOGTabelle"""
           oErgSet = oStatement.executeQuery(sSQL)
           
'''''''''''Daten schreiben:        
           
           oErgSet.moveToInsertRow()				'neue Datensatz erstellen
           oErgSet = UpdateTimeStamp(1, oTimeStamp)
           ...
           oErgSet.insertRow()					'Datensatz speichern

End sub

SQL_Befehl = "UPDATE "+CHR(34)+"LOG_Tabelle"+CHR(34)+" SET "+CHR(34)+"Spaltenname"+CHR(34)+" = '"+VariablenNameZumFüllenDesFeldes+"', "
oStatement.executeUpdate(SQL_Befehl)

Den ganzen Tag bin ich nun schon auf der Fehlersuche - leider vergebens.

In eine Tabelle möchte ich per Makro einen neuen Datensatz einfügen. Allerdings bekomme ich immer wieder die Fehlermeldung, dass das ResultSet nur "read only" ist.
Habe ich noch einen Fehler in meinem code?
(übrigens: Die Tabelle hat einen Primärschlüssel / ist wohl eine häufige Fehlerquelle)

[code]
'''''''''''Verbindung zur Zieltabelle:

DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
oDatenquelle = DatabaseContext.getByName("DB-Name")

If not oDatenquelle.IsPasswordRequired Then
oDatVerb = oDatenquelle.getConnection("","") '("Benutzername","Passwort")
else
oHandler = oDatenquelle.createUnoService("com.sun.star.sdb.InteractionHandler")
oDatVerb = oDatenquelle.ConnectWithCompletion(oHandler)
End If

oStatement = oDatVerb.createStatement()
'oStatement.setPropertyValue("ResultSetConcurrency", 1008) 'ein weiterer Versuch, die Tabelle updatebar zu machen

oStatement.ResultSetConcurrency = com.sun.star.sdbc.ResultSetConcurrency.UPDATABLE
oStatement.ResultSetType = com.sun.star.sdbc.ResultSetType.SCROLL_SENSITIVE

sSQL = "SELECT ""Zeitpunkt"", ... FROM ""LOGTabelle"" AS ""LOGTabelle"""
oErgSet = oStatement.executeQuery(sSQL)

'''''''''''Daten schreiben:

oErgSet.moveToInsertRow() 'neue Datensatz erstellen
oErgSet = UpdateTimeStamp(1, oTimeStamp)
...
oErgSet.insertRow() 'Datensatz speichern

End sub[/code]

[color=#008000]MsgBox oDatVerb.isReadOnly[/color] gibt mir 'false' aus. Demnach müsste die Verbindung updatebar sein, oder?
[color=#008000]oDatVerb.setReadOnly(false)[/color] gibt die Fehlermeldung: "This call is not allowed when sharing connections."

Mit dem direkten SQL-Befehl habe ich es auch schon versucht, aber da stimmt wohl die Syntax noch nicht (und außerdem würde ich die andere Variante bevorzugen):
[code]
SQL_Befehl = "UPDATE "+CHR(34)+"LOG_Tabelle"+CHR(34)+" SET "+CHR(34)+"Spaltenname"+CHR(34)+" = '"+VariablenNameZumFüllenDesFeldes+"', "
oStatement.executeUpdate(SQL_Befehl)[/code]


Vielen Dank schon mal