Discussion :

[Invité]

Bonjour,

Lors de la première ouverture d'un logiciel je dois faire un insert dans une table.
Il y a une colonne commentaire de type varchar(2000).

Quand je fais:
query.SQL.Appen('INSERT INTO ma_table (com) VALUES ' + QuotedStr('mon_text'));

Avec "mon_text" étant une chaine de 1-200 caractères j'ai l'erreur "Chaine trop longue".

Quelle autres méthode utilisé pour faire se genre d'insertion ?

Merci

[e-ric]

Salut,

Bizarre, utilises une requête paramétrée à tout hasard.

Code :

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

1
2
3
query.SQL.Append('INSERT INTO ma_table (com) VALUES (:mon_texte)');
//.... et avant l'exécution de ta requête
query.ParamByName('mon_texte').AsString := 'mon_text';

@+

[Invité]

Salut,

Bizarre, utilises une requête paramétrée à tout hasard.

Code :

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

1
2
3
query.SQL.Append('INSERT INTO ma_table (com) VALUES (:mon_texte)');
//.... et avant l'exécution de ta requête
query.ParamByName('mon_texte').AsString := 'mon_text';

@+

Merci e-ric j'ai utilisé cette méthode et ça fonctionne mais le problème est que j'ai environ 2200 insert à faire du coup j'ai cette structure:

Code :

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

query.SQL.Append('INSERT INTO ma_table (com) VALUES ' + (QuotedStr('mon_text1')), (QuotedStr('mon_text2')), ..);

Je me vois mal faire 2000 fois
- ma requete
- remplacement du param
- exec

[Paul TOTH]

hum...ne serais-ce pas la longueur de ta requête qui est trop grande ?

si tu fais deux requêtes de 1100 chaînes, est-ce que ça passe ?

mais il faudrait surtout savoir si la base a une limite de longueur de requête car avec 2200 * 1..200 ça peut faire une requête assez longue.

[SergioMaster]

Bonjour,

ce qu'il faut ce n'est pas une query mais un script
chaque insert étant séparé par des ;
mais toutes les suites de composants DB ne le propose pas

[Invité]

Merci pour vos réponse.
En regardant l'affectation par les paramètre me donne la même erreur:

Code :

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

qry.ParamByName('description').asString := mon_text

Voici un vrai exemple de texte:

Sinatra Select est une édition exclusive créée pour honorer la relation unique entre Franck Sinatra et Jack Daniel’s.
2015 étant l’année du premier centenaire de la naissance de Frank Sinatra, Jack Daniel’s et la famille Sinatra ont souhaité célébrer l’événement en créant une édition inédite et limitée.

Le Master Distiller a ainsi sélectionné quelques fûts artisanaux. Ces tonneaux “Sinatra” furent confectionnés pour apporter caractère et complexité au whiskey puisque celui-ci vieilli dans des fûts où des cannelures dans les douelles de bois toastés ont été réalisées.
Cela permet d’amplifier la surface d’échange entre le bois et le whiskey. Les fûts apportent ainsi au Tennessee Whiskey des saveurs de chênes ainsi que des notes d’épices pour une finale subtilement vanillée. Sinatra Select est le whiskey le plus premium de la famille Jack Daniel’s.';

Si il existe une méthode pour exécuter un script SQL je suis preneur, je me renseigne

[e-ric]

Merci e-ric j'ai utilisé cette méthode et ça fonctionne mais le problème est que j'ai environ 2200 insert à faire du coup j'ai cette structure:

Code :

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

query.SQL.Append('INSERT INTO ma_table (com) VALUES ' + (QuotedStr('mon_text1')), (QuotedStr('mon_text2')), ..);

Je me vois mal faire 2000 fois
- ma requete
- remplacement du param
- exec

Y'a pas de raison d'avoir mal...

Tu écris une seule fois le texte de ta requête avec paramètre(s), tu prépares le requête (méthode Prepare) puis dans une boucle, tu affectes le paramètre et tu exécutes, la méthode Prepare est prévue pour cela.

@+

[BuzzLeclaire]

Je me vois mal faire 2000 fois
- ma requete
- remplacement du param
- exec

Bonjour,

Dans ce cas précis il faut utiliser directement une table en mode insert.

[BuzzLeclaire]

Bonsoir,

As-tu essayé ce que je t'ai proposé plus bas ?

Bonjour,

Dans ce cas précis il faut utiliser directement une table en mode insert.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Tbl.Name := 'whisky';
Tbl.open;
Tbl.insert;
 
Tbl.FieldByName('id_whisky').Value  := 1;
Tbl.FieldByName('nom_whisky').Value := 'Glen grant 1952';
Tbl.FieldByName('ref_whisky').Value := '1005';
Tbl.FieldByName('degre_whisky').Value  := 40;
Tbl.FieldByName('volume_whisky').Value := '70cl';
Tbl.FieldByName('tourbe_whisky').Value := 'non tourbé';
Tbl.FieldByName('recompense_whisky').Value := '';
//...
Tbl.FieldByName('description_whisky').Value := 'Ce single malt exprime tout son potentiel dans cette version sherry cask millésimée d''anthologie. De couleur ambrée à reflets dorés, le nez d''une étonnante fraîcheur se révèle très épicé (camphre, noix muscade). Il est également marqué par la cire et les fleurs capiteuses (lys). La bouche ample et puissante, immédiatement fruitée (mirabelle), se développe sur des notes florales et sur un boisé vanillé très fin. La finale huileuse évolue sur les fruits secs (noix de cajou), le chocolat et les épices douces (safran).';
 
Tbl.Post;

A toi te transformer en procédure pour pouvoir boucler dessus.

[Invité]

Bonsoir,

As-tu essayé ce que je t'ai proposé plus bas ?



Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Tbl.Name := 'whisky';
Tbl.open;
Tbl.insert;
 
Tbl.FieldByName('id_whisky').Value  := 1;
Tbl.FieldByName('nom_whisky').Value := 'Glen grant 1952';
Tbl.FieldByName('ref_whisky').Value := '1005';
Tbl.FieldByName('degre_whisky').Value  := 40;
Tbl.FieldByName('volume_whisky').Value := '70cl';
Tbl.FieldByName('tourbe_whisky').Value := 'non tourbé';
Tbl.FieldByName('recompense_whisky').Value := '';
//...
Tbl.FieldByName('description_whisky').Value ;= 'Ce single malt exprime tout son potentiel dans cette version sherry cask millésimée d''anthologie. De couleur ambrée à reflets dorés, le nez d''une étonnante fraîcheur se révèle très épicé (camphre, noix muscade). Il est également marqué par la cire et les fleurs capiteuses (lys). La bouche ample et puissante, immédiatement fruitée (mirabelle), se développe sur des notes florales et sur un boisé vanillé très fin. La finale huileuse évolue sur les fruits secs (noix de cajou), le chocolat et les épices douces (safran).';
 
Tbl.Post;

A toi te transformer en procédure pour pouvoir boucler dessus.

Oui j'ai essayé mais même problème, j'ai l'erreur sur l'affectation du "fieldbyname('description_whisky')"