Discussion :

[guiling]

Bonjour à tous,

J'ai un projet qui consiste à lire une base de données Access.
Dans cette base Access, j'ai plusieurs Table qui s'enregistre sous le format TPS_PRISE_RL jj/mm/aaaa (jour, mois année)

J'ai donc plusieurs table dans une seule base de données Access.

Lors de la lecture de la base, il y a un endroit, pour lire une table qui est TableName.
Le souci est que je suis obligé de mettre une valeur si je veux que mon programme compile.

Code :

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

1
2
3
4
5
6
7
8
 
  // Lecture de la table access dans un edit qui se nomme table
  Base_donnees->Table_acces->TableName == Table->Text;
  Affi_liste->Enabled = true;  // Ouvre l'access
  Base_donnees->Table_acces->Active = true; // Affiche les données
 
  // Affiche le nombre de lignes
  Donnees->Caption = "Il y a "+IntToStr(Base_donnees->Table_acces->RecordCount)+ " lignes";

Quand je fais ceci, il lit la table qui est rentrer en paramètre.

Avez-vous des solutions?

Merci

Guiling

[Fbartolo]

Je n'ai jamais vu cela, mais si c'est le cas, tu mets n'importe quel nom, comme avant de mettre cette table à active tu la définis cela ne doit pas poser de PB.

Attention, lors de la comilation/exécution ta table doit abolument être innactive sinon tu auras une erreur puisque dans le principe, au départ cette table n'existe pas.

Tu pourrais aussi au démarrage de ton application lire tous les nom de tables présentent dans ta base de données et créer dynamiquement autant d'objet que de table ou un seul avec un affectation sur une stringlist que tu auras chargée au démarrage.
Liste et charge les tables:

Code :

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

StarDataModule->DataConnection->GetTableNames(ListeTableComboBox->Items , false); // charge le nom des tables (et requêtes)

liste les données de la table choisie:

Code :

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

1
2
3
	StarDataModule->TestDataSet->Active = false;
	StarDataModule->TestDataSet->CommandText = "SELECT * FROM " + ListeTableComboBox->Text;
	StarDataModule->TestDataSet->Active = true;