Discussion :

[mike600river]

Code :

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

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();

[scorpion37]

aValue est un ansistring.

[scorpion37]

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

[mike600river]

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

[pottiez]

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

Code :

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

1
2
IBQuery1->Open();

[scorpion37]

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

[pottiez]

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

[scorpion37]

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

[mike600river]

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 :

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

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

[mike600river]

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

[pottiez]

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

[scorpion37]

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

Code :

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

1
2
 
IBQuery1->ExecSQL();

et l'erreur est:

Code :

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

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é"

[pottiez]

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.

[scorpion37]

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.

[mike600river]

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 :

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

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

[scorpion37]

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

[mike600river]

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

[scorpion37]

Code :

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

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é.

[mike600river]

en decollant RAPPORT et ADD? et une val pr varchar

Code :

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

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();
}

[scorpion37]

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