PDA

Vollständige Version anzeigen : Suchfunktion


Walterlator
08.07.2006, 16:55
Hallo!

Ich hätte da mal eine Frage zu der 'Suchfunktion'. Also ich habe mir eine
Musik Datenbank erstellt! Diese Datenbank hat die Felder 'Titel' ; 'Gruppe' ;
'CD Titel' u.s.w.

Es soll nun bei der Datenausgabe ein Suchfeld stehen in dem ich einfach
meine Suche eintippen kann und die Datenbank mir das Ergebniss in eine
extra Liste ausgibt.

Bsp. : Ich gebe in das Suchfeld 'Kraft' ein und er findet alle Titel von Kraftwerk! Die Datenbank soll aber gleichzeitig auch alle CD-Titel finden die
den Anfang von 'Kraft' haben. Und nicht nur die Gruppe 'Kraftwerk'!!!!
Hoffe ich habe es gut erklärt ! :o

Lanz Rudolf
08.07.2006, 18:28
Hallo
Nach meiner langen Abwesenhei wegen Krankheit (ca3Mo)
hier ein muster für Suche

Lanz Rudolf
08.07.2006, 18:33
Hallo
Nachtrag
Schau alle Formulare FRM Suche....... und FrmKundenListe01 bis FrmKundenListe03
bei Fragen helfe ich gerne

Walterlator
09.07.2006, 21:50
Hallo !! Ich werde mir die Datenbank diese Woche mal anschauen!
Vielen Dank erstmal, ich melde mich dann wenn es geklappt hat :)
Hoffe, ich bekomme es hin ........ ;)

Walterlator
09.07.2006, 23:24
Hallo nochmal ... Da ich nicht schlafen kann ... Warum nur ?! :) Fußball!
Habe ich mir die Datei jetzt schon angeschaut. Ist ganz gut, aber viel
zu schwer ...... Gibt es da auch eine Lösung die einfacher wäre ??

Walterlator
10.07.2006, 16:19
Kann mir keiner helfen ?? :upps:

danchou
11.07.2006, 06:36
http://www.ms-office-forum.net/forum/showthread.php?t=188647&highlight=suchfunktion
vielleicht hilft dir das weiter
Grüsse

Walterlator
11.07.2006, 08:33
Hallo !!

Vielen Dank, werde mir das mal anschauen!
Gruß
Walter

Walterlator
11.07.2006, 12:40
Hallo !!

Also, der Link ist nicht das was ich suche. Und das von "Lanz Rudolf" ist
wirklich super aber ganz schön schwer zu benutzen.

Ich versuche es einfach nochmal zu erklären :

Ich habe eine Datenbank meiner Musik-CD's Sammlung erstellt. Dort
gibt es eine Tabelle 'Gesamt' in der alles steht ! z.B. : Titel ; Gruppe ; Zeit ; CD Album Name ; u.s.w. ....
Jetzt möchte ich ein Forumlar erstellen, in dem alles untereinander aufgelistet
steht und unter dem Formular soll ein Suchfeld stehen. Wenn ich dort z.B. "Rammstein" eingebe, dann findet die Datenbank alles mit "Rammstein" auch im Album Name und in Titel Name und nicht nur die Gruppe!!

Ja, und hier ist nun die Frage, wie ich das hinbekomme!?!

Wenn das dann läuft will ich mir noch alle Musik Titel in MP3 umwandeln und
auf meine Externe Festplatte speichern und mit der Datenbank verknüpfen.
D.h. ich suche Rammstein er findet Rammstein mit allen Titeln von denen und ich klicke auf den Datensatz und dann soll mir das Lied abgespielt werden.

Das wäre ein Traum :) Hoffe ich habe es verständlich erklärt !!

Ich gehe davon aus, das sowas viele Leute suchen und gerne hätten!!

danchou
11.07.2006, 13:24
Hab im Forum noch etwas gefunden, entspricht eigentlich dem was ich aus deiner Beschreibung entnehme, hab das mal für einfachere Verständnis angepasst.

strSuchbegriff ist ein ungebundenes Textfeld, lst_search ein ungebundenes Listenfeld.

Ein Button ins Form, welcher DataSearch ausführt und voilà, das sollte gehen.

Private Sub DataSearch()
Dim strSQL As String
Dim strKrit As String

On Error GoTo myError

strKrit = Nz(Me!strSuchbegriff.Value, "")

strSQL = "SELECT id, interpret, titel, bemerkung" _
& " FROM tbl_cds" _
& " WHERE ((tbl_cds.interpret) LIKE '*" & strKrit & "*')" _
& " OR ((tbl_cds.titel) LIKE '*" & strKrit & "*')" _
& " OR ((tbl_cds.bemerkung) LIKE '*" & strKrit & "*') "

strSQL = strSQL & " ORDER BY tbl_cds.interpret"

Me!lst_search.RowSource = strSQL ' Datenherkunft für das Listenfeld aus dem SQL-String bestimmen
Me!lst_search.ColumnCount = 4 ' Spaltenanzahl
Me!lst_search.ColumnWidths = "0cm; 3cm; 8cm; 3cm" ' Spaltenbreite

Me!xAnzahl = Nz(lst_search.ListCount, 0) ' Wie viele DS werden in der Liste angezeigt

my_Exit:
Exit Sub

myError:
MsgBox Err.Number & " " & Err.Description
Resume my_Exit
End Sub


Hier noch der Post wo ichs entdeckt hab falls du dir das Original anschauen willst.
http://ms-office-forum.net/forum/showpost.php?p=853491&postcount=2

Hoffe das ist simpel genug

Grüsse

Walterlator
11.07.2006, 13:26
Ja vielen Dank, damit werde ich es mal versuchen !! Melde mich später!!