Beispiel Abfrage
Verfasst: Di, 03.02.2004 11:23
Hier ein Code-Beispiel für eine DB-Abfrage:
Zugriff auf ein Formularfeld (Typ Textfeld - daher die Eigenschaft .text - da muss man immer suchen, bis man die richtige Eigenschaft findet 
)
MAC
Code: Alles auswählen
dim oDBConnection, oDBContext, oDataSource, oStatement, oResultset as Object
sDBName = "bestellungen" ' name der datenquelle
oDBContext=CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDataSource=oDBContext.GetByName(sDBName)
oDBConnection=oDataSource.GetConnection("","")
oStatement=oDBConnection.createStatement()
oResultSet=oStatement.executeQuery ("SELECT * from bestellungen.bestellungen")
while oResultSet.next()
' zeigt das zweite feld in der tabelle an
msgbox oResultSet.getString(2)
wend
' ein update statement würde wie folgt ausschauen
' oStatement.executeUpdate ("update bestellungen.bestellungen set GedrucktFlag='1'")
Code: Alles auswählen
oForm=THISCOMPONENT.DrawPage.Forms.getByName("Standard")
bezahlttext = oForm.getByName("bezahltext")
msgbox bezahlttext.text