dbgrid

[mazhargemci]

image1.visible:=false;
bunun altına yazıyomuşum
çok teşekkür ederim abi allah razı olsun

[mazhargemci]

bu kodları yazınca bir sıkıntı yok fakat

Kod: Tümünü seç

ADOConnection1.LoginPrompt := False;
    ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + strData + 'Kiralama.MDB';
    DataSource1.DataSet  := ADOQuery1;
    DBGrid1.DataSource   := DataSource1;
    AdoQuery1.Connection := ADOConnection1;
    AdoQuery1.Active;

hemen altına

Kod: Tümünü seç

    dbedit1.DataSource:=DataSource1;
    dbedit1.DataField:='DosyaNo';

yazınca programı çalıştırdığın zaman dbedit1: field 'DosyaNo' not found şeklinde hata veriyor

[mrmarman]

AdoQuery için, active etmeden hemen önce içinde DosyaNo alanı da olan bir SELECT yazarsan ve ondan sonra active edersen olur.

[mazhargemci]

adoquery1.active; den önce şu formun show olayına yazdığımız kodları

Kod: Tümünü seç

sql.Add('select DosyaNo as [Dosya No], SicilNo as [Sicil No],') ;
  sql.Add('AdiSoyadi as [Adı Soyadı], TcKimlik as [Tc Kimlik No], Telefon as [Telefon], Adres as [İkametgah Adresi], ');
  sql.Add('Mahalle as [Mahallesi], Ada as [Ada], Parsel as [Parsel], ');
  sql.Add('isyeriMevkii as [İşyeri Mevkii], isyeriNo as [İşyeri No], Metrekaresi as [Metrekaresi], ');
  sql.Add('Elektrik as [Elektrik Abonesi], Suu as [Su Abonesi], KiraBedeli as [Kira Bedeli], BaslaTar as [Başlangıç Tarihi],') ;
 sql.Add('A_BelgeAdi as [Belge Adı], A_BelgeTip as [Belge Tip], A_BelgeTip, A_BelgeAdi');
  sql.Add('from ArsivTablo');

ondan sonra

Kod: Tümünü seç

dbedit1.DataSource:=DataSource1;
    dbedit1.DataField:='DosyaNo';

yazıp sonrada

Kod: Tümünü seç

 adoquery1.active;

şeklinde mi yapacağız

[mazhargemci]

olmadı yaw

Kod: Tümünü seç

dbedit1.DataSource:=DataSource1;
    dbedit1.DataField:='DosyaNo';

kaldırınca çalışıyor fakat dbedit aktif olmuyor

[esistem]

Selam,

Kod: Tümünü seç

sql.Add('select DosyaNo as [Dosya No], SicilNo as [Sicil No],') ;

yukarıdaki select sorgunuzda "Dosya No" şeklinde belirtmişsiniz fakat "dbedit1.DataField:='DosyaNo';" demişsiniz, "Dosya No" daki boşluk nerde?

Sanırım datasource'da Title "Dosya No" şeklinde görünsün diye select sorgunuzda "as" kullanıyorsunuz, bunun yerine,

Kod: Tümünü seç

sql.Add('select DosyaNo, SicilNo,') ;

şeklinde sorgu yazıp Query after open olayına aşağıdaki şekilde yazıp grid in title isimlerini değiştirebilirsiniz (eğer grid varsa). yoksa da zaten "dbedit1.DataField:='DosyaNo';" çalışacaktır.

Kod: Tümünü seç

sql.Add('select DosyaNo, SicilNo, ..... ') ;
DBGrid1.Columns[0].Title.Caption:='Dosya No';
DBGrid1.Columns[1].Title.Caption:='Sicil No';

[mazhargemci]

bununla benim yazıdğım hemen hemen aynı değilmi önemli olan
dbedit1.DataSource:=DataSource1;
dbedit1.DataField:='DosyaNo';
çalışması

[mazhargemci]

çok teşekkürler oldu sonunda