Discussion :

[Pr3dators]

Bonjour,

Je suis en train de modifier une DLL afin de passer notre stockage de données de DBase vers MSSQL.
Aprés quelques recherches, je suis tombé sur ces deux fonctions :

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
21
22
23
24
25
26
27
28
 
procedure MaConnectComplete(Connection: TADOConnection;const Error: Error; var EventStatus: TEventStatus);
    procedure MaConnectionExecuteComplete(Connection:TADOConnection;RecordsAffected: Integer; var EventStatus: TEventStatus; const Command: _Command;const Recordset: _Recordset);
 
procedure TReadWriteDBFile.MaConnectComplete(Connection: TADOConnection;const Error: Error; var EventStatus: TEventStatus);
begin
  adoCommand1:=TADOCommand.Create(nil);
  ConsoleTrace('Activation de la table EVENEMENT (SQL)', DebuggLevel1);
  if EventStatus=esErrorsOccured then
  Begin
    //Une fois DBase supprimer, ajouter ici la partie secours de la base EVENT
    ConsoleTrace('Problème d''activation de la table EVENEMENT (SQL). Passage en mode secours.', DebuggLevel1);
  End
  else
  begin
    with adoCommand1 do begin
      Connection:=adoCo;
      ExecuteOptions:=[eoAsyncExecute]+[eoExecuteNoRecords];
      Execute;
      ConsoleTrace('Activation de la table EVENEMENT (SQL) OK', DebuggLevel1);
    end;
  end;
end;
 
procedure TReadWriteDBFile.MaConnectionExecuteComplete(Connection: TADOConnection; RecordsAffected: Integer;var EventStatus: TEventStatus; const Command: _Command;const Recordset: _Recordset);
begin
  MessageDlg(IntToStr(RecordsAffected)+' modifications effectués',mtInformation,[mbOK],0);
end;

J'ai donc effectué différents tests avec ces dernières. Elles marchent correctement sur mon autre programme. Aucun problème à signaler jusques la.
J'ai donc essayé d'utiliser ces fonctions dans ma DLL, la ou leur utilisation m’intéresse vraiment. C'est la que les problèmes commencent.

Je pense que toutes les erreurs que j'ai découlent de celle la :

Code :

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

E2005 'Error' n'est pas un identificateur de type

La déclaration est identique mais :

Code :

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

E2037 La déclaration de 'MaConnectComplete' diffère de la déclaration précédente

J'ai bien un composant AdoCommand de déclaré mais :

Code :

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

E2003 Identificateur non déclaré : 'adoCommand1'

J'ai bien un composant AdoConnection de déclaté, que j'utilise d'ailleurs plus loin dans mon développement mais :

Code :

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

E2003 Identificateur non déclaré : 'adoCo'

Je passe le reste puisque c'est redondant par rapport a celles citées au dessus.
Enfin, à partir du moment au j'essaie d'utiliser une des deux fonctions :

Code :

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

E2009 Types incompatibles : 'Les listes de paramètres diffèrent'

Je serais disponible un maximum pour toute information complémentaire à celui qui voudra bien me venir en aide.
En espérant apercevoir un jour la lumière au bout du tun-DLL, je vous remercie par avance pour l'aide que vous pourrez m'apporter.

Cordialement.

[Pr3dators]

Problème résolu, Const error:error -> Const Error:Adoint.error

Cordialement