OpenOffice.info

Code: Alles auswählen

ub maxFrameEinnahmen()' automatisch jedem Button den akteullen Mieternamen zuordnen
  Dim oFrame as Object, oWindow,frame,document, dispatcher, oButton1 as Object
  oFrame = ThisComponent.CurrentController.Frame
  oWindow = oFrame.ContainerWindow()
  dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FullScreen" : args1(0).Value = true
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:FullScreen", "", 0, args1())
dim SQL as string
SQL="SELECT ""Mietverläufe"".""Verlaufs-ID"", ""Mietverläufe"".""Objekt-ID"", ""Mietverläufe"".""Mieter-ID"", ""Mieter & Pächter"".""Name"", ""Mieter & Pächter"".""Vorname"" FROM ""Mietverläufe"" AS ""Mietverläufe"", ""Mieter & Pächter"" AS ""Mieter & Pächter"" WHERE ""Mietverläufe"".""Mieter-ID"" = ""Mieter & Pächter"".""Mieter-ID"" AND ""Mietverläufe"".""Objekt-ID"" = 1 ORDER BY ""Mietverläufe"".""Verlaufs-ID"" ASC"
oDatabaseContext=CreateUnoService("com.sun.star.sdb.DatabaseContext")
oDataSource=oDatabaseContext.getbyName("Verwaltung")
oConnection=oDataSource.getConnection("", "")
oQuery= oConnection.createStatement()
oStatement   = oConnection.createStatement()
oResultSet   = oQuery.executeQuery(SQL)
'oStatement.ResultSetType=1004
while oResultSet.next
MieterName=oResultset.getString(4)
MieterVorname=oResultset.getString(5)
wend
Mietername= MieterName + ", " + MieterVorname
oButton1 = oFrame.getElementByName("Test1")
oButton1.Label =MieterName
End Sub

Code: Alles auswählen

oDok = ThisComponent
oForm = oDok.Drawpage.Forms.getByName( "MainForm" )
oFeld = oForm.getByName( "Test1" )