Discussion :

[Hauwke]

Bonjour,
Bien que mon problème soit apparamment du domaine des bases de données, je pense que je suis dans le bon forum...

Donc, j'ai une Dll qui affiche une boite de dialogue qui récupére un texte de l'utilisateur et qui vérifie que celui-ci existe dans une des tables de la base de donnée. (Access 2003)
La fonction utilisée est la suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TSiwah.IdEditExit(Sender: TObject);
begin
  EuIdent:='';
    if (IdEdit.Text<>'') then
      try
       // DmSwitchOn(PwdDm);                                                   
       //MoeDm.TblPersoGene.DisableControls;
        EuIdent:=IdEdit.Text;                                                 
        if  not (MoeDm.TblPersoGene.Locate('CompNb',
                                  IdEdit.Text,
                                  [loPartialKey])) then
          Messagedlg('Unknown ID. Please, check it again',
                      mtwarning,
                     [mbok],
                     0)
else NameEdit.Text:=MoeDm.TblPersoGene.Lookup('Compnb', IdEdit.Text, 'Name');
        finally
          //PwdDm.TblMasterKey.EnableControls;
        end;
end;

Sous cette forme, lorsque la fiche fait le locate sur la Tadotable (tblpersogene) contenue dans le Tdatamodule (Moedm), ça plante!
Si j'utilise la même configuration mais en insérant directement un TAdoconnection et un Tadotable dans la fiche ça marche correctement!
Je n'arrive pas à comprendre pourquoi!
Pour les pointilleux:

• 1. L'ensemble des fonctions qui initialisent et connectent mon module de donnée et ses composants ont été testés et fonctionnent correctement.
  2. Dans la même fiche, un composant dbDgrid affichant la même table, focntionne parfaitement.
  3. A toutes fins utiles, l'unité FastSharemem a été rajouté en tête du Uses, sans amélioration.(retirée depuis pour cause de compatibilité avec C++)
  4. Les essais ont été menés alternativement avec des connexions "Jet 4.00" et "ODBC" sans amélioration de résultat.

@NoisetteProd :

• 1. Sur le forum, j'ai trouvé cette file de discussion mais elle n'apporte rien de nouveau...
  2. J'ai rien trouvé dans la FAQ
  3. Y'a rien sur Google
  4. Rien dans les sources

L'un d'entre vous aurait-il une idée pour solutionner mon probléme?
Merci d'avance,
Cordialement,
Hauwke

[slimjoe]

...lorsque la fiche fait le locate sur la Tadotable (tblpersogene) contenue dans le Tdatamodule (Moedm), ça plante...

Salut!

T'as un message d'erreur ? Tu peux le poster ?

Merci!

[Hauwke]

Message d'erreur:

"Violation d'accès à l'adresse 00F3ED30 dans le module 'Ajax.dll'. Lecture de l'adresse 0000005C."
Merci de t'intéresser à mon problème
Cordialement,
Hauwke

[Rayek]

Est ce que IdText ouTblPersoGene sont bien créés ?

Sinon c'est bête d'écrire EuIdent:=IdEdit.Text; et de ne pas l'utiliser

Faudrait vérifier en pas à pas si c'est vraiment sur le locate que ca plante

[Hauwke]

Est ce que IdText ouTblPersoGene sont bien créés ?

Oui, ils sont bien créés

Sinon c'est bête d'écrire EuIdent:=IdEdit.Text; et de ne pas l'utiliser

EUIdent est une variable globale utilisée dans tout le soft, elle est correctement initialisée dans une autre unité. Le détail de cette uité n'est pas fourni afin de ne pas alourdir inutilement le post.

Faudrait vérifier en pas à pas si c'est vraiment sur le locate que ca plante

Le pas à pas a été réalisé depuis l'IDE de Delphi et ensuite repris par un soft externe de débuggage (Eurékalog) les deux cheminements indiquent clairement le même résultat: le locate plante.
A noter que depuis des essais ont été réalisé avec Seek, find, first, last... et que tous plantent au même endroit: L'accés à la base de donnée. Or, les accés directs par les composants d'accés tel que Dbgrid, DbEdit ou autres qu'ils soient de la vcl natifs ou bien commerciaux (devexpress) fonctionnent parfaitement dans le même temps et sur la même fiche.
Dans le soft, j'ai 8 modules de données, 134 tables, et j'ai planifié l'usage d'une vingtaine de Dll. J'aimerai, donc, bien comprendre...
Il me semble que ces fonctions, locate, et autres, utilisent des processus propres. Vérification planifiée ce jour avec l'emploi de zone de mémoire partagée et CoInitializeEx(). Mais je doute que celà vienne de là, sinon pourquoi les affichages fonctionnent-ils correctement?
Le probléme vient sans doute de mon incompétence crasse en matière de Dll. Mais je tente une perçée sur le sujet...
Cordialement,
Hauwke

[Soulama]

peut etre avant le locate faut faire un

Code :

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

1
2
 
  TaTable.Active:= True