Ajouter les champs dans la table access

Version imprimable

07/09/2010, 12h18
faniette

Ajouter les champs dans la table access

Bonjour

je cherche un code qui me permet d'ajouter les champs dans la table access sous c++ builder
merci d'avance
07/09/2010, 13h43
sat83

Il suffit d'exécuter une requête SQL ALTER TABLE sur ta base de donnée avec un composant TQuery.

Bonjour,
a l'aide de votre aide j'ai réussie a construire ce code
Code:

1 2 3 4 5 6 7 8 9 AnsiString a=Edit1->Text; AnsiString b = "ALTER TABLE essai ADD "+QuotedStr(a)+" char (50);" ; Form2->Query1->SQL->Clear(); Form2->Query1->SQL->Add(b); Form2->Query1->ExecSQL();
je veut ajouter 2 champs le premier le contenu de Edit1->Text plus le mot quantité et le 2eme champ Edit1->Text plus le mot valeur.
j'ai tombé dans cette erreur quand j'ai ajoutée le mot quantité comme ce ci

Code:

AnsiString b = "ALTER TABLE essai ADD "+QuotedStr(a)+"Quantité"+" char (50);" ;

"Erreur de syntaxe dans la définition de champ, erreur sql générale".
merci d'avance pour votre aide

31/05/2011, 10h49
sat83

Je te déconseille l'utilisation des accents ("é") dans ta base de donnée, mais ce n'est qu'un conseil.
Pour ta requête, essai :

Code:

AnsiString b = "ALTER TABLE essai ADD " + QuotedStr(a+"Quantité") + " char (50);" ;
31/05/2011, 11h22
ShaiLeTroll
On peut aussi l'écrire autrement !
Code:

1 2 3 AnsiString b = Format( "ALTER TABLE essai ADD %s char (50);", ARRAYOFCONST((QuotedStr(Edit1->Text + "Quantité"))));
ou
Code:

1 2 3 AnsiString b = Format( "ALTER TABLE essai ADD %s char (50);", OpenArray<TVarRec>(Edit1->Text + "Quantité"), 0);
J'ai toujours trouvé dommage que QuotedStr ajoute des guillemets ( ' ) au début et à la fin, souvent, je ne voulais que doubler ceux au milieu pour écrire ceci directement
Code:

1 2 3 AnsiString b = Format( "ALTER TABLE essai ADD '%sQuantité' char (50);", ARRAYOFCONST((RepeatQuote(Edit1->Text))));
RepeatQuote pouvant être coder avec un simple StringReplace !

Certains DB ne supporte pas le double '' mais \'
D'autres DB utilise ' comme délimiteur de chaine pas pour les noms de champ entre " ou `

Bonjour, merci pour vos réponse
dans le cas ou le champ existe déjà, une erreur de sql générale s'affiche.
alors j'ai modifiée mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
bool test=true;
     AnsiString a=Edit1->Text;
   for(int i=1;i< Table22->FieldCount;i++)
   {
   if( (Table22->Fields->Fields[i]->AsString== "'"+a+" QTE"+"'")||(Table22->Fields->Fields[i]->AsString== "'"+a+" Val"+"'"))
     {
       test=false;
 
     }
     }
     if(test==true)
     {
 
AnsiString   b = "ALTER TABLE essai  ADD "+QuotedStr(a+" QTE")+" int ;" ;
 
 
   Form2->Query1->SQL->Clear();
   Form2->Query1->SQL->Add(b);
 
   Form2->Query1->ExecSQL();
 
 
AnsiString   c = "ALTER TABLE essai  ADD "+QuotedStr(a+" Val")+" float ;" ;
 
 
   Form2->Query1->SQL->Clear();
   Form2->Query1->SQL->Add(c);
 
   Form2->Query1->ExecSQL();
 
 }
 if(test==false)
 {
   MessageBox(Handle,"ce champ existe déja ?",
 "Confirmation",MB_OKCANCEL|MB_ICONSTOP ) ;
 }

mais toujours la même erreur, peut être les guillemets ( ' ) au début et à la fin qui provoquent cet erreur, est ce que il y a un moyen de les supprimer
merci d'avance pour votre aide