OpenOffice.info

Code: Alles auswählen

Sub Formularoeffnen
   Dim prop(1) as New com.sun.star.beans.PropertyValue
   Dim dbContext As Object
   dbContext = createUnoService("com.sun.star.sdb.DatabaseContext")
   oDataSource = dbContext.GetByName("DB")
   oForms = oDataSource.DatabaseDocument.FormDocuments
   oForms.loadComponentFromURL("STARTFORMULAR","_blank",63,prop())
End Sub

Code: Alles auswählen

Dim Context AS Object
Dim Conn As Object
Dim DB As Object
Dim FormDoc As Object
Dim Args(1) As New com.sun.star.beans.PropertyValue
Dim FormName As String
       
FormName = "STARTFORMULAR"
Context=CreateUnoService("com.sun.star.sdb.DatabaseContext")
DB=Context.getByName("DB")
Conn=DB.getconnection("","")
Args(0).Name="ActiveConnection" : Args(0).Value=Conn
Args(1).Name="OpenMode" : Args(1).Value="open"
FormDoc=DB.DatabaseDocument.FormDocuments.loadComponentFromURL(FormName,"_self",2,Args)
FormDoc.CurrentController.Frame.ContainerWindow.setFocus()

Code: Alles auswählen

Sub FENSTER_MINIMIEREN_UND_STARTFORMULAR_OEFFNEN

Dim oFrame As Object
Dim handle

oFrame = ThisComponent.CurrentController.Frame
oMenuWin = oFrame.ContainerWindow()
handle = oMenuWin.getWindowHandle(dimarray(), 1) ' 1 = WIN32
ShowWindow( handle, 2 ) ' ' 1 = SW_NORMALIZE / 2 = SW_ICONIZE / 3 = SW_MAXIMIZE

Dim Context AS Object
Dim Conn As Object
Dim DB As Object
Dim FormDoc As Object
Dim Args(1) As New com.sun.star.beans.PropertyValue
Dim FormName As String
       
FormName = "STARTFORMULAR"
Context=CreateUnoService("com.sun.star.sdb.DatabaseContext")
DB=Context.getByName("DB-Name")
Conn=DB.getconnection("","")
Args(0).Name="ActiveConnection" : Args(0).Value=Conn
Args(1).Name="OpenMode" : Args(1).Value="open"
FormDoc=DB.DatabaseDocument.FormDocuments.loadComponentFromURL(FormName,"_self",2,Args) REM << BASIC-Laufzeitfehler.
FormDoc.CurrentController.Frame.ContainerWindow.setFocus()
ThisDatabaseDocument.FormDocuments.getByName("STARTFORMULAR").open

End Sub

Code: Alles auswählen

sub FORM_BEARBEITUNG_NUMMERNFILTER

           Dim oFeld as variant
           Dim oDoc2 as variant
           Dim oForm2 as variant

           oDoc2 = ThisComponent
           oForm2 = oDoc2.DrawPage.Forms.getByIndex(0)
        REM das Feld des Formulars wird ausgelesen:
           oFeld = oForm2.getByName("WertTextBox")
           sSuchwort = oFeld.text
           
           oForm2.filter = "`Nr` = "+ cInt(sSuchwort) 'dann Filter setzen
           oForm2.ApplyFilter=true 'setzen des Filters für das neue Formulardokument
           
           if oForm2.isModified = true then 'Überprüfung ob Datensatz modifiziert wurde - wenn ja, dann:
           oForm2.upDateRow() 'geänderten Datensatz speichern
           end if
           
           oForm2.reload()
end sub

Code: Alles auswählen

Sub DATENBANK_DEFRAGMENTIEREN

	Dim DatabaseContext as Object
	Dim oDatenquelle as Object
	Dim oHandler as Object
	Dim oDatVerb as Object
	Dim oStatement as Object
	Dim oErgSet as Object
	
	
	DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
	
	oDatenquelle = DatabaseContext.getByName("Datenbankname")
	
	If not oDatenquelle.IsPasswordRequired Then
	oDatVerb = oDatenquelle.getConnection("","")
	else
	oHandler = oDatenquelle.createUnoService("com.sun.star.sdb.InteractionHandler")
	oDatVerb = oDatenquelle.ConnectWithCompletion(oHandler)
	end if
	
	oStatement = oDatVerb.createStatement()
	oErgSet = oStatement.executeQuery("Checkpoint Defrag")
	
end sub