Database1 : TDateBase; Table1 : TTAble; DataSource1 : TDataSource; Procedure ConnectBase; begin Try {Définition de la Session}; Session.AutoSessionName := True; Session.NetFileDir := PathIni.Rep_Alias;//Chemin du pdx.net Session.AddPassword('MmonPass'); Session.Active := True; If Session.IsAlias('MonAlias') then Session.DeleteAlias('MonAlias'); Session.AddStandardAlias('MonAlias','Chemin de la base de données','PARADOX'); {Creation des composants database} DataBase1 := TDataBase.Create(nil); {Configuration des composants database} {SessionName} DataBase1 := Session.SessionName; {DatabaseName} DataBaseAsync2000Net.DataBaseName := 'MonDataBase'; {AliasName} DataBase1.AliasName := 'MonAlias'; {Connection ttable} Table1 := TTable.Create(nil); Table1.DatabaseName := 'MonDataBase'; Table1.TableName := 'Nom de ta table'; Table1.SessionName := Session.SessionName; Table1.ReadOnly := True; Table1.Active := True; DataSource1 := TDataSource.Create(nil); DataSource1.DataSet := Table1; DbGrid1.Datasource := DataSource1; except {En cas d'erreur on détruit les compos} DataBase.Free; Table1.Free; DataSource1.Free; end; end;