SOLVED: DBGrid SQL Select from like problem.

[Bernie110]

Hallo,

also dieses DBGrid macht mir echt zu schaffen. Man kann hierzu viel googeln aber irgendwie komme ich mit meinen Suchbegriffen nicht weiter.

Ich möchte eigentlich nur über zwei Edit Felder Daten eingeben und mittels dieser filtern
Dazu wollte ich folgenden Code verwenden.
Es funktioniert auch alles ..solange ich Daten in meine Such Edit Felder eingebe, welche auch vorhanden sind.
GIbt es keine Daten hierzu steigt Lazerus ohne Fehlermeldung mit *bling* aus und ich befinde mich wieder in der Entwicklungsumgebung.
Jemand eine Idee ?

Code: Alles auswählen

procedure Tfrm_Stamm_Land.BT_FILTERClick(Sender: TObject);
var
    XLand_lang : String;
    XKontinent : String;
begin
 
   XLand_Lang := SUCH_LAND.text;
   XKontinent := SUCH_Kontinent.text;
 
 SQLQuery1.close;
 SQLQuery1.SQL.Clear;
 SQLQuery1.SQL.Add('select * from STAMM_LAND WHERE Land_Lang Like '''+XLand_Lang+'%'' and Kontinent Like '''+XKontinent+'%'';');
 SQLQuery1.open;
 
 //DBGrid1.refresh;
 SUCH_LAND.setfocus;
end; 

Danke für eure Hilfe Lg Bernie

[af0815]

Steige bitte auf Queries mit Parametern um. Das Stringgefrickel mit den Hochkommas und Sonderzeichen im String ist immer eine Gefahrenquelle. Zum Austieg mit bling, hast du irgwndwann gesagt, das er irgendwelch Exceptions unterdrücken soll ?
Setze dir in der IDE einen Brakepoint und steppe das Programm dann durch. Dann sieht man wo es bling macht.

[Bernie110]

alles klar...danke
er steigt aus, da er keinen Wert findet... und bei DrowCell dieser
Code ein Bild benötigt..welches logischerWeise nicht geliefert werden kann

Code: Alles auswählen

var
 
  pic: TBitMap;
  foto : string;
begin
 if Column.Index=1 then
 begin
      pic := TBitMap.Create;
      try
      foto := SQLQuery1.FieldByName('FLAG_PATH').AsString;
      pic.LoadFromFile(foto);
      DBGrid1.Canvas.Draw(Rect.left, Rect.Top, pic);
      DBGrid1.Canvas.StretchDraw(Rect, pic);
     finally
     pic.Free;
   end;
 end;

Jetzt wäre die Frage wie und wo man hier eine Fehlerbehandlung die das berücksichtigt einsetzt.

[Bernie110]

ich denke ich habe das Problem hiermit gelöst.
Würdet ihr das auch so machen ?

Code: Alles auswählen

var
 
  pic: TBitMap;
  foto : string;
begin
 if Column.Index=1 then
 begin
      pic := TBitMap.Create;
      try
      foto := SQLQuery1.FieldByName('FLAG_PATH').AsString;
       if foto <>'' then
           begin
              pic.LoadFromFile(foto);
              DBGrid1.Canvas.Draw(Rect.left, Rect.Top, pic);
              DBGrid1.Canvas.StretchDraw(Rect, pic);
           end;
 
     finally
     pic.Free;
   end;
 end;  

[Winni]

Hi!

Und wenn nun ein böser Mensch "foto" auf der Platte gelöscht hat?

Code: Alles auswählen

 if (foto <>'') and FileExists(foto) then
           begin
           ...

Winni

[Bernie110]

Super ! Herzlichen Dank für eure Hilfe ! Lg Bernie