Discussion :

[liazidf]

[delphi7-Access2003]
Bonjour,

L'idée de laisser le chois à l'utilisateur de selectionner la base de données qui peut être en local ou sur le serveur, si qqun connait cette méthode, car j'ai essayé et comme il ya beaucoups d'arguments ça ne tiens pas sur une ligne.
j'attend vos réponses merci.

[BuzzLeclaire]

Salut,

Voici une procédure pour le faire

1) place un comboxbox et dans OnDropDown

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
procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    ComboBox1.Text := OpenDialog1.FileName;
    ComboBox1.Hint := OpenDialog1.FileName;
    ComboBox1.ShowHint := true;
    Button1.Enabled    := true;
  end
    else
  begin
    ComboBox1.Text := '';
    ComboBox1.Hint := '';
    ComboBox1.ShowHint  := false;
    Button1.Enabled     := false;
  end;
end;

2) place un Button et dans le onclick

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
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Trim(ComboBox1.text) <> '' then
  begin
    With ADOCnx do
    begin
      Connected := False;
      Provider := 'Microsoft.Jet.OLEDB.4.0';
      ConnectionString := 'Data Source=' + ComboBox1.text + ';Persist Security Info=False';
      LoginPrompt := False;
      Mode  := cmReadWrite;
      try
        Connected := True;
      except
        Begin
          ShowMessage(
          'Impossible de se connecter à la base de donnée : '+#13+
          ComboBox1.Text);
        End;
      end;
    end;
  end;
end;

J'utilise les composants ADO ici, donc il faut placer également unn ADOConnection sur ta fichier (nommé ici ADOCnx)

Bye

[liazidf]

Merci le Buzz
C'est exactement ce que je voulais.

[chakir]

salut voila moi je cherche la méthode de ce connecte a une base proteger par un mot de passe en utilisant sur le logiciel une fenetre de mot de passe
merci.