SQL Abfragen

[Christian18]

Hallo,

ich habe eine kleine Tabelle, in der ich folgende Inhalte abspeichere.

KundenID A 10
Name A 20
Vorname A 20
Strasse A 50
PLZ A 5

Jetzt möchte ich alle Kunden mit A anzeigen lassen. das soll man irgendwie TQuery machen können. Kann mir jemand helfen?


MFG Christian18

[DeddyH]

Ich verstehe nicht ganz, was "A 10" bedeuten soll. Wie ist die Tabelle denn aufgebaut?

[Andreas H.]

Hallo,

mit einer TQuery und als SQL

SQL-Code:

select * from Tabelle where Name like 'A%';

[mkinzler]

SQL-Code:

Select * from Tabelle where name like 'A%';

[DeddyH]

Es empfiehlt sich hier, einen Index auf das Feld "Name" zu setzen.

[Christian18]

Hallo,

was macht der Index für einen Sinn??? Verstehe ich jetzt nicht ganz.

[mkinzler]

Durch einen Index kann man die Suche beschleunigen. Nur bei like-Abfragen hilft das leider oft nicht.

[DeddyH]

Solange die Wildcard hinten steht, schon.

[Matze]

Ich denke, das sinnvollste wäre, eine extra Spalte für die Zuordnungsbuchstaben zu machen und diese als Index zu nutzen, dann sparst du dir das langsame "like". So hat Christian dies vermutlich auch.
Sein Problem ist vermutlich, dass er nicht weiß, wie man prinzipiell SQL-Abfragen mit TQuery ausführt.

PS: Ist eine Spalte mit einem Index versehen ist der Lesezugriff deutlich schneller als ohne, allerdings dauert der Schreibzugriff ein wenig länger. man muss also schauen, was häufiger getan wird (lesen/schreiben). Das, was im WHERE-/AND-/ORDER-Abschnitt ist, sollte meines Wissens mit einem Index versehen werden.

[Ralf Kaiser]

Zitat:

Zitat von Christian18

Hallo,

was macht der Index für einen Sinn??? Verstehe ich jetzt nicht ganz.

Die Abfrage ist schneller als ohne Index. Wenn auf der Spalte keine Index sitzt dann muss die gesamte Tabelle Datensatz für Datensatz durchsucht werden. Mit Index "weiss" die Datenbank sozusagen schon, welch Datensätz zurückgeliefert werden müssen.

Edit: schon wieder kein roter Kasten... :evil:

[mkinzler]

Aber nur bei manchen DBMS. Bei Paradox aber eher nicht

[Christian18]

Hallo,

so funktioniert es aber leider nicht.

Delphi-Quellcode:

DM.QKunden.SQL.Add('select * from TKunden where Name like 'A%';');

DM ist ein Datenmodul

QKunden ist eine TQuery Komponente

was habe ich falsch gemacht?

LG Chris

[mkinzler]

Delphi-Quellcode:

DM.QKunden.SQL.Text := 'select * from tabelle where name like '+QuotedStr('%A')+';';

[Matze]

Wenn ich es richtig sehe, hast du doch eine extra Spalte für die Buchstaben. Also A steht alleine in einer Spalte, oder nicht? Denn das wäre zu empfehlen, dann brauchst du kein "like", das immer etwas langsamer sein wird, was ich bereits geschrieben habe.

@Markus: Im Falle, dass Strings wie "A xxx" in einer Spalte stehen, müsste der Platzhalter "%" nach dem A stehen.

[Ralf Kaiser]

Zitat:

Zitat von Christian18

so funktioniert es aber leider nicht.

Zitat:

Zitat von Christian18

was habe ich falsch gemacht?

Es wäre gut, wenn du uns sagen würdest, was nicht funktioniert! Kommen keine Daten zurück obwohl Datensätze mit den Kriterien vorhanden sind? Gingt es eine Fehlermeldung? Öffnest du die Query auch nachdem das Statement hinzugefügt wurde?

