Modification d'une base de donnée

Code:

---

1 2 3 4 5 6 7 8

IBDatabase1->Connected = true; IBQuery1->Open(); // dis donc tu veux bien m enlever cette ligne et retester :D IBQuery1->SQL->Clear(); aValue= "test"; requete_insert = "ALTER TABLE RAPPORT ADD " + aValue + " TEXT"; IBQuery1->SQL->Add(requete_insert); IBQuery1->ExecSQL(); IBQuery1->Close();

---

aValue est un ansistring.

Je sais pas comment tu fais moi avec le même code ca marche pas.

ok, ct juste pour m oter d un doute
en virant le query->open() , ca donne quoi?

Tu as essayé en retirant cette ligne comme la prècisé mike600river ?

Code:

---

1 2	IBQuery1->Open();

---

Ca plante pas, mais ca ne crée pas la colonne.

Tu es sur que tu es connecté à ta base sous BCB ?

oui parce que juste avant je m'en sert pour extraire des données et ca marche impec.

bizarre ça qd meme.
et si tu pose le cerveau, que tu met ton code en commentaire et colle celui la a la place?

Code:

---

1 2 3 4 5 6

IBQuery1->SQL->Clear(); String test = "test51"; AnsiString requete = " ALTER TABLE RAPPORT ADD "+test+" TEXT " ; IBQuery1->SQL->Add(requete); IBQuery1->ExecSQL(); IBQuery1->Close();

---

comme en reflechissant on avance pas trop je demande un temps mort de la reflexion :mrgreen:

j't'ai entendu pottiez:
" il a pas le cervelet bien endurant mike600."
ben je dirai que mon cervelet est meme plutot feinéant ;)

Moi penser une chose pareille... je n'oserai jamais :aie:

Avec le code que tu vien de me donner, il y a une erreur lors du passage à :

Code:

---

1 2	IBQuery1->ExecSQL();

---

et l'erreur est:

Code:

---

1 2 3 4 5

le projet a provoqué une classe d'exception EIBInterbaseError avec le message "Dinamic SQL error SQL error code = -607 invalid command specified domain or source column TEXT does not exist'. Processus stoppé"

---

Je pense mais je ne suis pas sur que c'est parce qu'il ne connait pas le type de données TEXT, mais je ne suis absolument pas sur du tout.

En fet j'avais oublier de préciser le bon nom de la table.
Avec le bon nom on revient a l'ancien problème pas d'erreur mais la colonne n'est pas crée.

pourtant tout a l heure ca paraissait connaitre le type TEXT

c peut etre ce que tu as fait mais au cas ou
met le code sur un bouton qui ne fait que ça

Code:

---

1 2 3 4 5 6 7 8 9

void __fastcall TForm1::Button1Click(TObject *Sender) { IBQuery1->SQL->Clear(); String test = "test51"; AnsiString requete = " ALTER TABLE azerty ADD "+test+" TEXT " ; IBQuery1->SQL->Add(requete); IBQuery1->ExecSQL(); IBQuery1->Close(); }

---

si tu as tjrs la meme erreur sur TEXT essaie avec un varchar ou un char ou un autre type

maintenant j'ai l'erreur "unexpected end of command".

montre nous ton code en detail qu on ait une meilleure vision des choses

Code:

---

1 2 3 4 5 6 7 8 9 10

void __fastcall TCtrlimpression::Button1Click(TObject *Sender) { IBQuery1->SQL->Clear(); String test = "test51"; AnsiString requete = " ALTER TABLE RAPPORTADD "+test+" VARCHAR " ; IBQuery1->SQL->Add(requete); IBQuery1->ExecSQL(); IBQuery1->Close(); }

---

Il plante après le passage de la ligne sur souligné.

en decollant RAPPORT et ADD? et une val pr varchar

Code:

---

1 2 3 4 5 6 7 8 9

void __fastcall TCtrlimpression::Button1Click(TObject *Sender) { IBQuery1->SQL->Clear(); String test = "test51"; AnsiString requete = " ALTER TABLE RAPPORT ADD "+test+" VARCHAR(30) " ; IBQuery1->SQL->Add(requete); IBQuery1->ExecSQL(); IBQuery1->Close(); }

---

désolé pour les erreurs.
Avec le bon code, il n'y a pas d'erreur mais la colonne n'existe toujours pas.