Anlık dataform daki dataset ve Datasource create yapma

[cinarbil]

Dataformun da 1 adet dataset ve Datasource var.

istediğim formda

Kod: Tümünü seç

sorgu_sonuc:= data_form.dataset_veri_al('Select * from SYSPRM');
              if sorgu_sonuc then
              begin
              kul_1:=data_form.sunucu_dataSet1.FieldByName('SYS_SET').AsString ;
              data_form.sunucu_dataSet1.close;code
              end;

Şeklinde istediğim gibi kullanıyorum.
sorunum aynı formda 2. 3. tabloları kullanmak istediğimde
mevcut dataset1 ve datasource1 kapatmadan nasıl create yapabilirim bazı formlarda 2-3 adet ihtiyacım oluyor.

not:dataformun üstüne ekleyince oluyor. mümkünse ihtiyaç duyduğum anda oluşturup sonrada silmek istiyorum

[fesiharslan]

Merhaba;
Dinamik olarak Query nesnesi oluşturup, sorgu sonucunuz > 0 ise Tablodan istediğiniz bir bilginin alınmasını sağlayacak bir metod paylaşıyorum.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
  function GetArsKayitVArMi(SQL1: String; var AlınacakBilgi: String): Boolean;
  var
    qry: TFDQuery;
  begin
    qry := TFDQuery.Create(Nil);
    try
      with qry do
      begin
        Connection := Form1.FDConnection1;
        Open(SQL1);
        if RowsAffected > 0 then
        begin
          AlınacakBilgi := FieldByName('ADI_SOYADI').AsString;
          Result := True;
        end;
      end;
    finally
      qry.free;
    end;
  end;

var
  kul_1: String;
begin
  if GetArsKayitVArMi('select * from personel', kul_1) then
    ShowMessage(kul_1);
end;

Yukarıdaki kod yapısında yalnızca sabit Connection nesnesi olması yetiyor. Query dinamik olarak oluşturulur ve istenilen bilgi alındıktan sonra yok edilir. Ayrıca bir DataSource kullanmanıza gerek yok.