|
| |
Visual-Basic Einsteiger| Hilfe für Datenbank-Projekt | |  | | Autor: Karolinchen | | Datum: 20.06.03 10:52 |
| Hallo,
ich muss in der Schule mal wieder ein Info-Projekt abliefern. Da das Thema diesmal Datenbankprogrammierung mittels VB und VisData ist, wollte ich eine MP3 Datenbank erstellen. Aber ich muss ganz ehrlich sagen, mir ist das alles etwas zu kompliziert - vor allem mit dem bisschen Wissen, was uns in der Schule vermittelt wurde... Daher würde ich mich freuen, wenn mir jemand helfen könnte - vielleicht hat jemand schon so etwas ähnliches programmiert?
Ein paar Facts:
Tabelle 1 besteht aus den Feldern Titel, Interpret, Album, Länge, VöJahr, Genre, Bewertung und CDNr.
Tabelle 2 aus CDNr, Datum und weitere Tracks.
Alle Felder werden in VB in Listboxen ausgegeben.
Ziel des ganzen soll sein, dass man
- bestimmte Titel etc. nach Suchwort suchen kann (Eingabe des Suchworts über Textbox, Eingabe der Spalte, in der gesucht werden soll über Combobox),
- das ganze nach bestimmten Spalten sortieren kann,
- Datensätze ändern, löschen und neu hinzufügen kann und
- über Tabelle 1 - CDNr auf Tabelle 2 zugreifen und so anzeigen lassen kann, wann die CD gebrannt wurde und welche Tracks aus Tabelle 1 noch drauf waren.
Hier der Code, den ich bisher dazu geschrieben habe: Option Explicit
Dim dbmp3db As Database
Dim rstitel As Recordset
Dim rsinterpret As Recordset
Dim rsalbum As Recordset
Dim rslänge As Recordset
Dim rsvöjahr As Recordset
Dim rsgenre As Recordset
Dim rsbewertung As Recordset
Dim rscdnr As Recordset
Private Sub form_load()
Dim sqlquery As String
Dim rsmp3db As Recordset
Set dbmp3db = OpenDatabase("C:\Eigene" & _
"Dateien\Dokumente\Hessenkolleg\Info\Datenbank-Projekt\MP3DB-18-06-03\mp3db." & _
"db")
Set rsmp3db = dbmp3db.OpenRecordset("tabelle1")
Do Until rsmp3db.EOF = True
Titel.AddItem rsmp3db.Fields("Titel")
Interpret.AddItem rsmp3db.Fields("Interpret")
Album.AddItem rsmp3db.Fields("Album")
Länge.AddItem rsmp3db.Fields("Länge")
VÖJahr.AddItem rsmp3db.Fields("VÖJahr")
Genre.AddItem rsmp3db.Fields("Genre")
Bewertung.AddItem rsmp3db.Fields("Bewertung")
CDNr.AddItem rsmp3db.Fields("CD Nr")
rsmp3db.MoveNext
Loop
MsgBox rsmp3db.RecordCount
ComboSpalten.AddItem "Titel"
ComboSpalten.AddItem "Interpret"
ComboSpalten.AddItem "Album"
ComboSpalten.AddItem "Länge"
ComboSpalten.AddItem "VÖJahr"
ComboSpalten.AddItem "Genre"
ComboSpalten.AddItem "Bewertung"
End SubWer mehr Infos braucht oder die Dateien benötigt, sagt mir doch bitte Bescheid. Es eilt sehr und ich würde mich wahnsinnig freuen, wenn mir jemand dabei helfen könnte.
Liebe Grüße,
Karo | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
