LibreOffice-Forum

Code: Alles auswählen

Sub Suchfunktion
	
	dim Datenquelle as object
	Datenquelle = thisComponent.Parent.CurrentController
	if not (Datenquelle.isConnected()) then Datenquelle.connect()
	
	dim Verbindung as object
	Verbindung = Datenquelle.ActiveConnection()
	
	dim Dokument, Seite, Formular, Tabelle_Ergebnis, Dokumentart_fld, Zuordnung_fld, Nummer_fld, Versionsnummer_fld, Titel_fld, Status_fld as object
	Dokument = thisComponent
	Seite = Dokument.drawPage
	Formular = Seite.forms.getByName  ("F_Suchfunktion")
	Tabelle_Ergebnis = Formular.getByName ("F_Ergebnis").getByName ("F_Dokumentenverwaltung")
	Dokumentart_fld = Formular.getByName ("LF_Dokumentart")
	Zuordnung_fld = Formular.getByName ("LF_Zuordnung")
	Nummer_fld = Formular.getByName ("TF_Nummer")
	Versionsnummer_fld = Formular.getByName ("TF_Versionsnummer") 
	Titel_fld = Formular.getByName ("TF_Titel")
	Status_fld = Formular.getByName ("LF_Status")
	
	dim sql as string, stmt as object
	sql = "select ""Dokumentart"", ""Zuordnung"", ""Nummer"", ""Anlagennummer"", ""Versionsnummer"", ""Titel"", ""Autor"", ""gültig ab"", ""gültig bis"" "&_
	"from ""Dokumentenverwaltung"" "&_
	"where ""Dokumentart""= 'A' and ""Zuordnung""= 'QS' and ""Nummer""= ? and ""Versionsnummer""= ? and ""Titel"" like '%" & Titel_fld.Text & "%'"
	stmt = Verbindung.prepareStatement (sql)
	
	'stmt.setString(1,Dokumentart.Text)
	'stmt.setString(2,Zuordnung.Text)
	stmt.setInt(1,Nummer_fld.Text)
	stmt.setInt(2,Versionsnummer_fld.Text)

	 	
	dim Ergebnis as object
	Ergebnis = stmt.executeQuery()
	
	While Ergebnis.next()
		dim Dokumentart as string
		dim Zuordnung as string
		dim Nummer as Integer
		dim Anlagennummer as Integer
		dim Versionsnummer as Integer
		dim Titel as string
		dim Autor as string
		dim gueltig_ab as String
		dim gueltig_bis as String
		
		Dokumentart = Ergebnis.getString(1)
		Zuordnung = Ergebnis.getString(2)
		Nummer = Ergebnis.getInt(3)
		Anlagennummer = Ergebnis.getInt(4)
		Versionsnummer = Ergebnis.getInt(5)
		Titel = Ergebnis.getString(6)
		Autor = Ergebnis.getString(7)
		gueltig_ab = Ergebnis.getString(8)
		gueltig_bis = Ergebnis.getString(9)
		
	
		dim Spalte_1 as object
		Formular.getByName ("F_Ergebnis").moveToInsertRow()
		Spalte_1 = Tabelle_Ergebnis.getByName("Dokumentart")		
		Spalte_1.Text = Dokumentart
	
	Wend

End Sub