Discussion :

[the watcher]

Allo les amis, J'ai copié l'exe de mon application sur une machine cliente. Au lancement j'ai ce message :

Code :

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

1
2
 
Excepetion EIBInterBaseError dans le module Clinique.exe dans 000A4BBA. unavailable database.

J'ai alors installé interbase client sur la machine cliente mais toujour le même problème.

Est-ce que j'ai mal compilé mon application ? Pourtant elle fonctionne bien sur ma machine.

Que faire ?

[aityahia]

non sa ne peut pas etre un probeleme de votre exécutable sauf si vous avez figer en dure le chemin de la base de données ou vers un serveur disant inaccéssible

[evarisnea]

salut,
je suppose que tu as utilisé un objet TIBDataBase, comment l'as-tu configuré ?

[the watcher]

En effet j'ai utilisé un TIBdatabase.
voici la configuration :

Connected : True
DatabaseName: C:\Dev\Clinique\CLINIC.GDB
DefaultTransaction : IBTrans

Paramètres :
User_name : SYSDBA
password : masterkey

pour le moment c'est les paramètres que j'utilise.

[evarisnea]

En effet j'ai utilisé un TIBdatabase.
voici la configuration :


pour le moment c'est les paramètres que j'utilise.

le nom de la propriété DataBaseName est configuré en dur à ce que je vois. si lors de ton déploiement, ta BD ne se trouve pas exactement dans cet emplacement, alors tu auras ton message d'erreur
pour résoudre ton problème, tu peux :
configurer cette propriété à l'exécution, par exemple lors de la création de la fiche ou du module contenant ton objet TIBDatabase, tu utilises un code similaire à celui-ci:

Code :

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

1
2
3
4
//définition du chemin de la BD en supposant qu'elle se trouve dans le même répertoire que l'application
IBDatabase1.DatabaseName := ExtractFilePath( Application.ExeName ) + 'clinic.gdb';
//ouverture de la BD
IBDatabase1.Connected := True;

utiliser un alias de la BD.

[the watcher]

Code :

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

1
2
3
4
//définition du chemin de la BD en supposant qu'elle se trouve dans le même répertoire que l'application
IBDB.DatabaseName := ExtractFilePath( Application.ExeName ) + 'Clinic.gdb';
//ouverture de la BD
IBDB.Connected := True;

.

Je viens d'essayer ce la mais je crois qu'il ne fonctionne pas comme je m'y attends
j'ai les erreurs svt:

Code :

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

1
2
3
4
 
[Erreur] uDm1.pas(45): Identificateur non déclaré : 'Application'
[Erreur] uDm1.pas(45): ')' attendu(e) mais identificateur 'ExeName' trouvé(e)
[Erreur fatale] Clinique.dpr(16): Impossible de compiler l'unité utilisée 'uDm1.pas'

mon application s'appelle Clinique

[Andry]

Tu n'as qu'à mettre le curseur sur Application et appuié sur F1.
Tu seras quelle unité rajouttée dans la clause uses de ta fiche.

A+

[evarisnea]

rajoutes l'unité Forms dans la partie Uses de ton unité

[the watcher]

heu voici la petite combine que j'ai trouvé en attendant de maîtriser votre méthode :

Code :

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

1
2
3
4
5
IBDB.DatabaseName := '..\Clinique\CLINIC.GDB';
IBDB.Params.Values['User_Name']:='SYSDBA';
IBDB.Params.Values['Password']:='masterkey';
//ouverture de la BD
IBDB.Connected:=True;

le programme se lance maintenant seulement sans pouvoir se conneccter à la base de donnée j'ai ce message :

unavailable database.

n'y a t'il pas une méthode plus simple

[edam]

code similaire à celui-ci:

Code :

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

1
2
3
4
//définition du chemin de la BD en supposant qu'elle se trouve dans le même répertoire que l'application
IBDatabase1.DatabaseName := ExtractFilePath( Application.ExeName ) + 'clinic.gdb';
//ouverture de la BD
IBDatabase1.Connected := True;

met ta base dans le meme dossier de votre exe

[the watcher]

met ta base dans le meme dossier de votre exe

C'est ce que j'ai fait . Je ne comprend pas pourquoi ça ne fonctionne pas alors que sur ma bécane à moi elle fonctionne pafaitement ça devrait être pareille sur une autre bécane non ?

[evarisnea]

salut,
le message d'erreur a-t'il changé ?
si c'est le même alors ca veut simplement dire que le composant ne trouve pas ta BD ...
as tu essayé le code que j'ai posté ?
//définition du chemin de la BD en supposant qu'elle se trouve dans le même répertoire que l'application
IBDatabase1.DatabaseName := ExtractFilePath( Application.ExeName ) + 'clinic.gdb';
as-tu essayé de déboguer et de voir quelle valeur avait la propriété DatabaseName après cette ligne ?

Je ne comprend pas pourquoi ça ne fonctionne pas alors que sur ma bécane à moi elle fonctionne pafaitement ça devrait être pareille sur une autre bécane non ?

effectivement ca devrait être pareil si les paramètres sont corrects et les fichiers placés au mêmes endroits, sans oublier les bibliothèques et autres...

[the watcher]

J'ai fait fidèlement ce que tu m'as conseillé

Code :

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

1
2
3
4
5
6
 
//définition du chemin de la BD en supposant qu'elle se trouve dans le même répertoire que l'application
IBDB.DatabaseName := ExtractFilePath(Application.ExeName) + 'CLINIC.GDB';
//ouverture de la BD
IBDB.Open;
IBDB.Connected:=True;

la propriété databasename = c:\Dev\clinique\CLINIC.GDB
mais la propriété open dit ceci : Valeur inaccessible alors j'ai viré cette partie.
Je me demande si ce n'est pas un problème de base de donnée car j'utilise IB 6.5 et ma bécane est XP. Peut être qu'avec Firebird ça fonctionnera.
Qu'en pense tu mon ami ?

[the watcher]

Je me demande si ce n'est pas un problème de base de donnée car j'utilise IB 6.5 et ma bécane est XP. Peut être qu'avec Firebird ça fonctionnera.
Qu'en pense tu mon ami ?

En effet c'est un problème avec interbase. Je viens de la remplacer par Firebird et voila ça fonctionne sur ma bécanne comme sur la bécanne cliente .

Encore merci les amis.