Suche in Adressbuch

[hansklok]

Hallo an alle fleißigen Tüftler da draußen ;-)

Ich zerbreche mir grade den Kopf.

Ich habe eine Tabelle "Autoren" mit jeweils einer Spalte für den "Nachname" und für den "Vorname". Ich möchte nun eine Suche gestalten, bei der nur Ergebnisse zurückgeliefert werden, wenn wirklich der Vor- und Zuname in einem Datensatz derselbe sind. Also nichts mir dem SQL LIKE Befehl.

Ich bekomme es nicht hin.

Wenn ich folgende Beispielabfrage durchführe:

Code:

"SELECT * FROM Autoren WHERE Nachname = 'Brecht' AND Vorname = 'Klaus'"

, dann wird mir dennoch ein True zurückgegeben, obwohl es nur einen Bertolt Brecht in der DB gibt, d.h. es soll nur ein True zurückgeliefert werden, wenn beide Werte stimmen, in etwa so:

Code:

"SELECT * FROM Autoren WHERE Nachname = 'Brecht' AND Vorname = 'Bertolt'"

. Das funktioniert leider aber nicht. Kann mir bitte jemand auf die Sprünge helfen?

Beste Grüße hansklok

[DeddyH]

Dein erstes Statement ist völlig korrekt, wenn ich nichts übersehen habe. Wie genau sieht denn die Ergebnismenge aus?

[hansklok]

Es werden eben alle Personen ausgegeben, deren Nachname "Brecht" ist, unabhängig davon, wie der Vorname lautet...

[DeddyH]

Sry, aber da musst Du irgend etwas falsch machen, so schlecht kann SQLite nicht sein. Wird das Statement evtl. noch zwischendurch unbeabsichtigt geändert? Du darfst auch gern einmal den relevanten Code zeigen.

[haentschman]

Hallo...

Code:

"SELECT * FROM Autoren WHERE Nachname = 'Brecht' AND Vorname = 'Klaus'"

+

Zitat:

dann wird mir dennoch ein True zurückgegeben

...paßt nicht zusammen. Das Statement gibt eine Ergebnismenge zurück. Um auf ein "True" zu kommen mußt du die Ergebnismenge untersucht haben. Wie sieht die entsprechende Funktion aus ?

[hansklok]

Aufgepasst, dass ganze ist nicht in Delphi geschrieben, sondern RealBasic ;-)

Code:

  Dim AutorVorname As String =Trim(Vorname)
  Dim AutorNachname As String =Trim(Nachname)
  Dim rsAutor As RecordSet = DB.SQLSelect("SELECT * FROM Autoren WHERE (Nachname = '" + AutorNachname + "' AND Vorname = '" + AutorVorname + "')")
// Alternative
 Dim rsAutor As RecordSet = DB.SQLSelect("SELECT * FROM Autoren WHERE (Nachname = '" + AutorNachname + "' AND Vorname LIKE '" + AutorVorname + "%'")
  
  //wenn Autor bereits vorhanden
  If rsAutor <> Nil Then
    Return True
    
    'Do Until rsAutor.EOF
    'If (Lowercase(rsAutor.Field("Nachname").StringValue) = Lowercase(AutorNachname)) And (Lowercase(rsAutor.Field("Vorname").StringValue) = Lowercase(AutorVorname)) Then
    'AutorenID = rsAutor.Field("AutorenID").IntegerValue
    '
    'Else
    'Return False
    'End If
    'rsAutor.MoveNext
    'Loop
  Else
    Return False
  End If

[DeddyH]

Ich hab keine Ahnung von RealBasic, aber was ist, wenn Du zusätzlich auf EOF prüfst?

Code:

If (rsAutor <> Nil) and (not rsAutor.EOF) Then
    Return True

Syntax ist natürlich ggf. anzupassen.

[Aphton]

Oder evtl auf count

[hansklok]

...verdammt, dann gibt er mir dennoch False zurück... ich muss nochmal die Strategie überdenken, vielleicht geht das ja auch anders, obwohl ich es sehr komisch finde. Psydocode von Delphi kann ich ohne weiteres in RealBasic umschreiben, also keine Sorge und erstmal Danke fürs mitdenken ;-)

[DeddyH]

Wenn false zurückkommt, ist das doch richtig :gruebel:.

[hansklok]

wie, was? Nein, oder ich verstehe etwas nicht.
Ich prüfe ob Vor- und Nachname vorhanden, wenn ja, dann True, sonst False. Oder verstehe ich da etwas falsch? ;-)

[DeddyH]

So sehe ich das auch. Du hast aber doch den umgekehrten Fall geschildert: Nachname vorhanden, aber nicht in Kombination mit dem Vornamen, trotzdem true als Ergebnis. Oder kommt jetzt immer false zurück, auch bei vorhandenem Datensatz?

[haentschman]

Zäume das Pferd doch mal anders herum auf:

Code:

  Dim AutorVorname As String =Trim(Vorname)
  Dim AutorNachname As String =Trim(Nachname)
  Dim rsAutor As RecordSet = DB.SQLSelect("SELECT * FROM Autoren WHERE (Nachname = '" + AutorNachname + "' AND Vorname = '" + AutorVorname + "')")
// Alternative
 Dim rsAutor As RecordSet = DB.SQLSelect("SELECT * FROM Autoren WHERE (Nachname = '" + AutorNachname + "' AND Vorname LIKE '" + AutorVorname + "%'")
  Return False
  //wenn Autor bereits vorhanden
  If rsAutor <> Nil Then
  
    'If not rsAutor.EOF Then // ggf. rsAutor.IsEmpty oder über rsAutor.Count (RecordCount) ... also quasi ist Leer
    'Return True
    'End If
  End If

... ohne Gewährleistung für die Syntax...

[hansklok]

Es ist mir ein Rätsel,

nachdem ich die letzten 1,5 h damit verbracht habe alle möglichen Varianten der Abfrage zu checken, funktionierts plötzlich doch mit:

Code:

"select * from Autoren where Nachname = '"+ Nachname +"' AND Vorname = '"+ Vorname +"'"

Vielen Dank für euren Einsatz, auch wenn ich mittlerweile nicht mehr aktiv mit Delphi programmiere, ich weiß schon, warum ich weiterhin in diesem Forum aktiv bin.

HG HansKlok