[viv]

من البداية لو اردت انشاء المكونات برمجيا

كود :

 ConnectionString:=ExtractFileDir(Application.ExeName) + '\db.mdb'  ;
    Ado:=TADOConnection.Create(nil);
    Ado.LoginPrompt:=false;
    Ado.Close;
    Ado.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=' + ConnectionString;
    Ado.Connected:=true;


    ADOTable1:=TADOTable.Create(self);
    ADOTable1.Connection:=Ado;
    ADOTable1.TableName:='Test1';
    ADOTable1.Open;

    DataSource1:= TDataSource.Create(nil);
    DataSource1.DataSet:= ADOTable1;

    DBGrid1.DataSource:= DataSource1;

    ADOTable2:=TADOTable.Create(self);
    ADOTable2.Connection:=Ado;
    ADOTable2.TableName:='Test2';
    ADOTable2.MasterSource:= DataSource1;
    ADOTable2.MasterFields:='ID';
    ADOTable2.IndexFieldNames:='mindex';
    ADOTable2.Open;


    DataSource2:= TDataSource.Create(nil);
    DataSource2.DataSet:= ADOTable2;


    DBGrid2.DataSource:= DataSource2;

   


تحميل المثال


  New folder.rar (الحجم : 151.66 ك ب / التحميلات : 50)

[wared]

(21-06-19, 10:24 PM)viv كتب : من البداية لو اردت انشاء المكونات برمجيا

كود :

 ConnectionString:=ExtractFileDir(Application.ExeName) + '\db.mdb'  ;
    Ado:=TADOConnection.Create(nil);
    Ado.LoginPrompt:=false;
    Ado.Close;
    Ado.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=' + ConnectionString;
    Ado.Connected:=true;


    ADOTable1:=TADOTable.Create(self);
    ADOTable1.Connection:=Ado;
    ADOTable1.TableName:='Test1';
    ADOTable1.Open;

    DataSource1:= TDataSource.Create(nil);
    DataSource1.DataSet:= ADOTable1;

    DBGrid1.DataSource:= DataSource1;

    ADOTable2:=TADOTable.Create(self);
    ADOTable2.Connection:=Ado;
    ADOTable2.TableName:='Test2';
    ADOTable2.MasterSource:= DataSource1;
    ADOTable2.MasterFields:='ID';
    ADOTable2.IndexFieldNames:='mindex';
    ADOTable2.Open;


    DataSource2:= TDataSource.Create(nil);
    DataSource2.DataSet:= ADOTable2;


    DBGrid2.DataSource:= DataSource2;

تحميل المثال

ماشاء الله أستاذي viv