Adodataset Ms SQL

[ahmethakan]

Aşağıdaki kodun şu bölümü hariç
And pnb.Adi Like'''+Edit8.Text + '%'' And pnb.Soyadi Like''' + edit9.Text + % '''';
Ms SQL e bağlantı yapıyor ve db grid e verileri aktarıyorum fakat şu kodu
And pnb.Adi Like'''+Edit8.Text + '%'' And pnb.Soyadi Like''' + edit9.Text + % '''';
ekleyince adı ve soya adına göre veriyi süzdürmek istiyorum program derlemiyor şu hatayı veriyor [Error] anaprog.pas(684): Unterminated string
bu sorun nasıl çözülür?

Kod: Tümünü seç

Procedure TForm1.BitBtn2Click(Sender: TObject);
Begin
  dm.ADODataSet1.Close;
  dm.ADODataSet1.CommandText :=
    'select pnb.*,pkb.brans,br.*,(select Gorevi from Gorev where GID = pnb.Gorevi) As Görev,(select ACIKLAMA from VerilerKursMerkezi Where KMID = pkb.KursMrk) As Kursadi,pnb.tckimlik, pkb.tckimlik, pnb.Gorevi from personelnufusbilgi pnb, personelkursbilgi pkb, Branslar br where pnb.tckimlik = pkb.tckimlik And pkb.brans = br.ABID And pnb.Adi Like'''+Edit8.Text + '%''  And pnb.Soyadi Like''' + edit9.Text + % '''';
  dm.ADODataSet1.Open;
End;

[aslangeri]

s.a.
satırın sonuna bir ' (tırnak) işareti koyarak. sorunu çözebilirsin.
sonlandırılmamış string diyor.
kolay gelsin.

edit9.Text + % '''';

burada bi sıkıntı var gibi ne dersin.

Kod: Tümünü seç

 edit9.Text + '% '''; 

böyle bişey olmasın.
kolay gelsin.