Aşağıdaki kodu çalıştırdığımda "select deyimi, saklı bir sözcük veya yanlış yazılmış veya eksik bir bağımsız değer içeriyor veya noktalama işareti yanlış" diye bir mesaj alıyorum.
veri tabanım access, ado kullanıyorum.
Kod: Tümünü seç
with dm.qgenel do
begin
close;
sql.Clear;
sql.Add('select nikah.kimlik, nikah.dosyano, nikah.evlenmetarihi,');
sql.Add(' kadin.kimlikno, kadin.soyadi, kadin.adi, kadin.babaadi, kadin.anaadi, kadin.dogumtarihi,');
sql.Add(' erkek.kimlikno, erkek.soyadi, erkek.adi, erkek.babaadi, erkek.anaadi, erkek.dogumtarihi,');
sql.Add(' from nikah, kadin, erkek where');
if not(LabeledEdit1.Text='')
then sql.Add(' nikah.dosyano='+LabeledEdit1.Text);
if not (LabeledEdit6.Text='')
then begin
if LabeledEdit9.Text=''
then begin
sql.Add(' nikah.evlenmetarihi=:tarih1');
Parameters.ParamByName('tarih1').Value:=StrToDate(LabeledEdit6.Text);
end
else begin
sql.Add(' nikah.evlenmetarihi>=:tarih1 and nikah.evlenmetarihi<=:tarih2');
Parameters.ParamByName('tarih1').Value:=StrToDate(LabeledEdit6.Text);
Parameters.ParamByName('tarih2').Value:=StrToDate(LabeledEdit9.Text);
end;
end; {if}
ShowMessage(sql.Text);
open;
end; {with}