vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Frage Suchfunktion in DB 
Autor: NotThatKind
Datum: 25.06.03 19:57
Hallo,

ich erstelle gerade eine MP3-Datenbank und möchte eine Suchfunktion einbauen. Die Form besteht aus 8 verschiedenen Listboxen wie Titel, Interpret etc. Nun möchte ich eine Suchfunktion programmieren, die folgendermaßen funktioniert:

- Eingabe eines Suchbegriffs in eine Textbox

- Auswahl der Listbox, in der gesucht werden soll über eine Combobox

- Es sollen dann alle Titel, die das gesuchte Wort in der entsprechenden Spalte (Listbox) haben, komplett angezeigt werden.


Hier der Code, den ich bisher programmiert habe: 
Option Explicit
Dim dbmp3db As Database
Dim rsdbmp3db As Recordset
Private Sub form_load()
Dim sqlaufrufen As String
 
ComboSpalten.AddItem "Titel"
ComboSpalten.AddItem "Interpret"
ComboSpalten.AddItem "VÖJahr"
ComboSpalten.AddItem "Genre"
ComboSpalten.AddItem "Bewertung"
ComboSpalten.AddItem "CDNr"
 
Set dbmp3db = OpenDatabase("C:\Eigene" & _
  "Dateien\Dokumente\Hessenkolleg\Info\Datenbank-Projekt\MP3DB-18-06-03\mp3db." & _
  "db")
sqlaufrufen = "Select * from tabelle1"
Set rsdbmp3db = dbmp3db.OpenRecordset(sqlaufrufen)
Do Until rsdbmp3db.EOF = True
Titel.AddItem rsdbmp3db.Fields("titel")
Interpret.AddItem rsdbmp3db.Fields("Interpret")
Album.AddItem rsdbmp3db.Fields("album")
Tracklänge.AddItem rsdbmp3db.Fields("tracklänge")
VÖJahr.AddItem rsdbmp3db.Fields("VÖJahr")
Genre.AddItem rsdbmp3db.Fields("Genre")
Bewertung.AddItem rsdbmp3db.Fields("Bewertung")
CDNr.AddItem rsdbmp3db.Fields("CDNr")
rsdbmp3db.MoveNext
Loop
End Sub
 
Private Sub cmdsuche_click()
Dim suchtext As String
Dim suchspalte As String
Dim sqlquery As String
 
suchtext = Text1.Text
suchspalte = ComboSpalten.Text
 
Titel.Clear
Interpret.Clear
Album.Clear
Tracklänge.Clear
VÖJahr.Clear
Genre.Clear
Bewertung.Clear
CDNr.Clear
 
sqlquery = "select suchspalte from tabelle1 Where suchspalte like '*" & _
  suchtext & "*'"
rsdbmp3db.FindFirst sqlquery
If rsdbmp3db.NoMatch = True Then Exit Sub
Titel.AddItem rsdbmp3db.Fields("titel")
Interpret.AddItem rsdbmp3db.Fields("Interpret")
Album.AddItem rsdbmp3db.Fields("album")
Tracklänge.AddItem rsdbmp3db.Fields("tracklänge")
VÖJahr.AddItem rsdbmp3db.Fields("VÖJahr")
Genre.AddItem rsdbmp3db.Fields("Genre")
Bewertung.AddItem rsdbmp3db.Fields("Bewertung")
CDNr.AddItem rsdbmp3db.Fields("CDNr")
Do Until rsdbmp3db.NoMatch = True
rsdbmp3db.FindNext sqlquery
Titel.AddItem rsdbmp3db.Fields("titel")
Interpret.AddItem rsdbmp3db.Fields("Interpret")
Album.AddItem rsdbmp3db.Fields("album")
Tracklänge.AddItem rsdbmp3db.Fields("tracklänge")
VÖJahr.AddItem rsdbmp3db.Fields("VÖJahr")
Genre.AddItem rsdbmp3db.Fields("Genre")
Bewertung.AddItem rsdbmp3db.Fields("Bewertung")
CDNr.AddItem rsdbmp3db.Fields("CDNr")
Loop
End Sub
Wenn ich das Programm nun aufrufe, werden zunächst alle Datensätze angezeigt. Wenn ich allerdings dann die Suchfunktion benutzen will, kommt folgende Fehlermeldung:

"Laufzeitfehler '3077':
Syntaxfehler in Ausdruck"

Gehe ich dann auf Debuggen, markiert er mir die oben fett angezeigte Stelle im Code.
Kann jemand helfen?


Liebe Grüße,
Karoline
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Frage Suchfunktion in DB694NotThatKind25.06.03 19:57
Re: Frage Suchfunktion in DB462ModeratorDieter25.06.03 20:30
Re: Frage Suchfunktion in DB474NotThatKind25.06.03 20:35
Re: Frage Suchfunktion in DB452ModeratorDieter25.06.03 20:39
Re: Frage Suchfunktion in DB466NotThatKind25.06.03 20:48
Re: Frage Suchfunktion in DB447ModeratorDieter25.06.03 21:09
Re: Frage Suchfunktion in DB465NotThatKind25.06.03 21:20

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

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