Erreur d'une requete sur interbase

Question

Bonjour &#224; tous
Voila je voudrais faire une petite appli qui modifie une table interbase (cr&#233;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&#232;s bien la tables est bien modifi&#233;e mais le probl&#232;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 &#224; une id&#233;e elle est la bien venu parce que l&#224; je suis &#224; court....
Merci d'avance

vincent

vincentstryckmans · Answer

Je te conseillerai de t&#233;l&#233;charger la derni&#232;re version des composants
IBExpress et d'utiliser le composant IBScript qui te permet d'ex&#233;cuter
plusieurs lignes de requ&#234;tes.



Je constate &#233;galement que tu ne fermes pas IBQuery1 apr&#232;s ajouter la
colonne mais que tu fermes directement la base de donn&#233;es. Il y a
peut-&#234;tre quelque chose l&#224;.


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