Discussion :

[aminefr1910]

Bonjour,

j'utilise Delphi7 et je veut crée une base de données Access 2007 et la protéger par un mot de passe et cela par le mode programme sous Delphi 7

et aussi comment ajouter un nouveau champ a une table ou une nouvelle table dans une base de données Access 2007 qui existe déjà

comment faire sachant que j'utilise les UNIDAC pour me connecter

[ShaiLeTroll]

Tu peux utilise ACCESS en direct pour "administrer" tes tables

sinon, faut voir si ACCESS supporte des SQL CREATE TABLE ou ALTER TABLE ADD COLUMN ...

[SergioMaster]

Bonjour,

TUniConnection.ForceCreateDatabase : Used to force TLiteConnection to create a new database before opening a connection, if the database does not exist.

ou en utilisant un Script , cela doit être possible (TUNIScript)
sinon ,UniDac étant l'ancêtre de Firedac j'ai vu il y a pas longtemps un blog sur EDN qui parle de çaça parle d'interbase mais doit pouvoir s'appliquer a d'autres SGBDR

[aminefr1910]

Merci pour votre aide
mais j'ai tjs pas de réponse a ma question car je veut faire la creation de la base de données par programme sans avoir recours a Access

[gaby277]

Bonjour,
Oups! j'ai répondu trop rapidement, je n'ai pas pris en compte que tu utilises UNIDAC . Je laisse le code ça pourra peut être servir à quelqu'un d'autre.

Exemple de code pour DELPHI XE starter ( qui ne possède pas de composants de base de donnée donc valable pour toute version). Il faut que Access soit installé sur le poste ou installer le moteur de base de données ACCESS.
C'est brut de fonderie. Désolé de ne pas avoir eu le temps de faire le ménage dans le code et de ne laisser que ce qui t'intéresses.
D7 c'est presque pareil.
Mais tu as déjà de quoi travailler.


Il y a un tutorial très bien fait sur développez pour D6 perso de mémoire (dont je me suis inspiré).
Créer une base

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
35
36
37
38
39
procedure TForm2.cmdCreeBaseClick(Sender: TObject);
// FGFG tester si fichier existe
var
  Filename, TxtMessage: string;
  Moncatalog: tcatalog;
  buttonSelected: integer;
begin
 
  Filename := ExtractFilePath(Application.ExeName) + 'baseVideFG_2.accdb';
 
  TxtMessage := 'Le fichier' + Filename + ' existe voulez vous l''effacer ?';
 
  if FileExists(Filename) then
    { le fichier existe }
  begin
    buttonSelected := MessageDlg(TxtMessage, Dialogs.mtWarning, [mbYes, mbNo],
      0);
    if (buttonSelected = mrYes) then
      DeleteFile(FileName)
    else
    begin
      showmessage('Pas de base crée - Le fichier existant est conservé');
      exit;
    end;
  end;
 
   Moncatalog := tcatalog.create(self);
   // Ou
   //Moncatalog:= cocatalog.Create  :
 
 
  // Moncatalog.Create();
  //Moncatalog.Create(Aowner classe tcomponent);
  //   Moncatalog.Create1(Const Connectstring)
  // Moncatalog.create1('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Filename + ';');
 
  Moncatalog.create1('Provider=Microsoft.ACE.OLEDB.12.0;Data Source=' + Filename
    + ';');
end;

Créer une table

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
procedure TForm2.cmdCreeTableClick(Sender: TObject);
begin
  // Créer la connexion ADO pour Access
  // FGFG tester si table existe
  try
    if form2.RadioButtonMdb.Checked = true then
    begin
      ADObd := basemdb;
      Mprovider := providerMdb;
    end
    else
    begin
      ADObd := baseAccdb;
      Mprovider := providerAccdb;
    end;
 
    // on se connecte a la base
    Cnx := CoConnection.Create;
    Cnx.Open(Mprovider + ';Data Source=' + ADObd + ';', 'admin', '', -1);
    RS := CoRecordSet.Create;
 
    //    if cnx.State = adStateOpen then
    //      showmessage('Connection is open.')
    //    else
    //      showmessage('Connection is close.');
 
    Cmd := CoCommand.Create;
 
    //FGFG tester si table exist
        // FGFG a creuser Moncatalog.Tables.Item[i].Indexes.Append();
   // Moncatalog.Tables.Delete('qsq');
 
//    SQL := 'CREATE TABLE Editeur2 (' +
//      ' Id INTEGER, ' +
//      ' Nom VARCHAR(100), ' +
//      ' Adr VARCHAR(200) ' +
//      ')';
 
    // Ok  SQL := 'DELETE * FROM Editeur2';
 
    // On verifie si la table existe
 
    Cmd.CommandText := SQL;
    Cmd.Set_ActiveConnection(Cnx);
 
    //RS.CursorLocation := adUseServer;
 
    RS.Open(Cmd, Emptyparam, adOpenKeyset, adLockOptimistic, adCmdText);
 
  except
    on E: Exception do
      ShowMessage('Erreur creation table '#13 + E.Message);
  end;
 
end;

Code commun aux deux fonctions

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
35
36
37
38
39
40
41
42
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ADODB_TLB, ADOX_TLB, OleServer, ComObj;
 
type
  TForm2 = class(TForm)
    cmdListeTable_Adox: TButton;
    cmdCreeBase: TButton;
    cmdCreeTable: TButton;
    CmdListeChampsRecordset: TButton;
    Memo1: TMemo;
    CmdListeChampsAdoxCatalog: TButton;
    cmdCreeIndex: TButton;
    cmdSupprimeTable: TButton;
    CmdListeTableOpenSchema: TButton;
    Button1: TButton;
    Button2: TButton;
    cmdOuvreConnexion: TButton;
    EditBaseDonnees: TEdit;
    GroupBoxTypeBase: TGroupBox;
    RadioButtonMdb: TRadioButton;
    RadioButtonAccdb: TRadioButton;
    cmdInfosAdoAdox: TButton;
    cmdPeuplerTable: TButton;
    CmdRazTable: TButton;
    procedure cmdCreeBaseClick(Sender: TObject);
    procedure cmdListeTable_AdoxClick(Sender: TObject);
    procedure CmdListeTableOpenSchemaClick(Sender: TObject);
    function ADOTypeToStr(const ADOType: DataTypeEnum): string;
    procedure CmdListeChampsRecordsetClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    function TableExist(nomtable: string): boolean;
    procedure cmdCreeTableClick(Sender: TObject);
    procedure cmdInfosAdoAdoxClick(Sender: TObject);
    procedure cmdCreeIndexClick(Sender: TObject);
    procedure cmdSupprimeTableClick(Sender: TObject);
    procedure CmdRazTableClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CmdListeChampsAdoxCatalogClick(Sender: TObject);

Bon courage

[aminefr1910]

Merci pour votre aide
mais il reste une chose le mot de passe comment faire pour crée un en mode programmation