Discussion :

[plante20100]

Bonjour à tous,

Voila je souhaiterais me connecter à une base de donnée paradox depuis une application Delphi. Mais pour cette connexion je ne veux pas créer un alias, j'ai donc configuré mon composant Tdatabase comme suit:

Code :

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

1
2
3
4
5
6
7
 
Project1Database:=Tdatabase.Create(NIL);
Project1Database.Connected:=false;
Project1Database.DatabaseName:=DatabaseAlias;
Project1Database.DriverName:='PARADOX';
Project1Database.LoginPrompt:=false;
Project1Database.Connected:=true;

DatabaseAlias est le chemin d'accès à la base de donnée.
Je n'ai pas renseigné l'onglet params parce que je ne crois pas qu'il y ait des modalités de connexion spéciales (login, paasword,...).
Voila j'exécute et j'ai le message d'erreur 'objet non trouvé' qui apparait quand je passe sur

Code :

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

 Project1Database.Connected:=true;

Toutes vos suggestions sont les biens venues
Merci d'avance

vince

[rv66]

il faut mettre dans la propriete Params PATH=[suivi du dossier où se trouve tes tables paradox]
exemple :

PATH=C:\dossier paradox

[plante20100]

merci de ta réponse

Toutefois quelque chose me chagrine, je pensais que l'on devais mettre le chemin d'accès dans l'onglet DatabaseName (DatabaseAlias est un chemin d'accès que je prends d'un .INI).

Alors si on met comme tu le dis le chemin dans les paramètres, qu'est ce que je dois mettre dans DatabaseName (j'ai essayé de mettre le chemin aussi mais ca ne fonctionne pas)?

vince

[Teo]

Slt,

Si tu utilises plutot un TTAble ou TQuery
(qui eux vont utilisés un TDataBase par défaut)
tu peux faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Table := TTable.Create(Nil);
Table.DataBaseName := 'C:\NomRep\SousRep''
Table.TableName := 'NomFic.Db'
Table.Open
 
Ou bien
 
Query := TQuery.Create(Nil);
Query.DataBaseName := 'C:\NomRep\SousRep''
Query.Sql.Text := 'Select * From "NomFic.Db"'
Query.Open

Mais avec directement TDataBase, je sais pas.

[rv66]

avec le TDatabase comme je l'ai indiqué plus haut, le seul avantage, est que tu relies tous les datasets (TTable, TQuery, T...) sur ce même TDatabase et donc sur ce chemin.
Ensuite juste avant de d'ouvrir un dataset, (fait ouvrir le database), tu peux lui mettre un autre chemin.

Il ne faut pas oublier de mettre un composant TSession rataché au TDatabase.

[plante20100]

Merci pour vos réponse,

Teo, en fait ce que je veux faire c'est avoir un database pour relier tout mes dataset (comme l'a si bien dit rv66), je pense que c'est plus 'propre'.

Rv66, j'ai bien mis un Tsession avec mon Tdatabase et dans tout mes dataset j'ai spécifié

Code :

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

databasename:=Project1Database;

Mais mon problème c'est quand je configure mon composant Tdatabase, je lui donne le chemin d'accès dans params comme tu me l'as dit, mais je ne sais pas ce qu'il faut que je mettes dans l'onglet Databasename de ce composant. Quand je ne met rien , il me dit qu'il manque le nom de la base de donnée.

*J'avais pensé lui mettre le nom du fichier *.gdb lié à ma base, mais je crois que c'est spécifique aux base Interbase, en tout cas je ne l'ai pas trouvé pour ma BdD.

*J'ai aussi essayé en lui mettant son propre nom (celui que j'ai mis dans
name) mais ca me met objet non trouvé.... ce qui est un peu normal.

Enfin voila ma question tu l'auras compris c'est qu'est-ce qu'il attend dans la propriété Databasename du composant Tdatabase.

merci
++
vince

[rv66]

attention, c'est pour interbase ou paradox ? car ce n'est pas pareil.
dans databasename tu peux mettre le nom que tu veux par exemple MaBase. Et tu fait en sorte que tous les datasets du database utilise ce nom.

[plante20100]

ma base de donnée est sous paradox...désolé si mon message étant ambigu.

vince

[rv66]

et le mieux pour avoir la paix avec tsession est de le mettre en autoname.

[plante20100]

bon ok je pensais que les dataset se référait au paramètre name de mon Tdatabase.
J'ai donc corrigé l'erreur mais ca ne marche toujours pas, il me replante au meme endroit avec le message 'objet non trouvé', pourtant j'ai bien vérifié mon chemin et il est bon

Code :

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

1
2
3
4
5
6
7
8
 
database1:=Tdatabase.Create(NIL);
database1.Connected:=false;
database1.DatabaseName:='Project1Database';
database1.DriverName:='PARADOX';
database1.LoginPrompt:=false;
database1.Params.Add('PATH=E:\vince\suivi annalytique de projet\pointage\Base');
database1.Connected:=true;

Pour le Tsession je l'ai pas mis en autoname (en fait je me suis pas posé la question). Je lui est donné un nom que j'ai reporté sur mon Tdatabase et mes Tdataset, ca pas l'air de poser de problème. En tout cas le message d'erreur fait plutot penser à une mauvaise configuration du database (du moins je crois, non?).

merci pour ton aide
vince

[rv66]

database1:=Tdatabase.Create(Session1);
....
database1.DriverName:='STANDARD';
.....

le driver PARADOX, je pense que tu ne doit pas l'avoir dans ta liste.

la ça marche

[plante20100]

YAHOOOOOOOO!!! it's work

Super merci beaucoupppppppppppppppppp

En effet PARADOX ne faisait pas parti de ma liste mais je trouvais ca tellement logique que je me suis pas posé de question....ca m'apprendra.

Merci

vince