Suche in Adressbuch

[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 .

[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