Erreur d'une requete sur interbase

Question

Bonjour à tous
Voila je voudrais faire une petite appli qui modifie une table interbase (créer une nouvelle colonne). voici mon code :

procedure TForm1.Button1Click(Sender: TObject); 
begin 
   IBQuery1.Create(NIL); 
   IBDatabase1.create(NIL); 
   IBDatabase1.connected:=false; 
   IBDatabase1.DatabaseName:=databasetest; 
   IBDatabase1.Params.Add('USER_NAME=SYSDBA'); 
   IBDatabase1.Params.Add('PASSWORD='+Password); 
   IBDatabase1.LoginPrompt:=false; 
   IBDatabase1.Connected:=true; 
   with  IBQuery1 do 
    begin 
          Transaction:=TIbTransaction.Create(Nil); 
          Transaction.DefaultDatabase:= IBDatabase1; 
          close; 
          SQL.Clear; 
          SQL.add('ALTER TABLE P1XXXXX ADD DEMANDEUR2 varchar(30)  NOT NULL'); 
          try 
              ExecSQL; 
              Transaction.Commit; 
              Edit1.Text:='P1.........ok'; 
              except on E:exception do 
                                      begin showmessage('marche pas'); 
                                            Transaction.Rollback; 
                                      end; 
         end; 
    end; 
    IBDatabase1.connected:=false; 
end; 

Bon très bien la tables est bien modifiée mais le problème intervient quand je veux fermer mon appli j'ai une erreur qui me dit: 'Erreur ElistERROR, indice de liste hors limite (0)' 
Je sais vraiment pas d'ou ca peu venir. Voila mon code quand je veux fermer mon appli:

procedure TForm1.Button2Click(Sender: TObject);
begin
IBQuery1.Close;
form1.close;
end;

Si quelqu'un à une idée elle est la bien venu parce que là je suis à court....
Merci d'avance

vincent

vincentstryckmans · Answer

Le bouton gauche de ta souris d'avoir un probl&#232;me d'anti rebond, tu as introduit 4 fois le m&#234;me message!  Humour 

Je t'ai r&#233;pondu dans ton premier message.


Et comme disait ma grand-m&#232;re : il y a toujours du soleil derri&#232;re les nuages.

Vincent Stryckmans.

Erreur d'une requete sur interbase

1 réponse

Votre réponse

Discussions similaires