Discussion :

[SmileSoft]

Salut,

j'aimerai gérer un champ auto-incrément pour cela j'utulise cette fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
int __fastcall TForm1::NouvelID(AnsiString Table, AnsiString Clef)
{
 
    SQLRequeteID->Close(); 
    SQLRequeteID->SQL->Clear();
    SQLRequeteID->SQL->Add("select max(" + Clef + ") as MAX_VALUE from " + Table );
    SQLRequeteID->Open(); 
    int result = SQLRequeteID->FieldByName( "MAX_VALUE")->AsInteger + 1;
    SQLRequeteID->Close(); 
    return( result ) ;
}

à l'appel de cette fonction:

Code :

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

int ProchainID= NouvelID('nom', 'Id');/* Id est le champ à gérer et nom le nom du fichier table de ma base de donnée */

je reçois le message d'erreur suivant:

Utilisation incorrecte du mot clé.
Elément: from
Num de ligne1.

Merci d'avance pour votre aide.

[sam83]

Bonjour,
voilà personnellement je fait ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
int __fastcall TForm1::NouvelID(AnsiString Table, AnsiString Clef)
{
 
    SQLRequeteID->Close(); 
    SQLRequeteID->SQL->Clear();
    SQLRequeteID->SQL->Add("select tonchamp from " + Table +"Order by tonchamp DESC");
    SQLRequeteID->Open(); 
    int result = SQLRequeteID->FieldByName( "tonchamp")->AsInteger + 1;
    SQLRequeteID->Close(); 
    return( result ) ;
}

voilà Bon courage

[SmileSoft]

Merci sam83 pour cette solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
int __fastcall TForm1::NouvelID(AnsiString Table, AnsiString Clef)
{
 
    SQLRequeteID->Close(); 
    SQLRequeteID->SQL->Clear();
    SQLRequeteID->SQL->Add("select Clef from " + Table +"Order by Clef DESC");
    SQLRequeteID->Open(); 
    int result = SQLRequeteID->FieldByName( "Clef")->AsInteger + 1;
    SQLRequeteID->Close(); 
    return( result ) ;
}

j'ai eu une erreur pareille concernant le mot clé Order:

Utilisation incorrecte du mot clé.
element 7237485Order
num de ligne 1

[sat83]

C'est normal, le nom de ta table et le ORDER sont attaché ensemble! Ajoute un espace! De plus, a moins que ton champ à incrémenter s'appelle "Clef", il faut aussi modifier cette partie.

Par contre ta table s'appelle apparemment "7237485", est tu sûr que c'est normal et qu'il n'y a pas un problème? Vérifie le paramètre Table que tu passe à la fonction voir si il n'y a pas un soucis.

[SmileSoft]

Merci sat83 pour la réponse

C'est normal, le nom de ta table et le ORDER sont attaché ensemble! Ajoute un espace! De plus.

oui merci j'ai pas fais attention

a moins que ton champ à incrémenter s'appelle "Clef", il faut aussi modifier cette partie.

Clef est le paramètre avec le quel je transmis le nom du champ à incrémenter.

Par contre ta table s'appelle apparemment "7237485", est tu sûr que c'est normal et qu'il n'y a pas un problème? Vérifie le paramètre Table que tu passe à la fonction voir si il n'y a pas un soucis

je ne sais pas pourquoi, je pense que l'erreur est au niveau du passage des paramètres parce que les deux codes marchent très bien sans passer par la fonction NouvelID.

Code :

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

1
2
3
4
5
6
7
 
SQLRequeteID->Close(); 
    SQLRequeteID->SQL->Clear();
    SQLRequeteID->SQL->Add("select Id from nom Order by Id DESC");
    SQLRequeteID->Open(); 
    int result = SQLRequeteID->FieldByName( "Id")->AsInteger + 1;
    SQLRequeteID->Close();

Code :

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

1
2
3
4
5
6
SQLRequeteID->Close(); 
    SQLRequeteID->SQL->Clear();
    SQLRequeteID->SQL->Add("select max(Id) as MAX_VALUE from nom");
    SQLRequeteID->Open(); 
    int result = SQLRequeteID->FieldByName( "MAX_VALUE")->AsInteger + 1;
    SQLRequeteID->Close();

[sat83]

Effectivement, ca vient probablement de l'appel à la fonction.
Poste le bout de code où tu appelle la fonction.

[SmileSoft]

Code :

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

int ProchainID= NouvelID('nom', 'Id');

et avec ce code:

Code :

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

1
2
3
AnsiString n=Table1->TableName;
AnsiString i=Table1->FieldByName("Id")->AsString;
int ProchainID= NouvelID(n,i);

j'ai le message d'erreur suivant:

Fonctionnalité non supportée

[sat83]

Les chaines de caractères doivent être entourées de double-quote:

Code :

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

int ProchainID = NouvelID("nom", "Id");

[SmileSoft]

merci sat83 c'est résolu
/* mes fautes bêtes bêtes progressent de jour en jour*/

[SmileSoft]

juste une question, pourquoi Borland n'accepte il pas ce code:

Code :

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

1
2
3
AnsiString n=Table1->TableName;
AnsiString i=Table1->FieldByName("Id")->AsString;
int ProchainID= NouvelID(n,i);

merci