Discussion :

[wesloff]

Bonjour,

J'ai un projet ou je dois gérer plusieurs base de données .. j'ai donc créé plusieurs fichiers *.db avec l'outil Module de base de donnée de delphi

j'ai donc voulu associer cet évènement au bouton valider de mon formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Table1.Edit;
Table1.FieldByName('Num_erg').Value:=Edit2.Text;
Table1.FieldByName('Desc_erg').Value:=edit4.text ;
Table1.FieldByName('Sol_erg').Value:=memo1.Text ;
Table1.Post();

j'ai ajouté sur ma form en question, table1 et datasource1 avec
table1.TableName:='erg.db';
et pour le datasource, comme je n'arrive pas à le faire directement via le code, g mis la propriété autoedit à false et dans dataset > tablename vaut erg.db

donc ce que je voudrais savoir c'est comment je peux spécifier directement dans le code source quel fichier *.db le programme doit modifier, dois je mettre plusieurs datasource, donc par db ?

Merci de votre aide !!

Wesloff

[paulfr]

Bonjour,
Il existe une solution consistant à créer une procédure ayant un
paramétre "Nom du fichier".
A titre d'exemple ci-dessous une proc. qui crée un enregistrement directement
dans une grille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
...  
type
  TFichSt = class(TForm)
    DSst: TDataSource;
    Tbst: TTable;
    DBGst: TDBGrid;
    DBNavst: TDBNavigator;
 ...
 
Implementation
  ...
procedure TFichSt.TbCreat(NomTab, TitreFic : string);
begin
  Tbst.TableName := NomTab;
  FichSt.Caption := TitreFic;
  TbSt.Active := False;
  TbSt.ReadOnly := False;
  try
    with FichSt do
    begin
      LabSt.Caption := 'CREATION d''une LIGNE';
      DBNavSt.VisibleButtons := [nbFirst,nbPrior,nbNext,nbLast,nbInsert,
                                    nbCancel,nbPost];
    end;
    TbSt.Active := True;
    TbSt.Last;
    FichSt.ShowModal;
  finally
    DBGst.Enabled := True;
    TbSt.ReadOnly := True;
    TbSt.Close;
    Tbst.TableName := '';
  end;
end;

NomTab est le nom complet de la table, TitreFic étant le titre de la Form.

Espérant vous avoir dépanné.