Makro schreibt Feld in Tabelle
Verfasst: Fr, 18.01.2008 11:46
Hallo,
ich habe folgenden Code um in einer tabelle eine neue Row anzulegen und zu beschreiben. Ich möchte ihn nun so abändern, dass er nur ein oder 2 Felder des aktuellen Formulardatensatzes in die tabelle schreibt und danach keine neue Row anlegt. ich möchte einfach nur einige Formularfelder des aktuellen datensatzes zurücksetzen und dann mit diesem Datensatz weiterarbeiten.
Hier mal der aktuelle Code:
Kann mir jemand weiterhelfen?=)
ich habe folgenden Code um in einer tabelle eine neue Row anzulegen und zu beschreiben. Ich möchte ihn nun so abändern, dass er nur ein oder 2 Felder des aktuellen Formulardatensatzes in die tabelle schreibt und danach keine neue Row anlegt. ich möchte einfach nur einige Formularfelder des aktuellen datensatzes zurücksetzen und dann mit diesem Datensatz weiterarbeiten.
Hier mal der aktuelle Code:
Code: Alles auswählen
sub update
Dim dbContext
Dim dataSource
Dim connection
Dim stmt
Dim dest
dbContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
dataSource = dbContext.getByName("DBImportF4") ' This is an OOo 2.0 Base HSQL registered
data source
connection = dataSource.getConnection("", "")
dest = createUnoService("com.sun.star.sdb.RowSet")
With dest
.activeConnection = connection
.CommandType = com.sun.star.sdb.CommandType.COMMAND
.Command = "SELECT * FROM ""Adressen2"""
.execute
.afterlast
End With
dest.moveToInsertRow()
dest.updateNull(1)
dest.updateNull(2)
dest.updateString(3, txtKundennr)
dest.insertRow()
end sub