Modification DLLRésolu

Question

Bonjour, 

Je suis en grande détresse. Je ne vois absolument pas comment régler mon problème. (si problème il y a puisque ça marche parfaitement sur une autre application)
Je me connecte à mon serveur SQL de la façon suivante :
try    NorfondTable := TTable.Create(nil);    NorfondTable2 := TTable.Create(nil);    EVENT := TTable.Create(nil);    ADOCO := TAdoConnection.Create(nil);    ADOQuery := TAdoQuery.Create(nil);    ADOCO2 := TAdoConnection.Create(nil);    ADOQuery2 := TAdoQuery.Create(nil);    ADOCOEvent := TAdoConnection.Create(nil);    ADOQueryEvent := TAdoQuery.Create(nil);  except    sleep(100);  end;Emplacement_Fichier:=Fichier_Ini.ReadString('Variables_globales','Emplacement_EVENT','');  Nom_Table := Fichier_Ini.ReadString('Variables_globales','Nom','');  Catalog := Fichier_Ini.ReadString('Variables_globales','Catalog','');  Nom_Serveur := Fichier_Ini.ReadString('Variables_globales','Nom_Serveur','');  Password := Fichier_Ini.ReadString('Variables_globales','Password','');  User_ID := Fichier_Ini.ReadString('Variables_globales','User_ID','');  AdoQueryEvent.ConnectionString:='Provider=SQLOLEDB.1;Password=' + Password + ';Persist Security Info=True;User ID=' + User_ID + ';Initial Catalog=' + Catalog + ';Data Source=' + Nom_Serveur;  CommandeSQL := 'Provider=SQLOLEDB.1;Password=' + Password + ';Persist Security Info=True;User ID=' + User_ID + ';Initial Catalog=' + Catalog + ';Data Source=' + Nom_Serveur;  with AdoCoEvent do Begin    ConnectionString:='Provider=SQLOLEDB.1;Password=' + Password + ';Persist Security Info=True;User ID=' + User_ID + ';Initial Catalog=' + Catalog + ';Data Source=' + Nom_Serveur;    ConnectOptions:=CoAsyncConnect;    OnConnectComplete:=MaConnectComplete;    OnExecuteComplete:=MaConnectionExecuteComplete;    loginPrompt:=False;    Connected:=true;                         End;

Les deux fonctions que j'utilise dans mon with sont les suivantes :
procedure TReadWriteDBFile.MaConnectComplete(Connection: TADOConnection;const Error: Adoint.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; const Error:Adoint.Error; var EventStatus: TEventStatus; const Command: _Command;const Recordset: _Recordset);begin  MessageDlg(IntToStr(RecordsAffected)+' modifications effectués',mtInformation,[mbOK],0);end;

Le thread plante au moment ou j'utilise cette fonction :

AdoQueryEvent.Last;

Je sais que ça plante à partir de ce point la puisque j'utilise des ConsoleTrace pour écrire dans la console DOS les différents événements rencontrés au cours de l’exécution. 

J'aimerais donc savoir pourquoi ça plante à ce moment précis ?

Question bonus : A quoi sert un AdoQuery.Active ? Que fait il exactement ? Que retourne t'il ? (Je ne trouve rien de très intéressant a ce sujet.)

Cordialement.

vico8000 · Answer

Bon, j'ai peut être trouvé la solution a mon problème et si c'est ce que je pense, j'ai très honte ...

vico8000 · Answer

Du coup, nouveau problème. 

Quand j'utilise AdoQuery.Open ou AdoQuery.ExecSQL, ça plante. 
J'essaye juste d'utiliser une Requête Select * From Ma_table. 
Je ne comprend pas, je suis largué total.

Cordialement.

Modification DLL

2 réponses

Votre réponse

Discussions similaires