Discussion :

[stfanny31]

salut
j'ai un progamme dans le que y'a :un OpenDialog1 et une table
j'ai recupéré le nom de ma table dans un label avec le code suiavant

Code :

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

1
2
3
 
If opendialog1.Execute then
label1.Caption:=(ExtractFileName(OpenDialog1.FileName));

je veux que ce chamain séléctionné s'crive dans le .DatabaseName de ma table
j'ai esséyé ca

Code :

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

1
2
 
t1.Database:=lable.caption;

mais j'obtin le message suiavant :

ne paut affecter a une propriété en lecture seule

[evarisnea]

la propriété Database du TTable désigne le composant TDatabase auquel s'associe le TTable. tu devrais plutôt faire comme ceci:

Code :

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

t1.Database.DatabaseName := OpenDialog1.Filename;

[stfanny31]

Merci evarisnea
j'ai esséyé votre code mais j'obtien le message d'erreur suiavant :

violation d'accés a l'adresse 0046BD6E dans le module 'projet1.exe'.lecture de l'adresse 00000020

[evarisnea]

disposes-tu d'un objet TDataBase assigné à la propriété Database de ton composant t1 ?

[stfanny31]

disposes-tu d'un objet TDataBase assigné à la propriété Database de ton composant t1 ?

je veux ouvrire une table apartir de mon prgramme
et la voir dans un DBGrid1 a l'aide d'un DataSource1

[evarisnea]

ok,
dans ce cas, utilises plutôt la propriété DataBasename du TTable. dans ce cas c'est plutôt un répertoire ou un nom d'alias de base de données que tu dois renseigner si j'en crois l'aide pour la propriété DatabaseName tu composant TTable

Spécifie le nom de la base de données à associer à cet ensemble de données.

Syntaxe Delphi :

property DatabaseName:String;

Syntaxe C++:

__property AnsiString DatabaseName ={read=FDatabaseName,write=SetDatabaseName};

Description

La propriété DatabaseName permet de spécifier le nom de la base de données à associer à ce composant ensemble de données.DatabaseName doit correspondre au nom d'un composant base de données utilisé dans l'application.

Remarque : Toute tentative de définir DatabaseName alors qu'un composant base de données est déjà associé à ce composant déclenche une exception.
Conseil : Lors de la conception,double-cliquez sur un composant TDatabase pour ouvrir l'éditeur de base de données et définir la valeur de la propriété DatabaseName.

pour la sélection de répertoire, voir la fonction SelectDirectory

[evarisnea]

essaie ceci (pas testé)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  repertoire:string;
begin
  If SelectDirectory('Veuillez sélectionner le répertoire de la base de données', 'c:\', repertoire) then
  begin
    label1.Caption := ExtractFileName(repertoire);//à quoi cela va servir ? je ne le sais pas
    table1.DatabaseName := repertoire;
    table1.TableName := Edit1.Text;//nom de la table dans une zone d'édition
    table1.Active := true;
  end;
end;

SelectDirectory se trouve dans l'unité FileCtrl à inclure dans les uses de la form.

[stfanny31]

evarisnea re
merci vous avé trés bien compri
que pencé vous de ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
If opendialog1.Execute then
label1.Caption:=(ExtractFileName(OpenDialog1.FileName));
label2.Caption:=(ExtractFileDir(OpenDialog1.FileName));
table1.DatabaseName:=label2.Caption ;
table1.TableName:= label1.Caption  ;
table1.Active:=true;
 
end;

je l'ai esséyé et il a l'air de bien marché

[evarisnea]

je l'ai esséyé et il a l'air de bien marché

si tu annules la boite de dialogue tu verras qu'il n'a pas l'air de marcher si bien que ça. moi je verrais ça plutôt comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
begin
  If opendialog1.Execute then
  begin
    label1.Caption := ExtractFileName(OpenDialog1.FileName);
    label2.Caption := ExtractFileDir(OpenDialog1.FileName);
    table1.DatabaseName := label2.Caption;
    table1.TableName := label1.Caption;
    table1.Active := true;
  end;
end;

[stfanny31]

evarisnea salut
merci bcp c'est exactement ce que je vouler Merci Bcp

[evarisnea]

merci bcp c'est exactement ce que je vouler Merci Bcp

sur ce, bonne nuit

[stfanny31]

cher evarisnea

bonne nuit a vous aussi et merci bcp pour votre aide