probléme firebird embeded

Version imprimable

14/03/2012, 10h42
edam

probléme firebird embeded

bonjour
j'ai un programme qui utilise la BD FB embeded 2.5 sous win 7 avec composant IBX, je craie une base au démarrage, et je l'a supprime à la fin, je la remplis selon des données depuis des fichier texte, simplement pour facilité les traitement, et l'impression des état
-première exécution ne ce connecte pas, mais après sa marche!!! même si j’exécute en mode administrateur, et selon faq17, j'ai modifier "IpcName = FIREBIRD" (enlever simplement le # :?)
merci :ccool:
14/03/2012, 20h37
akli_agha

Vérifies si la base n'est pas connectée en design time car l'embedded ne tolère qu'une seule connexion à une base.
15/03/2012, 08h01
SergioMaster

Je crois qu'il y a plusieurs points différents
1- La création de la base au démarrage
Comment ?
2- La Faq17
Mais pourquoi diable avoir fait ça ? la faq a certainement été mal lue
3-même si j’exécute en mode administrateur
Le mode administrateur de windows je présume ? mais si le répertoire de le BDD n'est pas un répertoire protégé et si aucun registre n'est touché cela n'a pas lieu

4- BD FB embeded 2.5 sous win 7 avec composant IBX
IBX de quelle version de Delphi ? je crois avoir lu que celle de XE n'était pas exempte de problèmes

merci de votre réponses
pour akli_agha: sûr une seul connection car la base est crée à 0 à chaque démarrage de programme (ou dll)

pour SergioMaster: ibx de delphi 2010, et sa marche très bien, surtout je fais que les insertion, et impression, pas de modification, ou des jointure compliqué;
1- La création de la base au démarrage
Comment ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Function CreateBase(Nom: string):boolean; begin Result:=False; with TIBDatabase.Create(nil) do Try Params.Clear; DatabaseName := Nom; Params.Add('USER ''SYSDBA'''); Params.Add('PASSWORD ''masterkey'''); Params.Add('PAGE_SIZE 16384'); Params.Add('DEFAULT CHARACTER SET ISO8859_1'); CreateDatabase; Result:=True; Finally Free; End; end;
sa marche avec fb embeded ou non

2- La Faq17
Mais pourquoi diable avoir fait ça ? la faq a certainement été mal lue
peut être :oops::oops:, je sais pas

3-même si j’exécute en mode administrateur
Le mode administrateur de windows je présume ? mais si le répertoire de le BDD n'est pas un répertoire protégé et si aucun registre n'est touché cela n'a pas lieu
comme j'ai dis au premier poste, avec l'exe sa passe bien avec FB embedded, mais si j'utilise une dll sa passe pas, seulement avec fb C/S

bien sûr il reste le problème de la première exécution, il ne peut crée la base, mais à partir de la 2éme execution sa marche bien,
j'écrie rien sur la base de registre, jutilise un lecteur différent du system, j'ai mis tout les droits pour tout le monde,....:?
peut être que j'ai oublier quelque chose :calim2:
merci

15/03/2012, 11h42
SergioMaster

Au vu de ton code : tu détruis (free) le TIBDataBase

Est-il recrée quelque part pour les connexions ?
Y-a t'il un FileExist('nomdelabase') quelque-part pour vérifier avant création ?
Comment se passe la 'destruction' de la BDD ?
as-tu essayé avec un Try Except pour obtenir l'erreur de création de la première exécution ?

Citation:

Envoyé par edam

merci de votre réponses
pour akli_agha: sûr une seul connection car la base est crée à 0 à chaque démarrage de programme (ou dll)

Citation:

Envoyé par edam

j'ai un programme qui utilise la BD FB embeded 2.5 sous win 7 avec composant IBX, je crée une base au démarrage, et je l'a supprime à la fin,

pourquoi recréer à chaque fois ?
tu peux très bien laisser la DB, juste faire des TRUNCATE au démarrage suivant
Surtout si tu lance un EXE et la DLL en même, temps, tu ne peux pas supprimer une DB encours d'utilisation

Est-ce que FB Embedded supporte des connexions multiples et
concurrentielles ?

Citation:

Envoyé par akli_agha

Vérifies si la base n'est pas connectée en design time car l'embedded ne tolère qu'une seule connexion à une base.

Semble que nous avons la réponse !
Tu ne peux donc pas connecter EXE et DLL en même temps, on en revient à ma proposition dans un autre sujet d'utiliser une DLL qui gère la DB, l'EXE et l'autre DLL utilisant cette DLL DB, l'Exe utilise LoadLibrary pour charger la DLL DB, l'autre DLL utilise GetModuleHandle pour utiliser la DLL DB déjà chargée

Citation:

Envoyé par edam

je la remplis selon des données depuis des fichier texte, simplement pour facilité les traitement, et l'impression des état

Citation:

Envoyé par edam

surtout je fais que les insertion, et impression, pas de modification, ou des jointure compliqué

le "pas" s'applique-t-il à modification ET jointure
Si tu fais des jointures, OK, le SQL offre des facilités !
Si tu ne fais pas de jointure, FB me semble bien lourd,
un simple TClientDataSet peut faire l'intermédiaire avec un outil de reporting utilisant le TDataSource\TDataSet comme QuickReport

Perso, pour la création de DB, comme je déployais manuellement, j'utilisais IBExpert
Ton code semble proche de la Doc en ligne du TIBDatabase.CreateDatabase
Pourquoi ne pas conserver ce TIBDatabase après le CreateDatabase ?

