Discussion :

[crash override]

Bonjour voilà j'ai une base mybass et je voudrais créer une application qui me permette de sélectionner la base de données avant d'y accéder avec une combobox et me permette le choix des bases de données.
Une fois la base de donnée choisie, je clique sur un bouton et la base de données apparaît dans le TDBGrid.
Càd je voudrais créer trois bases de données qui sont des fichiers xml, chaque fichier a un nom différent, je sélectionne dans le combobox le nom de mon fichier, je clique sur le bouton et la base apparaît dans le TDBGrid.

Exemple: on a une combobox avec cd, dvd et annuaire téléphonique.
Si on sélectionne sur un des trois et que l'on clique sur le bouton, la base de données de ce que l'on a sélectionné apparaît dans TDBGrid .

merci pour l'aide

[Rayek]

Tu as toutes les que tu veux dasn la

Récupérer les fichiers d'un répertoire l'exemple est sur une listbox donc trés vite adaptable a une combobox.

Concernant la connexion de ton fichiers Xml au db grid. En fait tu fais la meme chose que quand tu ouvres un seul de tes fichiers, sauf que tu changes le nom du fichier quand la combobox change de valeur (onchange du combobox).

[crash override]

Cette méthode montre l'utilisation simple des fonctions FindFirst, FindNext et FindClose pour lister les fichiers et répertoires contenus dans un répertoire donné. L'exemple donné ici recherche les fichiers et sous-répertoires contenus dans le chemin indiqué dans Edit1. Les listes sont affichées respectivement dans ListBox1 et ListBox2.

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
procedure TForm1.Button1Click(Sender: TObject);
Var Chemin : String;     
    Info   : TSearchRec;
begin
  ListBox1.Items.Clear;
  ListBox2.Items.Clear;
 
  { Pour être sur que la barre oblique finisse le nom du chemin }
  Chemin := IncludeTrailingPathDelimiter(Edit1.Text);
 
  { Recherche de la première entrée du répertoire }
  If FindFirst(Chemin+'*.*',faAnyFile,Info)=0 Then
  Begin
    Repeat
      { Les fichiers sont affichés dans ListBox1 }    
      { Les répertoires sont affichés dans ListBox2 }
      If Not((Info.Attr And faDirectory)=0)
        Then ListBox2.Items.Add(Info.FindData.cFileName)
        Else ListBox1.Items.Add(Info.FindData.cFileName)
 
      { Il faut ensuite rechercher l'entrée suivante }
    Until FindNext(Info)<>0;
 
    { Dans le cas ou une entrée au moins est trouvée il faut }
    { appeler FindClose pour libérer les ressources de la recherche }
    FindClose(Info);
  End;
end;

Fonctionne avec Delphi2 et supérieur. Pour Delphi 1 il faut modifier le code en remplaçant Info.FindData.cFileName par Info.Name. D'autre part à partir de Delphi6 un message d'avertissement est indiqué pour l'utilisation de FindData. Pour désactiver cet avertissement il faut ajouter la directive {$WARN SYMBOL_PLATFORM OFF} en début de code.

je ne vois pas comment faire

[crash override]

voilà j'ai trouvé ce bout de code

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.FormCreate(Sender: TObject); 
begin 
with combobox1 do begin 
items.add('dvd'); 
items.add('cd'); 
items.add('téléphonique');  
itemindex:=0; 
end; 
end;

et je voudrais sélectionner l'un des trois nom qu'il y a dans le code et qui ouvre la base de données qui lui correspond et le voir dans un TBGrid

[Rayek]

Je te conseil fortement de voir les tutoriels et cours sur delphi que tu trouveras sur cette page
Si tu ne connais pas un minimum au niveau de delphi, ce n'est pas la peine de commencer à developper. De même, la plupart de tes questions ont des réponses directement dans la ou en appuyant sur la touche de ton clavier.

PS: Fait un effort au niveau de tes questions, c'est assez dur de te comprendre (es tu français ?)

[crash override]

savez-vous me montrer un bout de code ? merci

[lil_jam63]

Comme te l'as dit Malatar, tu devrais jeter un oeil sur les cours et tutoriels mis à ta disposition sur le site.
De plus merci de soigner un minimum ton orthographe, ce que tu dis est incompréhensible.