OpenOffice.info

Zu guter Letzt (?) eine ganz einfache Lösung mit der Serienbrieffunktion ...

Erstelle ein leeres Writerdokument und öffne mit F4 die Datenbank mit deinen Emails. Dann ziehst du mit der Maus den Spaltenkopf der Mails ins Dokument, fügst danach einen Feldbefehl "Nächster Datensatz" mit Semikolon und Leerzeichen ein. Markiere die Eingabe und kopiere sie sooft, wie du sie brauchst. (Lässt sich auch gruppenweise kopieren.)

Wenn dich die Feldbefehle dann stören sollten: Einfach markieren, ausschneiden und als unformatierten Text an derselben Stelle wieder einfügen.

SELECT "spaltenname"  INTO TEXT "meineSpalteAlsText" FROM "tabellenname" 

cat meineSpalteAlsText.csv | tr '\n' ';' > meineSpalteAlsTextHintereinander

...und jetzt ich noch mit einer Lösung 8)

Ausführen eines SQL-Befehls über [color=#0040FF]Extras>SQL...[/color], bei der eingebauten HSQLDB bspw.

[code]SELECT "spaltenname" INTO TEXT "meineSpalteAlsText" FROM "tabellenname" [/code]
[erstellt im Verzeichnis der Datenbank-Datei (*.odb) eine Datei [color=#008000]meineSpalteAlsText.csv[/color]]

und dann ersetzen des Zeilenumbruchs pro Zeile durch Semikolon (unter Linux)

[code]cat meineSpalteAlsText.csv | tr '\n' ';' > meineSpalteAlsTextHintereinander[/code]

Kein Makro, keine umständlichen SQL-Befehle

Hi,

@ R: perfekt, genau das habe ich gesucht! Habs angepasst und es funktioniert super!

@all: Danke für Eure Hilfe!

lg Michi

Sub S_Join_Email_Adresses
    oform = Thiscomponent.drawpage.forms.MainForm
    oform.first
    oresult = oform.createresultset
    nemailcolumn = oresult.findcolumn("email")'Spaltennummer email auslesen
    nexportcolumn = oresult.findcolumn("export")'Spaltennummer export auslesen
    dim sEmails(0) as string
    i = 0
    do
         if oresult.getboolean(nexportcolumn) = true then 'Wenn export angehakt
             redim preserve sEmails(i)
             sEmails(i) = oresult.getstring(nemailcolumn) '...Adresse auslesen
             i = i+1
         endif
    loop while oresult.next
    salleEmail = join(sEmails,"; ")'verbinden
    otxtEmails = oform.txtEmails
    otxtEmails.string = salleEmail
end sub

Moin,
anbei ein kleines Beispiel mit einem Makro.
Öffne das Formular Kontakte, markiere gewünschte Einträge in der Spalte export, drücke "Auswahl speichern" dann "EMails verbinden".
Der gewünschte Text erscheint im Textfeld und kann mit strg + C in die Zwischenablage kopiert werden.

Das verwendete Makro sieht so aus:
[code]Sub S_Join_Email_Adresses
oform = Thiscomponent.drawpage.forms.MainForm
oform.first
oresult = oform.createresultset
nemailcolumn = oresult.findcolumn("email")'Spaltennummer email auslesen
nexportcolumn = oresult.findcolumn("export")'Spaltennummer export auslesen
dim sEmails(0) as string
i = 0
do
if oresult.getboolean(nexportcolumn) = true then 'Wenn export angehakt
redim preserve sEmails(i)
sEmails(i) = oresult.getstring(nemailcolumn) '...Adresse auslesen
i = i+1
endif
loop while oresult.next
salleEmail = join(sEmails,"; ")'verbinden
otxtEmails = oform.txtEmails
otxtEmails.string = salleEmail
end sub[/code]
Dies funktioniert so nur, wenn die Namen der Kontrollelemente und Tabellenspalten dazu passen:

Auf dem Formular:
[color=#0040FF]MainForm
txtEmails
[/color]
In der Tabelle Kontakte die Spalten
[color=#0040FF]email
export[/color]

Viel Erfolg beim Nachvollziehen

Gruß R

SELECT "a"."EMail", (SELECT COUNT("ID") WHERE "ID" <= "a"."ID") AS "Nr" FROM "Tabelle" AS "a"

SELECT "EMail"||IFNULL(';'||(SELECT "EMail" FROM "Ansicht" WHERE "Nr"=2),'')||IFNULL(';'||(SELECT "EMail" FROM "Ansicht" WHERE "Nr"=3),'') .... FROM "Ansicht" WHERE "Nr" =1

Hallo Michi,

Du kannst aus verschiedenen Datensätzen der gleichen Tabelle nur begrenzt komplette Felder in einem Datensatz generieren. Das normale Verfahren dazu besteht in der Durchnummerierung der einen Tabelle zu einem View und der anschließenden Erstellung einer Abfrage mit lauter Subselects. Für Deine Tabelle würde das so aussehen:
View -
[code]
SELECT "a"."EMail", (SELECT COUNT("ID") WHERE "ID" <= "a"."ID") AS "Nr" FROM "Tabelle" AS "a"
[/code]
Jetzt hast Du eine Ansicht (View) mit durchnummerierten Datensätzen ab 1 aufwärts - ID sollte vorher der Primärschlüssel sein.
Abfrage -
[code]
SELECT "EMail"||IFNULL(';'||(SELECT "EMail" FROM "Ansicht" WHERE "Nr"=2),'')||IFNULL(';'||(SELECT "EMail" FROM "Ansicht" WHERE "Nr"=3),'') .... FROM "Ansicht" WHERE "Nr" =1
[/code]
Du müsstest hier aber genau wissen, wie viele Datensätze denn mindestens vorhanden sind. Geht einmal zu konstruieren z.B. für einen Mailverteiler "Vorstand eines Vereins" - nicht aber "Mitglieder eines Vereins", es sei denn, das sind nicht allzu viele.

Für eine allgemeine Lösung müsstest Du das Ganze über ein Makro bestücken, d.h. jeden Wert aus der Tabelle auslesen und anschließend zu einem gemeinschaftlichen Wert verknüpfen und wieder in eine Tabelle eintragen.
Ansätze dazu sind z.B. im Base-Handbuch von LO zu finden (Verknüpfung zu Datenbanken, Daten aus Tabellen auslesen, neues Verknüpfen, Daten in eine Tabelle einfügen). Das Handbuch findest Du hier:
[url]http://de.libreoffice.org/hilfe-kontakt/handbuecher/[/url] - für das Base-Handbuch etwas nach unten scrollen.

Gruß

Robert

Hi,

ich habe eine Tabelle, in der unter anderem die email-Adresse verwaltet ist. Jetzt würde ich gerne alle email Adressen so zu einem einzigen String verbinden, dass ich ihn direkt in das Adressfeld des email-Programms kopieren kann.
Es sollte also aus

a@x.com
b@y.com
c@z.com

a@x.com; b@y.com; c@z.com

werden.Ich hätte gesagt, man löst das über einen Bericht, es gelingt mir aber nicht die einzelnen Felder miteinander zu verknüpfen....

Habt ihr eine Idee dazu?

lg Michi