<\/p>\n
Autor: André Minhorst, Duisburg<\/p>\n
<\/b>!<\/p>\n
Die Verwaltung von Musik-CDs ist nicht nur für DJs und artverwandte Berufsgruppen interessant: Auch der Hobby-Musikfan dürfte hin und wieder verzweifelt nach einem bestimmten Titel oder einer bestimmten CD suchen. Eine Datenbank zur Verwaltung von CDs, Interpreten und Titeln ist zwar schnell erstellt, doch was dann Das Einpflegen der gewünschten Informationen kann doch recht langwierig werden, wenn Sie alle Einzelheiten vom Interpreten bis zur Spieldauer von Hand eingeben müssen. Im vorliegenden Beitrag lernen Sie eine Lösung kennen, die ein Freeware-Tool verwendet, um Informationen zu vielen herkömmlichen CDs aus dem Internet einzulesen.<\/b><\/p>\n
Das erwähnte Freeware-Tool heißt freeDB.org, im Internet zu finden unter http:\/\/www.freedb.de. Suchen Sie im Download-Bereich das ActiveX-Steuerelement uFREEDB 1.3. <\/p>\n
Zum Einlesen der Daten der CD benötigen Sie einige Methoden der Bibliothek Windows Scripting Runtime. Dazu stellen Sie einen Verweis auf diese Bibliothek ein. Wie dies funktioniert, erfahren Sie im Beitrag Setzen von Verweisen auf Bibliotheken, den Sie auf der Heft-CD im PDF-Format finden. <\/p>\n
Die Erstellung der CD-Verwaltung besteht im Wesentlichen aus vier Schritten: Zunächst erstellen Sie ein Datenmodell, das ein sinnvolles Speichern der Daten wie Albumtitel, Interpret, Songtitel usw. erlaubt. Das ist in der Regel einfach, aber sobald ein Album Titel von mehreren Interpreten enthält, wird es schwierig. Hier reicht dann beispielsweise nicht mehr der Verweis auf den Interpreten des Albums, um den richtigen Interpreten zu ermitteln.<\/p>\n
Der zweite Schritt ist die Bereitstellung einer geeigneten Benutzeroberfläche zur Verwaltung der Daten. Dazu gehören mehrere Formulare, die folgende Aufgaben erfüllen:<\/p>\n
Der dritte Schritt ist das automatisierte Einlesen der Daten von CDs, deren Daten in einer speziellen Internet-Datenbank gespeichert sind. Dies nimmt dem Anwender – abhängig von der Anzahl der CDs – eine Menge Tipparbeit ab.<\/p>\n
Die vierte und letzte Schritt ist die Erstellung von Berichten zur Ausgabe der Albumdaten für den Ausdruck der CD-Cover – beispielsweise, um Sicherheitskopien mit den entsprechenden Informationen zu versehen.<\/p>\n
Die Beispieldatenbanken für Access 97 und Access 2000 finden Sie auf der Heft-CD unter den Dateinamen CD-Verwaltung97.mdb und CD-Verwaltung2000.mdb. Damit die Datenbanken funktionieren, müssen Sie das ActiveX-Steuerelement uFREEDB 1.3 aus dem Internet herunterladen, installieren und ggf. in der Datenbank per Verweis referenzieren. <\/p>\n
Wie bei fast allen Datenbanken steht und fällt der Nutzen der Anwendung mit der Konzeption des Datenmodells. Im vorliegenden Fall gibt es einige Fallstricke, die schnell zu einem unzulänglichen Datenmodell führen können und damit überflüssige Arbeit bescheren.<\/p>\n
Vorüberlegungen<\/b><\/p>\n
Die kleinste Dateneinheit, die in einem Datensatz abgebildet werden soll, ist ein Track (Track soll im Folgenden synonym für Lied, Song, Titel usw. verwendet werden). Zu einem Track gibt es Informationen wie Tracktitel, Interpret oder Spieldauer. Aus technischer Sicht ist es auch wichtig, zu welcher CD der Track gehört. Tracks sollen in einer eigenen Tabelle gespeichert werden.<\/p>\n
Die CD ist die übergeordnete Dateneinheit des Tracks. Zu einer CD gibt es Informationen wie Titel, Interpret usw. In vielen Fällen – beispielsweise bei Zusammenstellungen von aktuellen Hits oder von Filmmusik – gibt es aber unterschiedliche Interpreten. Dann verwenden Sie einen geeigneten zusammenfassenden Begriff wie etwa Diverse Interpreten.<\/p>\n
ähnlich verhält es sich mit der Musikrichtung: Hier kommen in der Regel Sammelbegriffe wie Rock\/Pop, Dancefloor, Klassik usw. zum Einsatz. Auch gibt es CDs, die mehr als eine Stilrichtung enthalten. In dem Fall verwendet man geeignete Sammelbegriffe – z. B. Soundtrack oder Sampler.<\/p>\n
Beide Dateneinheiten sollen in einer eigenen Tabelle gespeichert werden. Dabei beinhaltet der Track-Datensatz eine Information, zu welcher CD er gehört.<\/p>\n
Zusätzlich gibt es eine dritte Dateneinheit, die sich sowohl auf die CD als auch den Track beziehen kann: den Interpreten. Der Interpret lässt sich meist aus dem Interpreten des Albums ableiten, aber – wie z. B. bei Kompilationen oder Soundtracks – nicht immer.<\/p>\n
Interpreten können durchaus mehrere CDs herausbringen, und einzelne Titel können auf unterschiedlichen CDs vorhanden sein und das auch noch in unterschiedlichen Versionen – beispielsweise dem Radio-Mix oder der Maxi-Version mit unterschiedlichen Spielzeiten und Titeln.<\/p>\n
Wie Sie sehen, scheint die Entwicklung des Datenmodells nicht trivial zu sein. Hinzu kommen einige Besonderheiten bei der Art der übermittlung von Informationen aus der Internet-CD-Datenbank.<\/p>\n
Die Tabelle tblCDs<\/b><\/p>\n
Die Tabelle tblCDs enthält die Grundinformationen zu den unterschiedlichen CDs. Dazu gehören der Titel, der Interpret und die Gesamtlaufzeit der CD. In Tabelle 1 finden Sie die Felder der Tabelle sowie deren Beschreibung.<\/p>\n
| \n Feldname<\/b><\/p>\n<\/td>\n | \n Beschreibung<\/b><\/p>\n<\/td>\n<\/tr>\n CDID<\/p>\n<\/td>\n Primärindex der Tabelle<\/p>\n<\/td>\n<\/tr>\n CDTOC<\/p>\n<\/td>\n Aus dem Inhaltsverzeichnis der CD erstellter Index<\/p>\n<\/td>\n<\/tr>\n CDGenre<\/p>\n<\/td>\n Stilrichtung der CD<\/p>\n<\/td>\n<\/tr>\n CDLength<\/p>\n<\/td>\n Gesamtspielzeit der CD<\/p>\n<\/td>\n<\/tr>\n CDName<\/p>\n<\/td>\n Titel der CD<\/p>\n<\/td>\n<\/tr>\n ArtistID<\/p>\n<\/td>\n Verknüpfungsfeld zum gleichnamigen Feld der Tabelle tblArtists<\/p>\n<\/td>\n<\/tr>\n CDNotes<\/p>\n<\/td>\n Bemerkungen<\/p>\n<\/td>\n<\/tr>\n CDTracks<\/p>\n<\/td>\n Anzahl der Titel der CD<\/p>\n<\/td>\n<\/tr>\n CDYear<\/p>\n<\/td>\n Erscheinungsjahr der CD<\/p>\n<\/td>\n<\/tr>\n MediaID<\/p>\n<\/td>\n Weiterer eindeutiger Index<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Felder der Tabelle tblCDs<\/b><\/p>\n Die Tabelle tblArtists<\/b><\/p>\n Die Tabelle tblArtists enthält alle Interpreten. Dabei sollen – um das Datenmodell etwas einfacher zu halten – Kombinationen aus Interpreten als einzelner Interpret in einem eigenen Datensatz gespeichert werden. Die Tabelle enthält lediglich die beiden Felder ArtistID und ArtistName.<\/p>\n Die Tabelle tblTracks<\/b><\/p>\n Die Tabelle tblTracks enthält die einzelnen Tracks der CDs. Auch hier gibt es einen Kompromiss zwischen lehrbuchmäßiger Datenmodellierung und Zweckmäßigkeit:<\/p>\n Erstere verlangt eigentlich nach einer m:n-Beziehung zwischen den Tabellen tblCDs und tblTracks, da jede CD mehrere Tracks enthält, andererseits aber ein Track auch auf mehreren CDs enthalten sein kann. Da dies aber eher seltener vorkommt und die Titel auch meist in anderen Versionen mit unterschiedlichen Spielzeiten vorliegen, soll die Tabelle tblTracks für jeden dieser Fälle einen eigenen Datensatz erhalten.<\/p>\n Eine Zusammenfassung aller Felder der Tabelle tblTracks und deren Beschreibung finden Sie in Tabelle 2.<\/p>\n Feldname<\/b><\/p>\n<\/td>\n Beschreibung<\/b><\/p>\n<\/td>\n<\/tr>\n TitleID<\/p>\n<\/td>\n Primärindex der Tabelle<\/p>\n<\/td>\n<\/tr>\n CDID<\/p>\n<\/td>\n Verknüpfungsfeld zum gleichnamigen Feld der Tabelle tblCDs<\/p>\n<\/td>\n<\/tr>\n TrackNr<\/p>\n<\/td>\n Nummer des Stückes auf der CD<\/p>\n<\/td>\n<\/tr>\n TrackName<\/p>\n<\/td>\n Name des Stückes<\/p>\n<\/td>\n<\/tr>\n TrackTime<\/p>\n<\/td>\n Spielzeit des Stückes<\/p>\n<\/td>\n<\/tr>\n ArtistID<\/p>\n<\/td>\n Verknüpfungsfeld zum gleichnamigen Feld der Tabelle tblArtists<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 2: Die Felder der Tabelle tblTracks<\/b><\/p>\n Möglicherweise wundern Sie sich über die teilweise unkonventionellen Bezeichnungen für Felder und Tabellen – z. B. beginnen fast alle Felder der Tabelle tblCDs mit CD…, was eigentlich nicht üblich ist. Die Bezeichnungen leiten sich aus dem Objektmodell des ActiveX-Steuerelements zum Einlesen der CD-Daten von der Internet-Datenbank ab, wie Sie später sehen werden. <\/p>\n Beziehungen zwischen den Tabellen<\/b><\/p>\n Die Beziehungen zwischen den Tabellen konnten Sie bereits den obigen Beschreibungen entnehmen. Dennoch zeigt Abb. 1 die drei Tabellen der Datenbank sowie deren Verknüpfungen in der übersicht. Definieren Sie für alle Beziehungen referentielle Integrität.<\/p>\n <\/b><\/p>\n Bild 1: Datenmodell der CD-Verwaltung<\/span><\/b><\/p>\n Die CD-Verwaltung benötigt zumindest ein Formular zur Eingabe, Anzeige und Bearbeitung der Daten einer CD sowie ggf. zum Blättern durch die vorhandenen CDs. Für etwas mehr Komfort dient ein Hauptformular mit unterschiedlichen Filterfunktionen zur Auswahl von CDs.<\/p>\n Formular zur Eingabe von CD-Daten<\/b><\/p>\n Das Formular zur Eingabe von CD-Daten soll nicht nur der Dateneingabe, sondern auch der Ansicht und Bearbeitung bestehender Daten dienen. Außerdem soll das Formular eine Funktion zum Einlesen der Daten der aktuellen CD aus dem Internet bereitstellen.<\/p>\n Wenn Sie das Formular direkt testen möchten, können Sie die Tabellen der Beispieldatenbank importieren. <\/p>\n Als Datenherkunft für das Formular dient die Tabelle tblCDs. Um alle Felder der Tabelle in den Detailbereich zu ziehen, aktivieren Sie die Feldliste, markieren dann bei gedrückter Umschalttaste erst den obersten und dann den untersten Eintrag und ziehen dann den gesamten blau markierten Block in das Formular (siehe Bild 2).<\/p>\n <\/b><\/p>\n Bild 2: Entwurfsansicht des Formulars frmCDDaten<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Datensatzherkunft des Listenfeldes lstTracks<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 4: Formularansicht des Formulars frmCDDaten<\/span><\/b><\/p>\n Wandeln Sie anschließend das Textfeld ArtistID in ein Kombinationsfeld um. Wählen Sie als Datensatzherkunft des Kombinationsfeldes die Tabelle tblArtists aus. Das Feld bietet nun die IDs der Interpreten zur Auswahl an. Damit stattdessen die Namen der Interpreten angezeigt werden, setzen Sie noch den Wert der Eigenschaft Spaltenanzahl auf 2 und den Wert der Eigenschaft Spaltenbreiten auf 0cm; 3cm.<\/p>\n Neben den CD-Informationen benötigen Sie noch ein Unterformular zur Auflistung der vorhandenen Titel.<\/p>\n Da das Unterformular alle Titel anzeigen soll, die sich auf die aktuell angezeigte CD beziehen, benötigen Sie eine Abfrage zum Auswählen der entsprechenden Titel. Die Abfrage enthält die Tabellen tblTracks und tblInterpreten als Datenherkunft. Als Kriterium geben Sie für das Feld CDID den folgenden Ausdruck an:<\/p>\n Das Aussehen der Abfrage finden Sie in Bild 3. Speichern Sie die Abfrage unter dem Namen qryTracks.<\/p>\n Nachdem Sie ein neues Formular namens frmTracks angelegt haben, ziehen Sie die vier Felder TrackNr, TrackName, ArtistID und TrackTime in den Detailbereich des Formulars.<\/p>\n Wandeln Sie das Textfeld ArtistID genau wie im Formular frmCDDaten in ein Kombinationsfeld um. Stellen Sie die Eigenschaft Standardansicht auf den Wert Datenblattansicht ein.<\/p>\n Um das Formular als Unterformular im Formular frmCDDaten zu platzieren, speichern und schließen Sie es zunächst. Zeigen Sie das Formular frmCDDaten in der Detailansicht an und platzieren Sie das Datenbankfenster neben dem Formular. Ziehen Sie das Unterformular aus dem Register Formulare in den Detailbereich des Formulars frmCDDaten. Nachdem Sie die Größe und Position des Unterformulars nach Ihren Wünschen angepasst haben, platzieren Sie nun noch den Namen des Interpreten sowie den Albumtitel über den bisher hinzugefügten Steuerelementen (siehe Bild 4).<\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n So können Sie nun bereits Ihre eigenen CDs und deren Tracks eingeben.<\/p>\n Formular zur Eingabe vonSuchkriterien<\/b><\/p>\n Damit Sie nicht Ihre komplette CD-Sammlung durchsuchen müssen, um einen bestimmten Titel zu finden, benötigen Sie ein Formular zur Suche nach CDs mit bestimmten Eigenschaften. Legen Sie dazu ein neues Formular an und speichern Sie es unter dem Namen frmSuche.<\/p>\n Legen Sie dann vier Textfelder wie in Bild 5 an und vergeben Sie die Namen txtCDName, txtArtistName, txtTrackName und txtTrackArtistName. Fügen Sie außerdem eine Schaltfläche namens cmdErgebnisseZeigen hinzu.<\/p>\n Für die Ereigniseigenschaft Beim Klicken der Schaltfläche cmdErgebnisseAnzeigen legen Sie die Prozedur aus Quellcode 1 an.<\/p>\n Die Prozedur besteht lediglich aus zwei Anweisungen. Die erste stellt die Eigenschaft Visible des Formulars auf den Wert False ein, um das Formular unsichtbar zu machen. Die zweite Anweisung öffnet das Formular frmSuchergebnisse, das die Ergebnisse entsprechend den Suchkriterien anzeigen soll.<\/p>\n <\/p>\n <\/b><\/p>\n Bild 5: Formularansicht des Formulars frmSuche<\/span><\/b><\/p>\n Der Anwender soll das Formular frmSuche vom Formular frmCDDaten aus öffnen können. Dazu fügen Sie diesem Formular noch eine Schaltfläche namens cmdSuchen hinzu und hinterlegen für die Ereigniseigenschaft Beim Klicken die Prozedur aus Quellcode 2. Die Prozedur verwendet die Methode OpenForm der DoCmd-Anweisung, um das gewünschte Formular als Dialogformular zu öffnen. <\/p>\n Das Formular zur Anzeige derSuchergebnisse<\/b><\/p>\n Nach Eingabe der gewünschten Kriterien soll die Anwendung dem Benutzer nach einem Mausklick auf die Schaltfläche cmdErgebnisseAnzeigen das Suchergebnis anzeigen.<\/p>\n Die Ergebnisliste soll sich auf die einzelnen CD-Tracks beziehen, also den Tracktitel, den Trackinterpreten, den Titel des dazugehörenden Albums sowie dessen Interpreten anzeigen. Wenn Sie sich an das Datenmodell zurückerinnern, fällt Ihnen sicher auf, dass sich nicht alle diese Informationen in einer Tabelle befinden. Daher erstellen Sie zunächst eine Abfrage namens qrySuchergebnisse, die alle benötigten Felder beinhaltet.<\/p>\n Da sich die Tabelle tblArtists sowohl auf die CD-Alben als auch auf die einzelnen Tracks bezieht, müssen Sie diese Tabelle ein zweites Mal in den Entwurf der Abfrage ziehen. Außerdem entfernen Sie den Beziehungspfeil zwischen der Tabelle tblTracks und der zuerst eingefügten Kopie der Tabelle tblArtists. <\/p>\n <\/b><\/p>\n Bild 6: Entwurfsansicht der Abfrage qrySuchergebnisse<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 7: Entwurfsansicht des Formulars frmSuchergebnisse<\/span><\/b><\/p>\n Quellcode 3<\/b><\/p>\n Der Abb. 6 können Sie entnehmen, welche Felder aus welchen Tabellen in das Entwurfsraster zu ziehen sind. Achten Sie darauf, dass Sie der Feldbezeichnung ArtistName der zweiten Kopie der Tabelle tblArtists den Ausdruck TrackArtistName: voranstellen. Sie können so später im Formular komfortabler auf dieses Feld zugreifen.<\/p>\n Dies ist noch nicht die eigentliche Datenherkunft des Formulars, da noch die Kriterien einzufügen sind. Das funktioniert per VBA jedoch leichter und ist zudem übersichtlicher.<\/p>\n Legen Sie nun ein neues Formular namens frmSuchergebnisse an. Blenden Sie über den Menübefehl Ansicht ( Formularkopf\/-fuß die gleichnamigen Formularbereiche ein. <\/p>\n Um die Textfelder im Detailbereich nicht mühsam von Hand erstellen zu müssen, können Sie vorübergehend die soeben erstellte Abfrage als Datenherkunft des Formulars einstellen.<\/p>\n Ziehen Sie die entsprechenden Felder aus dem Formular in den Detailbereich und ordnen Sie diese entsprechend an.<\/p>\n Außerdem benötigen Sie noch eine Schaltfläche namens cmdZeigen, mit der Sie den gewünschten Datensatz im Formular frmCDDaten anzeigen können. Legen Sie für die Ereigniseigenschaft Beim Klicken die Prozedur aus Quellcode 3 an.<\/p>\n Die wichtigste Aufgabe des Formulars ist die Anzeige des Suchergebnisses für die angegebenen Kriterien. Damit aus der Abfrage qrySuchergebnisse, die ja im Originalzustand alle vorhandenen Tracks mit den dazugehörenden Daten anzeigt, eine Abfrage wird, die nur die gewünschten Daten anzeigt, benötigen Sie einige Zeilen VBA.<\/p>\n Die Prozedur öffnet das Formular frmCDDaten mit dem Wert des Feldes CDID als öffnungsparameter. Wie das Formular frmCDDaten den Inhalt dieses Parameters auswertet, erfahren Sie später.<\/p>\n Access soll die entsprechende Prozedur einmalig beim Laden des Formulars ausführen. Daher hinterlegen Sie diese für die Ereigniseigenschaft Beim Laden (s. Quellcode 4). Die Prozedur verbirgt zunächst das Formular frmSuche. Das ist notwendig, da ja noch die eingegebenen Kriterien ausgegeben werden sollen. Anschließend weist sie der String-Variablen strSQL die bereits erstellte Abfrage hinzu.<\/p>\n Quellcode 4<\/b><\/p>\n In vier If-Abfragen überprüft die Prozedur anschließend, ob der Benutzer für eines oder mehrere der vier zur Verfügung stehenden Textfelder Kriterien eingegeben hat, und setzt für die String-Variable strSQLBedingung einen entsprechenden SQL-Ausdruck zusammen.<\/p>\n Falls das erste Kriterium keinen Vergleichswert enthält und dieses damit wegfällt, würde die Zeichenkette strSQLBedingung bei Vorhandensein mindestens eines weiteren Kriteriums mit dem Schlüsselwort AND beginnen. Damit das nicht passiert, wird das Schlüsselwort im Falle eines Falles abgeschnitten.<\/p>\n In einer sechsten und letzten If-Abfrage überprüft die Prozedur, ob mindestens ein Kriterium vorhanden ist und fügt ggf. die beiden Zeichenketten strSQL und strSQLBedingung zusammen.<\/p>\n <\/b><\/p>\n Bild 8: Das Formular frmSuchergebnisse in Aktion<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 9: Einfügen des ActiveX-Steuerelements<\/span><\/b><\/p>\n Schließlich weist sie der Eigenschaft RecordSource (dt.: Datenherkunft) des Formulars die ermittelte Abfrage zu.<\/p>\n Fügen Sie nun dem Bereich Formularfuß noch eine Schaltfläche namens cmdKriterienAendern hinzu.<\/p>\n Quellcode 5<\/b><\/p>\n Quellcode 6<\/b><\/p>\n <\/b><\/p>\n Bild 10: Entwurf des Formulars frmCDDaten mit dem freedb-Steuerelement <\/span><\/b><\/p>\n Die Schaltfläche soll dem Benutzer die Möglichkeit geben, die Kriterien nachträglich zu ändern – beispielsweise falls die Suche zu viele oder zu wenige Datensätze findet.<\/p>\n Für die Ereigniseigenschaft Beim Klicken dieser Schaltfläche legen Sie die Prozedur aus Quellcode 5 an.<\/p>\n Wenn Sie nun noch die Eigenschaft Standardansicht auf den Wert Endlosformular stellen, könnte das Formular frmSuchergebnisse wie in Bild 8 aussehen.<\/p>\n Damit der Kreis (oder vielmehr das Dreieck) der Formulare sich schließt, müssen Sie das Formular frmCDDaten um eine Pro-zedur für die Ereigniseigen-schaft Beim öffnen er-weitern (s. Quellcode 6).<\/p>\n Diese Prozedur überprüft, ob die Eigenschaft OpenArgs (dt.: öffnungsparameter) einen Wert enthält. Falls ja, setzt sie den Filter auf die CD mit der angegebenen ID und schließt das Formular frmSuchergebnisse.<\/p>\n Nun beginnt der interessante Teil für Menschen mit vielen CDs, aber wenig Lust zum Tippen: die Integration des OCX-Steuerelements. Laden Sie zunächst das Steuerelement uFREEDB 1.3 von der Internetseite http:\/\/www.freedb.com. Nach dessen Installation können Sie direkt damit arbeiten.<\/p>\n Quellcode 7<\/b><\/p>\n Sämtliche Aktionen, die Sie mit diesem Steuerelement durchführen sollen, starten Sie vom Formular frmCDDaten aus. Deshalb müssen Sie ihm auch das OCX-Steuerelement hinzufügen. Dazu verwenden Sie am besten den Menübefehl Einfügen\/ActiveX-Steuerelement… und wählen im nun erscheinenden Dialog den gewünschten Eintrag aus (siehe Bild 9).<\/p>\n Nach der Bestätigung der Auswahl durch einen Mausklick auf die Schaltfläche OK erscheint das gewünschte Steuerelement in der Entwurfsansicht des Formulars (siehe Bild 10). Um später komfortabel auf dieses Steuerelement zugreifen zu können, ändern Sie seinen Namen in ctlFreeDB.<\/p>\n Auswahl des CD-Laufwerks<\/b><\/p>\n Bevor Sie die Daten zu einer CD ermitteln können, müssen Sie zunächst festlegen, um welches Laufwerk es sich handelt.<\/p>\n Dazu verwenden Sie ein Kombinationsfeld namens cboCDLaufwerke, dass alle verfügbaren CD-Laufwerke anzeigt. Die Prozedur zum Füllen des Kombinationsfeldes verwendet die Bibliothek Microsoft Scripting Runtime, auf die Sie zunächst einen Verweis setzen müssen.<\/p>\n Die Technik zum Setzen eines Verweises auf eine bestimmte Bibliothek finden Sie im Beitrag Setzen von Verweisen auf Bibliotheken, der im PDF-Format auf der Heft-CD vorliegt. <\/p>\n Hinterlegen Sie die Prozedur aus Quellcode 7, für die Ereigniseigenschaft Beim Laden des Formulars frmCDDaten.<\/p>\n Die Prozedur setzt eine Zeichenkette aus den Buchstaben aller verfügbaren CD-Laufwerke zusammen und weist sie anschließend der Eigenschaft Datensatzherkunft des Kombinationsfeldes cboCDLaufwerke zu.<\/p>\n Damit das Kombinationsfeld die Daten anzeigen kann, müssen Sie für dessen Eigenschaft Herkunftsart den Eintrag Wertliste auswählen. Außerdem legen Sie für die Eigenschaften Spaltenanzahl und Spaltenbreite die Werte 2 bzw. 0cm;3cm fest.<\/p>\n Weitere Informationen zum FileSystemObject und dessen Anwendung finden Sie im Beitrag Dateien managen mit Access. <\/p>\n Vorbereiten desFreeDB-Steuerelements<\/b><\/p>\n Nachdem Sie das FreeDB-Steuerelement bereits eingefügt und umbenannt haben, sind nun noch einige Schritte erforderlich, bis Sie es einsetzen können.<\/p>\n Zunächst einmal müssen Sie eine Objektvariable so deklarieren, dass sie auf die vom Steuerelement ausgelösten Ereignisse reagieren und dessen Eigenschaften verwenden kann. Dazu legen Sie im Kopf des Klassenmoduls des Formulars frmCDDaten die folgende Zeile an:<\/p>\n Diese Objektvariable müssen Sie nun noch in den gewünschten Prozeduren und Funktionen auf das Steuerelement einstellen.<\/p>\n Ermitteln des TOC-Wertes<\/b><\/p>\n Jede Musik-CD besitzt einen eindeutigen Wert, der aus einigen Informationen wie den Startpositionen der einzelnen Tracks, deren Anzahl usw. ermittelt wird. <\/p>\n Da der Wert eindeutig ist, verwenden die meisten Anbieter von CD-Daten im Internet diesen oder einen abgewandelten Schlüssel als eindeutigen Schlüssel für die Ermittlung der gewünschten Daten der CD.<\/p>\n Diesen Wert können Sie auch mit dem FreeDB-Steuerelement ermitteln. Dazu können Sie die Funktion aus Quellcode 8 verwenden, die Sie ebenfalls im Klassenmodul des Formulars frmCDDaten unterbringen.<\/p>\n Quellcode 8<\/b><\/p>\n Quellcode 9 (Fortsetzung nächste Seite)<\/b><\/p>\n Die Funktion verwendet die Methode GetMediaTOC des FreeDB-Steuerelements zum Auslesen der gewünschten Information.<\/p>\n Dazu ist noch keine Verbindung mit dem Internet erforderlich, da der Schlüssel ausschließlich aus auf der CD befindlichen Informationen berechnet wird.<\/p>\n Ermitteln der CD-Daten über das Internet<\/b><\/p>\n Nun wird es allmählich spannend. Mit dem TOC im Gepäck greifen Sie nämlich jetzt über das Internet auf die CD-Daten zu. Der Zugriff auf die FreeDB-Datenbank ist – wie der Name schon sagt – kostenlos. Einzige Bedingung für die Benutzung der Datenbank ist die Angabe Ihrer E-Mail-Adresse und einiger weiterer Informationen.<\/p>\n Quellcode 9 (Fortsetzung)<\/b><\/p>\n Quellcode 10<\/b><\/p>\n Dies alles passiert in der Funktion CDEinlesen, deren einziger Parameter der TOC-Wert ist. Die Funktion legt zunächst die E-Mail-Adresse, den Applikationsnamen, die Version usw. fest. Diese Informationen werden beim Aufruf der Methode LookupMediaByTOC an die Internetdatenbank geschickt.<\/p>\n An dieser Stelle werden Sie automatisch mit dem Internet verbunden – es sei denn, Sie unterbinden dies anderweitig oder müssen sich erst über das DFü-Netzwerk in das Internet einwählen. Mit der Anweisung überprüft die Prozedur, ob eine CD mit der angegebenen TOC in der Datenbank vorhanden ist. Ist dies nicht der Fall, wird der Rückgabewert der Funktion CDEinlesen gleich 0 gesetzt und die Funktion verlassen.<\/p>\n Anderenfalls fährt die Prozedur mit dem Einlesen der Informationen zu der gefundenen CD fort und schreibt diese in die Tabellen der Datenbank.<\/p>\n über die Methode GetArtistName ermittelt die Prozedur den Namen des Interpreten des Albums.<\/p>\n Die Funktion ArtistSuchen (Quellcode 10) überprüft anschließend, ob der gefundene Interpret bereits in der Tabelle tblArtists vorhanden ist. Falls nicht, fügt die folgende Anweisung der Tabelle tblArtists einen neuen Eintrag mit dem gefundenen Interpreten hinzu.<\/p>\n Die ArtistID des neu angelegten Datensatzes wird auch in der SQL-Aktionsabfrage benötigt, die zum Anfügen des Datensatzes für die neue CD an die Tabelle tblCDs dient.<\/p>\n Die einzufügenden Felder werden mit den Methoden GetAlbumGenre, GetAlbumLength, GetAlbumName, GetAlbumNotes, GetAlbumTracks, GetAlbumYear, GetMediaID des FreeDB-Objekts ermittelt und dynamisch in die SQL-Anweisung integriert.<\/p>\n <\/b><\/p>\n Bild 11: Vorschau auf den Ausdruck der CD-Cover<\/span><\/b><\/p>\n Nach dem Anfügen des neuen CD-Datensatzes sind die einzelnen Tracks an der Reihe. Damit beim Anfügen der Datensätze für die einzelnen Titel direkt die CDID mitgespeichert werden kann, muss diese zunächst ermittelt werden.<\/p>\n Anschließend ermitteln die Anweisungen innerhalb einer Schleife die Informationen zu den Titeln und speichern sie in der Tabelle tblTracks. Die Anzahl der Durchläufe der Schleife wird durch das Ergebnis der Methode GetAlbumTracks bestimmt. Bei den Titeln einiger CDs ist noch ein wenig Fummelarbeit zu erledigen. CDs mit Titeln unterschiedlicher Interpreten wie z. B. Soundtracks, Sampler usw. beinhalten nämlich (wie die im Rahmen dieses Beitrags getesteten CDs ergaben) durch einen Slash (\/) getrennt den Titel des Stücks sowie den Namen seines Interpreten.<\/p>\n Mit einigen Zeichenkettenfunktionen werden die Titelinformationen – soweit sie einen Slash enthalten – in Interpret und Titel aufgeteilt.<\/p>\n In dem Fall, dass der Interpret im Titelnamen mitgeführt wird, überprüft die Prozedur ebenfalls, ob der Interpret bereits in der Tabelle tblArtists vorhanden ist und fügt ihn ggf. ein.<\/p>\n Schließlich speichert eine weitere Anfügeabfrage die aus den Methoden GetTrackName und GetTrackTime gewonnenen Informationen in der Tabelle tblTracks.<\/p>\n Unter Umständen ist es sinnvoll, Sicherheitskopien von Musik-CDs anzufertigen. Dafür kann es sehr hilfreich sein, wenn man die in der CD-Verwaltung gespeicherten Daten direkt in Form von je einem Cover für die Vorder- und die Rückseite der CD-Hülle ausdrucken kann. Dazu ist natürlich die Anwendung eines Berichtes prädestiniert, wie Bild 11 zeigt.<\/p>\n Vorüberlegungen<\/b><\/p>\n Der Aufdruck für die Vorder- und die Rückseite soll im vorliegenden Fall gleich sein und jeweils die wichtigsten CD- und Titelinformationen enthalten.<\/p>\n Jeder ausgedruckte Bericht soll die Daten zu je einer CD enthalten. Die Daten stammen einerseits aus der Tabelle tblCDs (inklusive der Verknüpfung auf die Tabelle tblArtists, um den Namen des Interpreten zu ermitteln) sowie aus der Tabelle tblTracks (ebenfalls mit der Tabelle tblArtists).<\/p>\n Da jedes Blatt eine CD repräsentieren soll, gehören die Informationen zur CD selbst schon einmal in den Detailbereich des Berichtes. Berichtskopf und -fuß können Sie verwenden, wenn Sie jedem Cover gleich bleibende Informationen hinzufügen möchten, wie z. B. den Namen des Besitzers. <\/p>\n <\/b><\/p>\n Bild 12: Entwurfsansicht des Berichtes zur Anzeige der Tracks<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 13: Seitenansicht des Berichts repTracks<\/span><\/b><\/p>\n Die Trackinformationen bringen Sie in einem Unterbericht unter, der jeweils alle Tracks zur aktuell angezeigten CD ausgibt.<\/p>\n Unterbericht zur Ausgabe derTitelinformationen<\/b><\/p>\n Erstellen Sie zunächst eine Abfrage als Datenherkunft für den Unterbericht. Die Abfrage enthält die Tabellen tblTracks und tblArtists. Ziehen Sie aus der Tabelle tblTracks die Felder TrackNr, TrackName, TrackTime, CDID sowie aus der Tabelle tblArtists das Feld Artist in das Entwurfsraster der Abfrage. Speichern Sie die Abfrage unter dem Namen qryTracksMitArtist.<\/p>\n Erstellen Sie anschließend einen Unterbericht und speichern Sie ihn unter dem Namen repTracks. Wählen Sie die soeben erstellte Abfrage als Datenherkunft aus. Legen Sie dann die Bezeichnungs- und Textfelder wie in Bild 12 an.<\/p>\n In der Seitenansicht sollte der Bericht nun eine Liste aller Tracks anzeigen (siehe Bild 13).<\/p>\n Bericht zur Anzeige derCD-Informationen<\/b><\/p>\n Erstellen Sie nun einen weiteren Bericht, der die beiden Cover für Vorder- und Rückseite anzeigt. Dazu ziehen Sie zunächst zwei Rechteck-Steuerelemente in die Detailansicht, die als Rahmen für die Cover dienen. Die Maße betragen 12 x 12 cm für die Vorderseite und 14,9 x 11,7 cm für die Rückseite.<\/p>\n Als Datenherkunft dient wiederum eine Abfrage. Die Abfrage beinhaltet die Tabellen tblCDs und tblArtists. Ziehen Sie die Felder, die Sie auf dem Cover verwenden möchten, in das Entwurfsraster der Abfrage – je nach Vorliebe möchten Sie vielleicht alle, vielleicht aber auch nur wenige Felder wie z. B. den CD-Titel und den Interpreten auf dem Cover anzeigen.<\/p>\n Auf jeden Fall benötigen Sie das Feld CDID, da Sie die Tracks im Unterbericht sonst nicht nach der gewünschten CD filtern können. Speichern Sie die Abfrage unter dem Namen qryCDsMitInterpret.<\/p>\n Auch hier stellen Sie den Wert der Eigenschaft Datenherkunft auf den Namen der entsprechenden Abfrage ein.<\/p>\n Legen Sie im oberen Bereich des Detailbereichs ein Textfeld an, in dem Sie beispielsweise den CD-Titel und den Interpreten anzeigen.<\/p>\n <\/b><\/p>\n Bild 14: Entwurfsansicht des CD-Frontcovers<\/span><\/b><\/p>\n Quellcode 11<\/b><\/p>\n Darunter legen Sie ein Unterbericht-Steuerelement mit der gewünschten Größe an und geben für die Eigenschaft Herkunftsobjekt den Ausdruck Bericht.repTracks an.<\/p>\n Damit der Unterbericht nur diejenigen Tracks anzeigt, die zu der im Hauptbericht angezeigten CD gehören, müssen Sie noch die Eigenschaften Verknüpfen von und Verknüpfen nach auf den Wert CDID einstellen.<\/p>\n Bild 14 zeigt ein Beispiel für das Aussehen des Frontcovers in der Entwurfsansicht.<\/p>\n Die Vorgehensweise für die Rückseite des Covers ist mit der für das Frontcover identisch. Natürlich sind Ihren gestalterischen Fähigkeiten hier keine Grenzen gesetzt.<\/p>\n Anzeigen desBerichts<\/b><\/p>\n Um den Bericht komfortabel anzeigen zu können, fügen Sie dem Formular frmCDDaten noch eine Schaltfläche namens cmdCoverDrucken mit einer entsprechenden Beschriftung hinzu. Für die Ereigniseigenschaft Beim Klicken hinterlegen Sie die Prozedur aus Quellcode 11.<\/p>\n Die DoCmd.OpenReport-Anweisung öffnet den Bericht und übergibt dabei den Wert CDID der aktuell angezeigten CD.<\/p>\n Die CD-Verwaltung bietet noch einige Erweiterungsmöglichkeiten. So könnten Sie z. B. die Cover Ihrer CDs einscannen und mit den CD-Daten speichern.<\/p>\n Oder Sie legen noch einige weitere Schaltflächen auf dem Hauptformular der CD-Verwaltung an, mit denen Sie direkt an Ort und Stelle die gewünschten Tracks abspielen können.<\/p>\n Sehr nützlich könnte auch eine Erweiterung um die Verwaltung von MP3-Files sein.<\/p>\n Enthaltene Beispieldateien:<\/p>\n CD-Verwaltung00.mdb<\/p>\n CD-Verwaltung97.mdb<\/p>\n |
![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic001.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic008.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic009.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic010.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic011.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic012.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic013.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00681B5F-125B-42F8-8B0A-3AA73581A8FD}\/pic014.png\")
<\/p>\n