dbedit, datasource ve datafield bağlantısı

[mazhargemci]

merhaba arkadaşlar
dbedit1 in object inspectorunda datasourcesini formda kayıtlı datasource1i seçiyoruz
yine dbedit1 in object inspectorunda datafieldi veritabanına kayıtlı olan field seçiyoruz bunda sıkıntı yok fakat
ben bu ikisini kod kısmından yapmak istiyorum nasıl yapabilirim ve bunu formun create olayına mı yapıyoruz
yoksa

Kod: Tümünü seç

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

  end;

  if NOT FileExists( strData + 'Veritabani.MDB' ) then
  begin // veritabanı oluşturuluyor
    Katalog  := CreateOleObject('ADOX.Catalog');
    Katalog.Create( Form1.ADOConnection1.ConnectionString );
    Katalog  := Unassigned;    // Uses Variants

    strTablo := 'CREATE TABLE ArsivTablo ('
      + 'A_KayNo    AutoIncrement CONSTRAINT idxArsiv PRIMARY KEY, '
      + 'DosyaNo            Text(4), '
      + 'SicilNo            Text(6), '
      + 'AdiSoyadi          Text (25), '
      + 'TcKimlik           Text (11),'
      + 'Telefon            Text (11),'
      + 'Adres              Text (45),'
      + 'Mahalle            Text (15),'

üstte adoquery1.connection:=adoconnection1 hemen altına mı ?
bilgi verirseniz sevinirim

[xozcanx]

Kod: Tümünü seç

  DBEdit1.DataSource :=DataSource1;
  DBEdit1.DataField :='Alan1';

öncelikle datasource bağlantılarını yap daha sonra DBEdit bağlantılarını yapabilirsin. kolay gelsin.

[mazhargemci]

Kod: Tümünü seç

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

tüm bağlantılar yapılı olduğu halde veritabanında 'SicilNo' olduğu halde programı çalıştırınca DbEdit1: Field'SicilNo' not found. diye bir hata aldım

[xozcanx]

Kod: Tümünü seç

    ADOConnection1.LoginPrompt := False;
    ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + strData + 'Veritabani.MDB';
    DataSource1.DataSet  := ADOQuery1;
    DBGrid1.DataSource   := DataSource1;
    AdoQuery1.Connection := ADOConnection1;
    AdoQuery1.Activate;
    dbedit1.DataSource:=DataSource1;
    dbedit1.DataField:='SicilNo';