DataSource.DataSet' e Runtime Değer Atama

[pro_imaj]

Unutmadan Mesajın "Hiçbirşey Bulunamadı" gelmesi Datasource ve Adoquery başka bir formada fakat o forma erişebiliyorum.

[pro_imaj]

Merhaba;

Sorunu buldum.
Datasource yi belirlediğimizde Dataset zaten otomatik geliyormuş. Ben bunu da program içinden vermeye çalışınca erişim yetkin yok mesajı alıyorum.

Sadece DataSourceyi vererek sorunu çözdüm.

Çok teşekkür ederim.

[badkursat]

Tablodaki alanın bir dataset olduğundan emin misin

Kod: Tümünü seç

If AdoQuery1Data_Source is TDataSet Then Showmessage('Bu bir DataSet')

Eğer bu alan bir data set ise zaten

Kod: Tümünü seç

DataSource.DataSet := AdoQuery1Data_Source;

kodu çalışacaktır

yada

Bunu bir değişkene alın

Kod: Tümünü seç

var
  ADataSet : TDataSet
begin
  ADataSet := AdoQuery1.FieldByName('Data_Source').Value; 
end;

Eğer bir Dataset değilde sadece Datasetin ismi varsa
ya FindComponent ile bulun
ya da kendiniz arama yapın kendi aramanızı da şöyle yapabilirsin

Kod: Tümünü seç

  
function FindComponentExt(Name:string):TComponent;
Begin  
  for i:=0 to Form1.ComponentCount-1 do
    if not(Form1.Components[i] is TControl) then
     If Form1.Components[i].Name = Name Then 
     	Begin
     		Result := Form1.Components[i];
     		Break;
     	End;
end;

Kullanımı

Kod: Tümünü seç

var
  ADataSet : TDataSet
begin
  If FindComponentExt(AdoQuery1.FieldByName('Data_Source').AsString) is TDataSet Then
      ADataSet := FindComponentExt(AdoQuery1.FieldByName('Data_Source').AsString);
end;

[HardRaven]

Merhaba,

ADOQuery1Data_Set.Text değerini trimlemeyi denedinizmi ? Veritabanına kaydettiğiniz component isimlerinin başında yada sonunda boşluk yada istenmeyen karakterler olabilir. Dönendeğer aradığınız değer olmayabilir.

[pro_imaj]

Merhaba,

ADOQuery1Data_Set.Text değerini trimlemeyi denedinizmi ? Veritabanına kaydettiğiniz component isimlerinin başında yada sonunda boşluk yada istenmeyen karakterler olabilir. Dönendeğer aradığınız değer olmayabilir.

Dün geceden bu yana uğraştığım sorunu sizin söyleminizle çözdüm teşekkür ederim.

[HardRaven]

Rica ederim.
Bazen zihin dolu olunca böyle ufak tefek detaylar atlanabiliyor.