OpenOffice.info

Code: Alles auswählen

If Not IsNull(Kraftstoff) Then
  While Kraftstoff.next
    j = j+1
    MyArray2(j) = array( CInt(Kraftstoff.getString(1)),  CInt(Kraftstoff.getString(2)),  CInt(Kraftstoff.getString(3)), CInt(Kraftstoff.getString(4)),  CInt(Kraftstoff.getstring(5)),  CInt(Kraftstoff.getstring(6)),  CInt(Kraftstoff.getstring(7)),  CInt(Kraftstoff.getstring(8)),  CInt(Kraftstoff.getstring(9)),  CInt(Kraftstoff.getstring(10)),  CInt(Kraftstoff.getstring(11)),  CInt(Kraftstoff.getstring(12)),  CInt(Kraftstoff.getstring(13)),  CInt(Kraftstoff.getstring(14)),  CInt(Kraftstoff.getstring(15)))
  Wend	
  	redim Preserve MyArray2(j)
End If

Code: Alles auswählen

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

' Datenquelle auswählen
' registrierte Datenquelle
oDatenquelle = oDatenbankKontext.getByName( "hsqldb_test1" )


sQuery = "qry_order_positionen_Parameter"

' Abfragen
oAbfragen = oDatenquelle.QueryDefinitions 
' gewünschte Abfrage vorhanden?
if ( oAbfragen.hasByName( sQuery) ) Then
' Abfrage holen
oAbfrage = oAbfragen.getByName( sQuery )


' SQL-Ausdruck von Abfrage entnehmen
 sQuery = oAbfrage.Command
 ' Verbindung zur DB herstellen
 oVerbindung = oDatenquelle.getConnection( , )
 ' Statement erzeugen
 oStatement = oVerbindung.createStatement()
 ' Abfrage absetzen
 oResultSet = oStatement.executeQuery( oAbfrage.Command )

Code: Alles auswählen

ThisComponent.Sheets().getByName( "meineTabelle" )

Code: Alles auswählen

dim MyArray(1000)
    i = -1

    If Not IsNull(ResultSet) Then
      While ResultSet.next
        i = i+1
        MyArray(i) = array( ResultSet.getString(1),ResultSet.getString(2))
      Wend
        redim Preserve MyArray( i )
    End If
    osheet = thiscomponent.sheets(0)
    osheet.getCellRangeByPosition(2,1,3,1+i).setDataArray(MyArray())

Code: Alles auswählen

dim MyArray(2,1000)
dim i as Integer
i = 1
rem ----------------------------------------------------------------------

If Not IsNull(ResultSet) Then
  While ResultSet.next
    MyArray(1,i) = ResultSet.getString(1)
    MyArray(2,i) = ResultSet.getString(2)
    i = i+1
  Wend
End If
osheet = thiscomponent.sheets(0)
osheet.getCellRangeByName("C2:D1000").setDataArray(MyArray())

Code: Alles auswählen

REM  *****  BASIC  *****


sub Main
rem ----------------------------------------------------------------------
rem define variables
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
Dim InteractionHandler as Object
Dim Statement As Object
Dim ResultSet As Object
dim document   as object
dim dispatcher as object
dim args2(0) as new com.sun.star.beans.PropertyValue
dim args3(0) as new com.sun.star.beans.PropertyValue

rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("Neue Datenbank3")
 
rem If Not DataSource.IsPasswordRequired Then
  Connection = DataSource.GetConnection("user","pw")
rem Else
rem  InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
rem  Connection = DataSource.ConnectWithCompletion(InteractionHandler)
rem End If
 
Statement = Connection.createStatement()
ResultSet = Statement.executeQuery("SELECT ""ksttr"", ""bezeichnung_0_"" FROM ""heinebekost"" WHERE ""ksttr"" BETWEEN 1301 AND 1370") rem ""ksttr"", ""bezeichnung_0_""

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$D$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
args2(0).Name = "StringName"
args3(0).Name = "StringName"

If Not IsNull(ResultSet) Then
  While ResultSet.next
    args2(0).Value = ResultSet.getString(1)
    args3(0).Value = ResultSet.getString(2)
    dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
    rem HIER MÜSSTE EIN CODE STEHEN, DER DEN CURSER NACH RECHTS STELLT
    dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args3())
    dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())
  Wend
End If



end sub