Exception bei SQL Befehl über MySqlDac

[Andidreas]

hi,

ich hab grad ein kleines problem, vielleicht kann mir ja hier jemand weiter helfen...

ich mach gerade meine 2 applikation in delphi, diese soll folgende funktion haben,

der benutzer gibt einen sql befehl in ein memo feld ein, und über diesen sql befehl soll anschließend auf meine mysql db zugegriffen werden und daten für den aufruf des list & label generators ermittelt werden..

der sql befehl im programm sieht wie folgt aus:

Delphi-Quellcode:

 Try
  With (dbm.VariableQuery) Do
  Begin
      Active := False;
      SQL.Clear;
      SQL.Add('"'+ Memo1.Text +'"');
      Active := True;
  End;
  Except
      MessageDlg('Exception in Define Variables SQL Command!' +#13
                +'Please Check the SQL Command!', mtwarning, [mbok],0);
  End;

der von mir als benutzer des programms eingegeben sql befehl sieht so aus:

Select Feld1 From Datei eigentlich ja ganz simpel aber jedes mal kommt ne exception und ich hab keinen plan warum...

in meiner 1. Anwendung, hab ich schon mal sowas ähnliches gemacht, denn da hab ich bei der where bedingung, ein edit feld für die wert angabe genommen, und des geht auch...
aber warum das hier net geht... keine ahnung...



hoffentlich könnt ihr mir weiterhelfen...

oder liegt des vielleicht daran das ich ein memo feld nehm???

[Jelly]

Warum setzt Du zusätzlich noch "" um deinen SQL Befehl ?

[Andidreas]

*gg* das hab ich mir grad auch gedacht und des weg gemacht ^^
jetzt gehts


aber zur erklärung warum ich das gemacht hab... denkfehler meinerseits und wahrscheinlich anfänger dummheit...

der sql befehl von meiner 1. programm sieht ungefähr so aus...

Delphi-Quellcode:

SQL.Add('Select Feld1, Feld2 '
  + 'From  Datei1 '
  + 'Where Feld1 = "'+ edit_snr.Text +'" ');

naja aber die beiden " brauch ich ja weil der wert in der where klausel ein alphanummerischer wert is
oder seh ich des falsch



naja aber in meinem jetztigen programm funkts so...:

Delphi-Quellcode:

 Try
  With (dbm.VariableQuery) Do
  Begin
      Active := False;
      SQL.Clear;
      SQL.Add(Memo1.Text);
      Active := True;
  End;
  Except
      MessageDlg('Exception in Define Variables SQL Command!' +#13
                +'Please Check the SQL Command!', mtwarning, [mbok],0);
  End;

[Jelly]

Zitat von Andidreas:

Delphi-Quellcode:

SQL.Add('Select Feld1, Feld2 '
  + 'From  Datei1 '
  + 'Where Feld1 = "'+ edit_snr.Text +'" ');

Nutze lieber:

Delphi-Quellcode:

SQL.Add('Select Feld1, Feld2 '
  + 'From  Datei1 '
  + 'Where Feld1 = '+ QuotedStr(edit_snr.Text) );

Da Du mit deiner Methode Probleme kriegst, wenn in deinem Editfeld ' oder " eingegeben werden.
Ausserdem ist bei SQL Standard, die Strings in einfache Quotes zu setzen (') anstatt in doppelte (").

Noch besser ist sogar die Verwendung von Parametern in deiner Abfrage.

Delphi-Quellcode:

SQL.Add('Select Feld1, Feld2 '
  + 'From  Datei1 '
  + 'Where Feld1 = :SNR');
Parameters.ParamByName('SNR').Value := edit_snr.text ;

[Andidreas]

danke für denn tipp...


werd ich bei gelegenheit mal ausprobieren, und mein ergebniss posten...