arama yaptırdığım zaman kayıt gelmiyor

[true_false]

merhabalar
sorum şudur
ibquery üzerinden belirlemiş olduğum table alanına edit vasıtasıyla arama yaptırıyorum.

formda iki tane queryim var birine update bağlı append için

diğerini arama yapmak için kullanıyorum data source'u diğer querimin source'u sorgumu formu araştırarak buldum teşekkür ederim ama gridime arama sonucu gelmiyor
herhangi bir hatada vermiyo querim çalışıyo ama görüntü yok

arama yaptığım kod

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
begin
  sql_arama.Close;
  sql_arama.SQL.Clear;
  sql_arama.SQL.Add('select * from telefon where AD = '''+edit1.text+''' order by AD ');
  sql_arama.Open;
    end;

not şimdiden vermiş olduğunuz güzel cevaplar için teşekkür ederim

[mege]

arama : like

sonuç yokturda ondan boş geliyordur. like ile benzerlerini ara

[vkamadan]

merhaba ,

Kod: Tümünü seç

sql_arama.SQL.Add('select * from telefon where AD = '+''''+edit1.text+''''+' order by AD '); 

şeklinde denermisiniz.
Kolay gelsin.

[true_false]

kodda bir sorun yok sadece ekrana gelmiyor yazdıklarınızı denedim ama malesef olmuyor galiba başka bir sorun var ilgilerinz için saol

[naile]

Eğer querynin çalıştığından eminsen datasource ile gridi bağlamayı unutmuş olabilir misin?

[true_false]

yok hayır problem odeilmiş querimi değiştirdim eski hatamıda şöle değiştirdim

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
procedure RunSQL(text:string);
begin
  IBQuery1.Close;
  IBQuery1.SQL.Clear;
  IBQuery1.SQL.Add(text);
  IBQuery1.Open;
end;
        begin
          RunSQL('SELECT * FROM TELEFON WHERE AD LIKE'+QuotedStr(Edit1.Text+'%'));
          if IBQuery1.RecordCount<=0 then
           begin
            ShowMessage('kayıt yok');
            RunSQL('SELECT * FROM TELEFON');
          end;
        end;

ilginize tekrar teşekkürler.

[MicroChip]

char ile varchar ın farkını unutmamak da lazımdır. ben unutmustum daha once