Zeig doch mal etwas mehr Code als nur eine Zeile! Im allgemeinen tun sich die Leute hier mit hellsehen etwas schwer (ich zumindest)

[Andreas H.]

Ruft Du auch

Delphi-Quellcode:

DM.QKunden.open

auf?

[DeddyH]

Nochmal kurz zurück zum Index:
Man stelle sich vor, man hat ein tolles Buch über Delphi, das schön thematisch gegliedert ist. Nun möchte man zu einem Befehl etwas nachschlagen (z.B. zu "StringReplace"). Die meisten Bücher weisen auf den letzten Seiten einen (alphabetisch geordneten) Index auf. Hier schaut man unter "S" nach "StringReplace" und kann die Seitenzahl(en) nachschauen, in denen dieser Befehl verwendet/erklärt wird. Ohne diesen Index muss man zwangsläufig das gesamte Buch durchblättern, um die entsprechenden Seiten zu finden. Weiß man allerdings nur noch, wie die Bezeichnung des gesuchten Befehls endet, nützt einem der Index leider logischerweise auch nichts mehr.

[Christian18]

Hi,

Delphi-Quellcode:

  DM.QPatienten.SQL.Add('select * from Data\Patienten where Name like ' + QuotedStr('B%') + ';');
  DM.QPatienten.ExecSQL;

so sieht mein code nun aus. Leider werden trotzdem noch alle datensätze angezeigt.

[mkinzler]

Dann scheinst du eine andere Datenmenge anzuzeigen, weil diese zeigt gar bichts an. Wg. .ExecSQL att .Open

[DeddyH]

Delphi-Quellcode:

DM.QPatienten.Close;
DM.QPatienten.SQL.Clear;
DM.QPatienten.SQL.Add('select * from Data\Patienten where Name like ' + QuotedStr('B%') + ';');
DM.QPatienten.Open;

[Christian18]

Hi,

muss ich an der Komponente TQuery noch was einstellen??? Weil es immernoch nicht funktioniert. Ich habe auch die richtige DataSource angeklemt. Ich habe nochmal nachgeschaut.

Fehler: In meinem DBGrid werden trotzdem alle Datensätze angezeigt.

[Christian18]

Hallo,

hat jemand zufällig eine kleine Beispiel anwendung parat?

[mkinzler]

Und bist du wirklich sicher, daß das Grid mit der DataSource des Queries verknüpft ist?

[Christian18]

ja ganz sicher

[Christian18]

Also,

ich habe eine Tabelle TPatienten, eine DataSource DSPatienten und eine Querry QPatienten.

DataSource habe ich bei DataSet mit der Tabelle verknüpft. Die DataSource habe ich dann an mein DBGrid angeklempt. Und die Querry habe ich auch an meiner DataSource drann.

Ist doch richtig oder?

[mkinzler]

Wechsel mal die DataSource von Tabelle auf den Query.

[Christian18]

Zitat:

Zitat von mkinzler

Wechsel mal die DataSource von Tabelle auf den Query.

wird mir in der Liste nicht angeboten. Und wenn ich es eintippe, dann kommt eine meldung:

DSPatienten: Zirkuläre Datenverbindung sind nicht erlaubt.

[mkinzler]

Also nicht in der Table/Query sondern in der DataSource

[Christian18]

ja habe ich doch gemacht

[mkinzler]

Delphi-Quellcode:

Query.DataSource := DataSource;
DataSource.DataSet := QPatienten;

[Christian18]

Ja,

genau dann komme die Meldung:

Delphi-Quellcode:

  QPatienten.DataSource := DSPatienten;
  DSPatienten.DataSet := QPatienten;

[mkinzler]

QPatienten.DataSource := DSPatienten;

[Christian18]

nur mal so ne frage muss ich die QPatienten (TQuerry) auch noch Active auf true setzen?

[mkinzler]

Sollte durch .Open passieren

[Christian18]

Zitat:

Zitat von mkinzler

Sollte durch .Open passieren

ok