comme ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Function OpenBase(Nom: string): TIBDatabase; begin Result := TIBDatabase.Create(Application); with Result do begin DatabaseName := Nom; Open(); // vérifier si il faut gérer les Exceptions if not Connected then begin Params.Clear; Params.Add('USER ''SYSDBA'''); Params.Add('PASSWORD ''masterkey'''); Params.Add('PAGE_SIZE 16384'); Params.Add('DEFAULT CHARACTER SET ISO8859_1'); CreateDatabase; if not Connected then Open(); // vérifier si il faut gérer les Exceptions end; end; if not Result.Connected then FreeAndNil(Result); end;

Citation:

Envoyé par SergioMaster

Au vu de ton code : tu détruis (free) le TIBDataBase

Est-il recrée quelque part pour les connexions ?
Y-a t'il un FileExist('nomdelabase') quelque-part pour vérifier avant création ?
Comment se passe la 'destruction' de la BDD ?
as-tu essayé avec un Try Except pour obtenir l'erreur de création de la première exécution ?

1-oui, le code de création, je l'ai copier des example de delphi, :aie:, puis je fais la connection si la création passe
2-bine sûr et plus, je fais une fonction qui récupére un nom introuvable
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Function GetNomLibre:string; const ext='.FDB'; var i:integer; Ini: TIniFile; nomBD:string; begin with TIniFile.Create( VG_INI_RPRINTER_INI ) do try DirectoryBD :=ReadString( 'SYSTEM', 'DIRECTORY_DB',VG_INI_LOCAL); finally Free; end; DirectoryBD:=AnsiUpperCase(DirectoryBD); if DirectoryBD[length(DirectoryBD)]<>'\' then DirectoryBD:=DirectoryBD+'\'; nomBD:='BaseTempo'; if not DirectoryExists(DirectoryBD) then ForceDirectories(DirectoryBD); i:=0; while FileExists(DirectoryBD+nomBD+FormatFloat('00',i)+ext) do inc(i); Result:=DirectoryBD+nomBD+FormatFloat('00',i)+ext; end;
3-j'ai déjà un try except, mais j'ai oublier de mettre un message dans l'except, :calim2:, dans tout les cas, le programme ne plante pas en mode exe, passe, sans avoir de données, je vais essayer plus tard
Citation:
Envoyé par ShaiLeTroll
pourquoi recréer à chaque fois ?
tu peux très bien laisser la DB, juste faire des TRUNCATE au démarrage suivant
Surtout si tu lance un EXE et la DLL en même, temps, tu ne peux pas supprimer une DB encours d'utilisation

Est-ce que FB Embedded supporte des connexions multiples et
concurrentielles ?

Semble que nous avons la réponse !
Tu ne peux donc pas connecter EXE et DLL en même temps, on en revient à ma proposition dans un autre sujet d'utiliser une DLL qui gère la DB, l'EXE et l'autre DLL utilisant cette DLL DB, l'Exe utilise LoadLibrary pour charger la DLL DB, l'autre DLL utilise GetModuleHandle pour utiliser la DLL DB déjà chargée
le "pas" s'applique-t-il à modification ET jointure
Si tu fais des jointures, OK, le SQL offre des facilités !
Si tu ne fais pas de jointure, FB me semble bien lourd,
un simple TClientDataSet peut faire l'intermédiaire avec un outil de reporting utilisant le TDataSource\TDataSet comme QuickReport

Perso, pour la création de DB, comme je déployais manuellement, j'utilisais IBExpert
Ton code semble proche de la Doc en ligne du TIBDatabase.CreateDatabase
Pourquoi ne pas conserver ce TIBDatabase après le CreateDatabase ?

comme ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Function OpenBase(Nom: string): TIBDatabase; begin Result := TIBDatabase.Create(Application); with Result do begin DatabaseName := Nom; Open(); // vérifier si il faut gérer les Exceptions if not Connected then begin Params.Clear; Params.Add('USER ''SYSDBA'''); Params.Add('PASSWORD ''masterkey'''); Params.Add('PAGE_SIZE 16384'); Params.Add('DEFAULT CHARACTER SET ISO8859_1'); CreateDatabase; if not Connected then Open(); // vérifier si il faut gérer les Exceptions end; end; if not Result.Connected then FreeAndNil(Result); end;
je crais à chaque fois, car l'exe est appler par un autre application non delphi, mon programme sensé faire des états c'est tout, il peut êtres appler x fois en même temps, et chaque processus doit avoir son propre base de données, mon bos, m'a dit de rendre exe une dll, sa veux dire que seul ma dll (exe) qui accéed à cette base qui crée, pour la proposition de TClientdataset, normalement les premiére version l'utilise, mais en a eux 2 probléme, 1-mémoir insuffisant , 2- en utilisant Reportbuider, il ne peut se connecter à une base Dataclient, il lui faut une connexion (adoconnect, sqlconnection ou IBdatabase), c'est pourquoi au début j'ai choisi FB, mais mon bos opte pour sqlite, et c'est ce que finalment on va faire avec dbexpress esqlite de devart :cry:
normalement j'ai du mettre ce post à délestage mais comme j'ai pas ce privilége (je sais pas ou est passé cette bouton) , j'ai voulus savoir si je peux résoudre ce probléme dll+Fb embedded :calim2:
merci à tout le monde

16/03/2012, 09h36
edam

je sais pas ce que j'ai fais, mais là sa marche à merveille, dll+Fb embeded
merci à tout le monde :ccool::ccool: