URUN_1 tablosu ise
K_NO integer
BAG varchar
ADI varchar
alanlarından oluşuyor.
Kod: Tümünü seç
begin
for
select K_NO, BAG,ADI from URUN_1
where urun_1.K_NO in (1002,1008,1009)
into :k_no, :bag, :adi
do
suspend;
end
Kod: Tümünü seç
begin
for
select K_NO, BAG,ADI from URUN_1
where urun_1.K_NO in (:K)
into :k_no, :bag, :adi
do
suspend;
end
Kod: Tümünü seç
DataModule1.Urun_Agaci.Close;
DataModule1.Urun_Agaci.SQL.Clear;
Datamodule1.Urun_Agaci.SQL.Add('select * from URUN_AGACI ('+#39+Edit3.Text+#39+')');
DataModule1.Urun_Agaci.Open;
Kod: Tümünü seç
DataModule1.Urun_Agaci.Close;
DataModule1.Urun_Agaci.SQL.Clear;
Datamodule1.Urun_Agaci.SQL.Add('select * from URUN_AGACI (1002)');
DataModule1.Urun_Agaci.Open;
Kod: Tümünü seç
DataModule1.Urun_Agaci.Close;
DataModule1.Urun_Agaci.SQL.Clear;
Datamodule1.Urun_Agaci.SQL.Add('select * from URUN_AGACI (1002,1008)');
DataModule1.Urun_Agaci.Open;