Bir Sp içinde aşağıdaki gibi bir sorgum var.
Kod: Tümünü seç
select * from tablo where id in (:param)
Teşekkürler.
Kod: Tümünü seç
select * from tablo where id in (:param)
Kod: Tümünü seç
create procedure sorgu (liste varchar(1024))
as
begin
for execute statement
SELECT * from TABLO where ID IN ('|| liste ||') into ....
do begin
suspend;
end
end
Kod: Tümünü seç
SELECT * FROM sorgu('1, 2, 12, 45, 75, 45')
Kod: Tümünü seç
select * from tablo where id > parametre1 and id < parametre2
Kod: Tümünü seç
for select isim, soyisim from tablo where id in (:parametre) into :isim, :soyisim do
Suspend;
Kod: Tümünü seç
procedure doselect;
Begin
With tstringlist.create do
Try
Add('1');
Add('2');
Query.sql.text := 'select * from sorgu('+quotedstr(commatext)+')';
Query.open;
Finally
Free;
End;
End;
Kod: Tümünü seç
CREATE PROCEDURE INSP (
inparam varchar(10))
returns (
outmusteri varchar(150))
as
begin
for execute statement
'select musteri from musteriTablosu where id in ('||:inparam||')'
into :outmusteri do suspend;
end^
SET TERM ; ^
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
begin
with TStringList.Create do
try
Add('1');
Add('2');
Add('3');
Add('49');
IBQuery1.SQL.Text := 'select * from insp('+QuotedStr(CommaText)+')';
IBQuery1.Open;
finally
Free;
end;
end;