ich versuche schon seit mehreren Tagen mit Hilfe einer SQL-Abfrage Daten in eine Tabelle zu schreiben.
Die Verbindung zur Tabelle funktioniert und es werden auch Daten in die Tabelle geschrieben, allerdings schreibt er nicht den Wert, sondern den Variablennamen in die Tabelle!
Code: Alles auswählen
Sub SchreibeTabelle ()
Dim myDataBaseContext as Object
Dim myDataSource as Object
Dim myConnection as Object
Dim myStatement as Object
Dim myResultSet as Object
Dim art as String
Dim bereichstring as String
Dim bezeichnungstring as String
Dim Daten(2)
'lediglich zum Testen, Array wird später von anderem Sub übergeben
Daten(0) = "test1"
Daten(1) = "test2"
Daten(2) = "test3"
art = Daten(0)
bereichstring = Daten(1)
bezeichnungstring = Daten(2)
myDataBaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
myDataSource = myDataBaseContext.getByName("AktionenDB")
myConnection = myDataSource.getConnection("","") 'kein Login/Passwort gesetzt..
myStatement = myConnection.createStatement()
myStatement.executeUpdate("INSERT INTO ""tblBeschreibung"" (ID,""Art"",""Bereich"",""Beschreibung"") VALUES (null,'art','bereichstring','bezeichnungstring')"
myConnection.close()
End SubVermutlich gibt es noch eine weitere Hochkomma-Regel, die mir nicht bekannt ist. Hab schon vieles erfolglos ausprobiert.
Gruß
Michael
