ConnectionString ADO Access

[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.

Salut,

Voici une procédure pour le faire

1) place un comboxbox et dans OnDropDown

Code:

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:

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

ConnectionString ADO Access

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

connexion avec user et password

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.