OpenOffice.info

Code: Alles auswählen

sub ListBox_fuellen

' Datenbankverbindung
' Kontext holen
oDatenbankKontext = CreateUnoService ( "com.sun.star.sdb.DatabaseContext" )
' Datenquelle auswählen
' Name der registrierten Datenquelle
oDatenquelle = oDatenbankKontext.getByName( "db_test3" )

'
oDatenquelle.setLoginTimeout( 10 )
' Verbindung zur DB herstellen
'
If Not oDatenquelle.IsPasswordRequired Then
   oVerbindung = oDatenquelle.getConnection("","")
Else
   oInteractionHandler = createUnoService( "com.sun.star.sdb.InteractionHandler" )
   oVerbindung = oDatenquelle.connectWithCompletion( oInteractionHandler )
End If

' Verbindung nicht geklappt
If IsNull( oVerbindung ) Then
   msgbox "keine Verbindung zur DB (user/passwort falsch?)"
   exit sub
End If


' Abfrage
sSQL = "SELECT s_lname from staff order by s_lname;"

' Statement erzeugen
oStatement = oVerbindung.createStatement
' Abfrage absetzen
oResultSet = oStatement.executeQuery( sSQL )

' Ergebnis
While oResultSet.Next()
  'msgbox oResultSet.getString(1)
  s = oResultSet.getString(1) '1. Spalte in Tabelle
 
  Dim oListBox as Object, aListe(), oForm as Object
  oForm = thisComponent.sheets(0).Drawpage.Forms(0)
  oListBox = oForm.getByName("ListBox")
 
   aListe = oListBox.StringItemList
   n = UBound(aListe())
   redim preserve aListe(n + 1)
   aListe (n+1) = s
   oListBox.StringItemList = aListe
end sub

Code: Alles auswählen

          Select Case aSpaltenTyp( zc )

             Case "NUMBER", "INTEGER"
                aDatenZeile( zc ) = oRowSet.getInt( zc + 1 )
             Case "VARCHAR2" , "VARCHAR"

Code: Alles auswählen

Sub base_readOracle
' Java 1.6.0.1

GlobalScope.BasicLibraries.LoadLibrary( "Tools" )

' RowSet auf Oracle: NAMEN GROSS SCHREIBEN ! 
sSQL = " SELECT * FROM Tabelle ORDER BY tab_ID  "

' Kontext holen
Dim oDBKontext 
oDBKontext = CreateUnoService ( "com.sun.star.sdb.DatabaseContext" )

If IsNull( oDBKontext ) Then
	msgbox "kein DB Kontext" 
	exit sub
End If

' Datenquelle auswählen
' name of OOo registered data source
oDatenquelle = oDBKontext.getByName( "base_oracleDB" )
 ' Verbindung zur DB herstellen
If Not oDatenquelle.IsPasswordRequired Then
	oVerbindung = oDatenquelle.getConnection( , )
Else
	oInteractionHandler = createUnoService( "com.sun.star.sdb.InteractionHandler" )
	oVerbindung = oDatenquelle.connectWithCompletion( oInteractionHandler ) 
End If 


oRowSet = createUnoService("com.sun.star.sdb.RowSet")
oRowSet.ActiveConnection = oVerbindung
oRowSet.setPropertyValue( "Command", sSQL ) 
oRowSet.execute()


' wenn ungleich 0: Anzahl feststellen
If oRowSet.getPropertyValue( "RowCount" )  Then

' Drew Jensen Sat Aug 19, 2006 4:49 pm
' http://www.oooforum.org/forum/viewtopic.phtml?t=41470
	oRowSet.Next
    bkMark = oRowSet.getBookMark()
    oRowSet.Last
    oRowSet.moveToBookmark( bkMark )
Else
	Msgbox "Keine Zeilen erhalten  - beende das Makro"
	Exit Sub
End If

' Zeilen- und Spaltenanzahl
iAnzahlZeilen = oRowSet.getPropertyValue( "RowCount" )  
iAnzahlSpalten = oRowSet.Columns.getCount()

' __________________________________________________________________
' neues Calc Dokument
' im Hintergrund erstellen
' Bereich zum Füllen holen
oDeskNeu = _
 createUnoService( "com.sun.star.frame.Desktop" )

Dim OpenProperties(1) as new com.sun.star.beans.PropertyValue 
OpenProperties(0).Name = "Hidden"
OpenProperties(0).Value = True
 
sNeuURL = _
 "private:factory/scalc"
oNeuDok = _
 oDeskNeu.loadComponentFromURL( sNeuURL, "_blank" , 0 , OpenProperties() )
oBlatt = _
 oNeuDok.Sheets.getByIndex( 0 ) 

oBereich = _
 oBlatt.getCellRangeByPosition( 0, 0, iAnzahlSpalten - 1 , iAnzahlZeilen ) 
' __________________________________________________________________



ReDim aDatenzeile( iAnzahlSpalten - 1 )

oDaten = _
 oBereich.getDataArray()

' Spaltenbeschriftung ermitteln
for i = 0 to oRowSet.getColumns().getCount() - 1
 aDatenZeile( i ) = oRowSet.getColumns().getByIndex( i ).Name
next i 
' Spaltenüberschrift setzen
oDaten( 0 ) = aDatenZeile() 

ReDim aSpaltenTyp( iAnzahlSpalten - 1 ) as String
' Spaltentypen ermitteln
for i = 0 to oRowSet.getColumns.getCount() - 1
	aSpaltenTyp( i ) =  oRowSet.getColumns.getByIndex( i ).TypeName
next

' Datenzeilen besetzen
for zz = _
	1  to _
	UBound( oDaten() )  

	aDatenZeile() = oDaten( zz )
	' zz: ZählerZeilen

	' Spalten-/Zellen-Zähler
	for zc = _
		0 to _
		iAnzahlSpalten - 1 
		
'
		Select Case aSpaltenTyp( zc ) 
			Case "NUMBER" 
				aDatenZeile( zc ) = oRowSet.getInt( zc + 1 )
			Case "VARCHAR2"
				aDatenZeile( zc ) = oRowSet.getString( zc + 1 )
			CASE "DATE"				
				oDatum = _
					oRowSet.getTimestamp( zc + 1 )
				sDatum = _
					oDatum.Year & _
					"-" & _
					Format( oDatum.Month, "00" ) & _
					"-" & _
					Format( oDatum.Day, "00" ) & _
					" " & _
					Format( oDatum.Hours, "00" ) & _
					":" & _
					Format( oDatum.Minutes, "00" ) & _
					":" & _
					Format( oDatum.Seconds, "00" )
'				print "a" 
'				aDatenZeile( zc ) = oRowSet.getDate( zc + 1 )
				aDatenZeile( zc ) = oRowSet.getString( zc + 1 )			
		End Select

		
	next ' Zellen

'	xray aDatenZeile()

	' 
	oRowSet.next()
next ' Zeile

' Daten setzen
oBereich.setDataArray( oDaten() ) 
' __________________________________________________________________


' Dokument anzeigen 
oNeuDok.getCurrentController().getFrame().getContainerWindow().Visible =  TRUE 

End Sub