Discussion :

[barth69]

Boujour à tous...

J'ai un petit soucis avec une base de données PARADOX...

Voilà, je souhaiterais modifier le programme que j'avais fait avec une stringgrid concernant l'édition d'une liste de vocabulaire... je préfère désormais gérer ça avec une base de données.

Lors de l'éxécution de mon programme, j'ai une petite form qui me réclame le nom de ma base de donnée (bein voui, l'utilisateur a peut-être envie de créer plusieurs listes de voca...), puis lorsque je clique sur le boutton Valider ma base de données est créée dans le répertoire d'exécution avec les caractéritiques que je veux.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  FormPrincipale->Table->Active = false;
  FormPrincipale->Table->DatabaseName = "";
  FormPrincipale->Table->TableType = ttParadox;
  FormPrincipale->Table->TableName = NomBase;
  FormPrincipale->Table->FieldDefs->Clear();
 
  if (!FormPrincipale->Table->Exists) // Ne remplace pas une table existante
  {
    FormPrincipale->Table->FieldDefs->Add("Ligne",ftAutoInc,0,false);
    FormPrincipale->Table->FieldDefs->Add("Mot Français",ftString,180,false);
    FormPrincipale->Table->FieldDefs->Add("Mot Anglais",ftString,180,false);
    FormPrincipale->Table->CreateTable();

Le problème viens lors de l'exécution de la seconde form, la form d'édition de la table ! En effet, il faut que je lui dise d'utiliser la table que j'ai créée précédement mais je ne sais trop comment faire :s

J'utilise une DBGrid pour voir les modifications de la table en temps réel. Sur ma seconde form j'ai donc mis un composant TTable avec un DataSource mais le pb c'est que je ne sais trop comment dire au composant TTable de pointer sur la table créée précedement et surtout de l'activer pour qu'elle soit prise en compte dans la fenêtre et affiché dans la DBGrid...

J'ai essayé :

Code :

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

FormPrincipale->Table->Active = true;

mais il me sors une erreur de paramètre...
Si vous avez une idée... help me please ^^

D'autre part si vous avez aussi une idée pour fermer une base de données et la recharger ultérieurement dans un DBGird...

Merci pour vos réponses

[Sunchaser]

Bonjour,
La première chose qui m'interpelle, c'est ceci :

Code :

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

1
2
 
FormPrincipale->Table->DatabaseName = "";

Je vais peut être dire une bêtise mais comment fais tu pour spécifier un chemin illustrant le repertoire ou est stocker la table créée ?
Perso, j'ai fais des Alias et donc je renseigne cette prppriété mais bon....
tes soucis ne sont peut être pas forcement de la.

@ +

[barth69]

Re Salut

Euhhh sauf cas contraire, si ce champ n'est pas renseigné, le programme cherche la base de données dans le répertoire en cours d'utilisation... Or là, la base de données créée est dans le répertoire ou mon prog est exécuté...

sinon comment remplirais tu ce champ ?

Code :

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

1
2
 
FormPrincipale->Table->DatabaseName= "mapremierebase.db";

comme ceci ?

merci...

[Sunchaser]

Généralement, je renseigne cette propriété a la conception avec l'inspecteur d'objet (mais cela tiens surement a des 'déviances' personnelles ).
Bon je ne dis pas que cela soit le vrai motif de l'erreur.
Que dis exactement le message d'erreur ?

[barth69]

Donc si tu veux, la base de données est belle et bien créer puisque le fichier apparait dans le répertoire, j'accède a la form pour l'édition de la base et quand je clique sur nouveau (pour ajouter un enregistrement), j'ai droit a un joli msg d'erreur : Table : Cannot perform this operation on a closed dataset

l'exécutable a créer une erreur dans EDatabaseError avec le msg ci dessus... voila ce que j'ai :s

et le code est le meme que celui que j'ai mis plus haut...

nifnif

[Sunchaser]

Il y a t il bien un objet TDatabase et TTable - avec respectivement 'connected=true' et 'active=true' - pointant vers cette table ?