Discussion :

[Righetto Dominique]

Bonjour,
Je désire effectuer une requête SQL avec un ADOCommand via une variable de type WideString car en utilisant String, le compilateur m'indique qu'il y à trop de caractére pour utiliser ce type, mon probléme est que même un changeant le type de la variable, il bloque toujours sur la longueur de la chaine,
voici la requete

Code :

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

1
2
3
4
5
6
7
8
 
requeteSQL                          : WideString;
 
 ADOCommand1.CommandType := cmdText;
requeteSQL := 'INSERT INTO PRODUIT(libelleProduit,numSAPProduit,NumTIREProduit,dateInsertionProduit,dateDerniereImpressionProduit,posteOperationProduit,detailUtilisationProduit,detailProtectionCollectiveProduit,interditFumerProduit,';
        requeteSQL := requeteSQL + 'interditMelangerProduit,infoCplProduit,detailConditionHygienneProduit,infoCplDechetProduit,deversementProduitConcentrerProduit,deversementProduitDiluerProduit, natureRisquePeauProduit,natureRisqueYeuxProduit, natureRisqueSystRespProduit, natureRisqueAutreProduit, infoRenversementProduit, infoProjectionProduit, infoIncendieProduit,dateDerniereModificationProduit,toxiciteProduit,InflammabiliteProduit,reactiviteProduit, presentSurServeurDistant,idFamille,idDechet, idUtilisateur)';
        requeteSQL := requeteSQL + 'VALUES(' + libelleProduit + ',' + numSAPProduit + ',' + NumTIREProduit + ',' + dateInsertionProduit + ',' + dateDerniereImpressionProduit + ',' + posteOperationProduit + ',' + detailUtilisationProduit + ',' + detailProtectionCollectiveProduit + ',' + interditFumerProduit + ',' + interditMelangerProduit + ',' + infoCplProduit + ',' + detailConditionHygieneProduit + ',' + infoCplDechetProduit + ',' + deversementProduitConcentrerProduit + ',' + deversementProduitDiluerProduit + ',' + natureRisquePeauProduit + ',' + natureRisqueYeuxProduit + ',' + natureRisqueSystRespProduit + ',' + natureRisqueAutreProduit + ',' + infoRenversementProduit + ',' + infoProjectionProduit + ',' + infoIncendieProduit + ',' + dateDerniereModificationProduit + ',' + toxiciteProduit + ',' + InflammabiliteProduit + ',' + reactiviteProduit + ',' + presentSurServeurDistant + ',' + idFamille + ',' + idDechet + ',' +  idUtilisateur + ')';
ADOCommand1.CommandText := requeteSQL ;

J'ai vu en cherchant que la modification du commutateur {$H+} pourrait m'aider à résoudre mon probléme mais voilà je ne le trouve pas ?
je travaille avec Delphi 6 Entreprise Edition et Windows XP Pro & 2000 Pro
Merci d'avance

[Invité]

Extrait de l'aide de Delphi.

Le mot réservé string fonctionne comme un identificateur de type générique. Par exemple*:

var S: string;

crée une variable S contenant une chaîne. Dans l'état par défaut {$H+}, le compilateur interprète string (quand il apparaît sans être suivi d'un crochet ouvrant) comme désignant AnsiString. Utilisez la directive {$H–} pour que string soit interprété comme désignant ShortString.

{$H+} correspond à cocher la case "Chaînes vastes" de Projet->Options->Compilateur. Apparament cette option est décoché dans ton projet.

[Righetto Dominique]

Merci,
j'ai beau regarder et essayer, je ne trouve pas cette option, voici une copie d'écran de la form d'option du projet
http://drighetto.free.fr/copieEcranDelphi.jpg
Merci d'avance

[Invité]

"Chaînes vastes" = "Huge strings" en anglais.

[Righetto Dominique]

Slt,
Je essayé avec et sans cette option et j'ai toujours :

Code :

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

1
2
 
[Error] Unit2.pas(618): String literals may have at most 255 elements.

donc

[Invité]

J'ai trouvé !! Ce sont les chaînes qui sont les lignes de code dans l'IDE qui sont trop longue !!!
Il faut tronquer

Code :

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

1
2
3
requeteSQL := 'INSERT INTO PRODUIT(libelleProduit, ... // moins de 255
requeteSQL := requeteSQL +'...' // moins de 255
etc...

[Righetto Dominique]

OK c'est bon je viens de corriger et cela fonctionne,
Merci beaucoup pour ta précieuse aide