SQL-Statement doesn't return rows

[himitsu]

Man kann versuchen eine Query-Analyse zu machen und darüber entscheiden

oder einfach zwei Buttons (Open / Execute)

oder ganz billig Try-Except um das Open und NUR diese eine Exception abfangen ... da kann man auch das Grid disablen oder ein Label anzeigen, wenn "SQL-Statement doesn't return rows" aufgetreten ist.

[Khanysha]

Zitat von himitsu:

oder ganz billig Try-Except um das Open und NUR diese eine Exception abfangen ... da kann man auch das Grid disablen oder ein Label anzeigen, wenn "SQL-Statement doesn't return rows" aufgetreten ist.

Ist ganz billig auch korrekt? Ich will mir nicht gleich "Falsches" angewöhnen, wenn ich lerne dann (hoffentlich) gleich richtig

LG

[jobo]

Ja, wenn Du genau die eine Exception abfängst und behandelst ist es ok.

[himitsu]

Wenn an der Stelle Statements erlaubt sind, die kein ResultSet liefern, dann ist es OK.
Abfangen des einen "Fehlers" und ihn ordentlich behandeln ... für dich ist dieser "Fehler" dann halt kein Fehler, sondern nur eine "Information".
* nachher auswerten und diesen einen Fehler als "nicht schlimm" einstufen

Oder, wie gesagt, man kann das vorher entscheiden und dann Beides (SELECT oder nicht) getrennt behandeln
* 2 Knöpfe -> der Benutzer entscheidet
oder
* Query analysieren und versuchen rauszufinden ob OPEN oder EXECUTE nötig ist

[Neutral General]

Es ist sicher nicht 100% wasserdicht aber du hast bestimmt 80-90% aller Fälle abgedeckt wenn du einfach nur schaust ob das SQL mit "SELECT" beginnt.

[nahpets]

Also ich löse das Problem ganz einfach:

Sind die ersten 6 Zeichen des Statement = select, dann rufe ich open auf, ansonsten ExecSQL.

Als Beispiel:

Delphi-Quellcode:

qry.sql.text := memo.text;
if AnsiLowerCase(Copy(qry.sql.text,1,6)) = 'select' then begin
  qry.Open;
end else begin
  qry.ExceSQL;
end;
StatusBar.SimpleText := Format('Von der Abfrage waren %d Zeilen betroffen.',[qry.RowsAffected]);

(Jetzt nur so hingedaddelt, nicht getestet.)

[haentschman]

Hallöle...

wenn ich höre "SQL Statements vom User eingeben zu lassen" kriege ich Pick... Wenn du das nur als dein Testprogramm zum üben benutzt, dann ist alles gut.

Der Knackpunkt ist: SQL Injection Da solltest du dich mal schlau machen was das ist.
Deshalb sollte man auch immer Parameter in den Statements verwenden.

[Khanysha]

Zitat von nahpets:

Als Beispiel:

Delphi-Quellcode:

qry.sql.text := memo.text;
if AnsiLowerCase(Copy(qry.sql.text,1,6)) = 'select' then begin
  qry.Open;
end else begin
  qry.ExceSQL;
end;
StatusBar.SimpleText := Format('Von der Abfrage waren %d Zeilen betroffen.',[qry.RowsAffected]);

Getestet und funktioniert Nun probiere ich die anderen Sachen aus

Zitat von p80286:

Das mit dem SELECT am Anfang ist nicht immer richtig (und ziemlich frustrierend wenn ein Programm für ein paar K€ das nicht weiß)

Kannst du mir das genauer erklären? Es soll doch nur für SELECT OPEN genommen werden, hab ich am Anfang einer Anweisung nicht SELECT oder die anderen stehen? Also kann ich das auch verdrehen oder gar verschachteln?
LG