SQL - Suchfunktion einbauen

[geLLi]

Hallo,

ich hab mal eine Frage.

Vorab, ich bin neu in der Delphi-Programmierung.


Ich hab bereits über ein AccessFormular eine Abfrage zum SQL (2000) Server erstellt. Klappt alles.

Mein Problem ist jetzt, das ich das ganze in Delphi programmieren musse (ohne Access)!


Ich habe ein Suchfeld, einen Suchbutton und eine Suchanzeigebox.

Wenn ein Suchbegriff ins Suchfeld eingegeben wird und auf den Suchbutton geklickt wird, soll in der Suchanzeigebox alle passenden Ergebnisse (Spalte "SuchSchlagwort" in der SQL-Tabelle) angezeigt werden.
Wenn man in der Suchanzeigebox doppelt auf den gefundenen Suchbegriff klickt, soll er zu dem Datensatz springen.
Außerdem soll er den eingegebenen Suchbegriff in einer anderen SQL-Tabelle speichern, um eine Art "TOP10" der Suchbegriffe zu erstellen (das wäre ersteinmal nicht so wichtig!)

Das Ganze ist ein wenig schwer zu erklären.

Ich kopiere den VB-Code mal hinten dran, vielleicht kann damit einer was anfangen!

Zitat:

Private Sub Befehl26_Click()
DoCmd.Requery "sucheanzeige"

Dim strSQL As String

Me!sucheanzeige.Requery
' begriff speicher, wenn suche erfolgreich war und mind. ein treffer gelanded wurde
'If CBool(Me!sucheanzeige.ListCount <= 0) Then Exit Sub
strSQL = "SELECT Count(*) " & _
"FROM dbo_Suchwerte " & _
"WHERE SuchSchlagwort = '" & Me!suchtxt & "'"
If CurrentDb.OpenRecordset(strSQL)(0) = 0 Then
strSQL = "INSERT INTO dbo_Suchwerte " & _
"( SuchSchlagwort, Suchanzahl ) " & _
"VALUES ('" & Me!suchtxt & "', 1 )"
Else
strSQL = "UPDATE dbo_Suchwerte " & _
"SET Suchanzahl = Suchanzahl + 1 " & _
"WHERE SuchSchlagwort = '" & Me!suchtxt & "'"
End If
CurrentDb.Execute strSQL, 128 'dbFailOnError

Me!top10.Requery
End Sub

Bin für jeden kleinen Tipp dankbar!
Hoffe konnte das Problem einigermaßen klar darstellen!

Vielen Dank im Vorraus!

Viele Grüße.
geLLi