OpenOffice.info

     DbName = ThisDatabaseDocument.DataSource.Name

    DataSource = createUnoService("com.sun.star.sdb.DatabaseContext").getByName(DbName)
    Connection = DataSource.GetConnection("","")
    oStatement = Connection.createStatement() 
	xe = oStatement.executeQuery("Select ""Firmenname"" , ""Abteilung""  FROM ""Firma"" ORDER BY ""Firmenname"" ASC")
	
	Do While xe.Next
		tmp = UBOUND(listeninhalt())
		Redim Preserve listeninhalt(tmp + 1)
		If Len(xe.getString(2)) > 0 Then
				listeninhalt(tmp + 1) = xe.getString(1) & " [" & xe.getString(2) & "]"
			Else
				listeninhalt(tmp + 1) = xe.getString(1)
		End If
	Loop
		
	ThisComponent.drawpage.forms.getbyindex(0).getByName("combo_1").StringItemList = listeninhalt()

WAs der Screenshot sagen soll ist mr unklar.

Werte aus einer bestehenden Datenbank bekommt man z.B. so in eine Combobox (ThisDatabaseDocument entspricht im Beispiel dem *.odb-Dokument, ThisComponent entspricht, aus Sicht des Makros, einem Formular innerhalb des *.odb-Dokuments):

[code] DbName = ThisDatabaseDocument.DataSource.Name

DataSource = createUnoService("com.sun.star.sdb.DatabaseContext").getByName(DbName)
Connection = DataSource.GetConnection("","")
oStatement = Connection.createStatement()
xe = oStatement.executeQuery("Select ""Firmenname"" , ""Abteilung"" FROM ""Firma"" ORDER BY ""Firmenname"" ASC")

Do While xe.Next
tmp = UBOUND(listeninhalt())
Redim Preserve listeninhalt(tmp + 1)
If Len(xe.getString(2)) > 0 Then
listeninhalt(tmp + 1) = xe.getString(1) & " [" & xe.getString(2) & "]"
Else
listeninhalt(tmp + 1) = xe.getString(1)
End If
Loop

ThisComponent.drawpage.forms.getbyindex(0).getByName("combo_1").StringItemList = listeninhalt()
[/code]


Gruß
Stephan

Hallo,

ich habe mir mit Base eine Datenbank erstellt, die auch funktioniert.

Wenn ich eine Zeile auswähle und "Daten in Text" erscheint alles in meinem Dokument.

Ich möchte aber die Spalteninhalte automatisch in ein Listenfeld ausgeben lassen um diese so in mein
Writerdokument einzupflegen.

Wer hat einen Tipp für mich bitte?

Liebe Grüße
Thomas

[attachment=0]Bildschirmfoto 2020-12-11 um 21.12.37.png[/attachment]