Discussion :

[mario9]

Bonjour

Je sais, vous allez dire que je ne cherche pas sur Google, soit, mais je ne trouve pas ce que je veux. C'est pourquoi, après plusieurs heures de recherches et tests je
viens solliciter vos connaissances.

Mon problème est que je veux lancer cette commande

Code :

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

1
2
3
4
5
6
         FDONNEES.DonneesConnection.ExecSQL('DROP  TABLE  TONNE');
 
         FDONNEES.DonneesConnection.ExecSQL('CREATE TABLE TONNE (TID INTEGER (6), TREGION CHAR (5), TMAT CHAR (15), TD1 NUMERIC (6, 3), TD2    NUMERIC (6, 3), TD3 NUMERIC (6, 3), TD4 NUMERIC (6, 3), TD5 NUMERIC (6, 3), TD6 NUMERIC (6, 3));');
 
//     j'ai un erreur ici 
   FDONNEES.DonneesConnection.ExecSQL('INSERT TABLE TONNE VALUES (1, NULL,  QUOTESTR(Vrac), 1.318, 0.263, 0.239, 0.146, 0.099, 0.079));');

je pense que mon problème vient d'ici

NULL, QUOTESTR(Vrac),

Merci de votre aide

Mario

[SergioMaster]

Bonjour,

Je sais vous aller dire que je ne cherche pas sur Google mais oui mais je ne trouve pas ce que je veux pourquoi , après plusieurs heures de recherches et test je
viens solliciter vos connaissance.

Oui, c'est un peu vrai surtout que c'est dans le docwiki (aide) d'Embarcadero
recherche : firedac+fdConnection+execsql -> première réponse

En fait tu veux exécuter une commande avec paramètres, comme il s'agit de Firedac, chance, c'est implémenté

Pour exécuter une requête paramétrée, utilisez l'autre méthode surchargée :
FDConnection1.ExecSQL('insert into testtab values (:id, :name)', [1, 'FireDAC']);

donc :

Code :

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

FDONNEES.DonneesConnection.ExecSQL('INSERT TABLE TONNE VALUES (1, NULL, :PVrac, 1.318, 0.263, 0.239, 0.146, 0.099, 0.079)',[Vrac]);

Note: le point virgule en fin de commande n'est pas nécessaire

[mario9]

Merci SergioMaster

J'avais bien vue cette exemple et essayé plusieurs fois de toutes les manières et j'avais toujours un erreur. Donc j'ai eu recours au forum

mon erreur n'était pas sur la formulation du champ texte mais:

Code :

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

1
2
 
FDONNEES.DonneesConnection.ExecSQL('INSERT TABLE TONNE VALUES (1, NULL, :PVrac, 1.318, 0.263, 0.239, 0.146, 0.099, 0.079)',[Vrac]);

j'avais écrit TABLE au lieu de mettre INTO ce qui me donnait toujours un erreur sur ce que je faisais , désolé

Comme je suis a mes débuts en SQL travaillant toujours avec des vielles commande de BDE je voulais remplacé ces lignes de codes par des commande SQL pour toujours diminuer les lignes de code dans mon programme et augmenter la vitesse d'exécution sur mon Iphone

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
        FDONNEES.tonnetable.Append;
        FDONNEES.tonnetable.Fields[0].Asstring:='1';
        FDONNEES.tonnetable.Fields[1].Asstring:='';
        FDONNEES.tonnetable.Fields[2].Asstring:='Vrac';
        FDONNEES.tonnetable.Fields[3].AsFloat:=1.318;
        FDONNEES.tonnetable.Fields[4].AsFloat:=0.263;
        FDONNEES.tonnetable.Fields[5].AsFloat:=0.239;
        FDONNEES.tonnetable.Fields[6].AsFloat:=0.146;
        FDONNEES.tonnetable.Fields[7].AsFloat:=0.099;
        FDONNEES.tonnetable.Fields[8].AsFloat:=0.079;
        FDONNEES.tonnetable.POST;
 
        FDONNEES.tonnetable.Append;
        FDONNEES.tonnetable.Fields[0].Asstring:='2';
        FDONNEES.tonnetable.Fields[1].Asstring:='IM';
        FDONNEES.tonnetable.Fields[2].Asstring:='Vrac';
        FDONNEES.tonnetable.Fields[3].AsFloat:=1.477;
        FDONNEES.tonnetable.Fields[4].AsFloat:=0.279;
        FDONNEES.tonnetable.Fields[5].AsFloat:=0.279;
        FDONNEES.tonnetable.Fields[6].AsFloat:=0.181;
        FDONNEES.tonnetable.Fields[7].AsFloat:=0.135;
        FDONNEES.tonnetable.Fields[8].AsFloat:=0;
        FDONNEES.tonnetable.POST;
 
        FDONNEES.tonnetable.Append;
        FDONNEES.tonnetable.Fields[0].Asstring:='3';
        FDONNEES.tonnetable.Fields[1].Asstring:='10-1';
        FDONNEES.tonnetable.Fields[2].Asstring:='Vrac';
        FDONNEES.tonnetable.Fields[3].AsFloat:=1.3894;
        FDONNEES.tonnetable.Fields[4].AsFloat:=0.360;
        FDONNEES.tonnetable.Fields[5].AsFloat:=0.322;
        FDONNEES.tonnetable.Fields[6].AsFloat:=0.116;
        FDONNEES.tonnetable.Fields[7].AsFloat:=0.116;
        FDONNEES.tonnetable.Fields[8].AsFloat:=0.116;
        FDONNEES.tonnetable.POST;

ce qui donne

Code :

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

1
2
3
4
5
6
 
         FDONNEES.DonneesConnection.ExecSQL('INSERT INTO TONNE VALUES (1, '''', ''Vrac'', 1.318, 0.263, 0.239, 0.146, 0.099, 0.079)');
 
         FDONNEES.DonneesConnection.ExecSQL('INSERT INTO TONNE VALUES (2, ''IM'', ''Vrac'', 1.477, 0.279, 0.279, 0.181, 0.135, 0)');
 
         FDONNEES.DonneesConnection.ExecSQL('INSERT INTO TONNE VALUES (3, ''10-1'', ''Vrac'', 1.394, 0.360, 0.322, 0.116, 0.116, 0.116)');

ce qui fonctionne tres bien

Est-ce mieux, plus rapide ou je peux utilisé d'autre commande .Toujours en pensant au limitation de SqLite dans mon iPhone et Windows.

Merci encore pour ta patience ( Ca me donne une formation accéléré). et je peux te dire que je cherche beaucoup mais des fois du chinois c'est difficile a comprendre....

Mario

[SergioMaster]

Bonjour,

Je n'avais même pas fait attention à la syntaxe du SQL juste sur la phrase "je pense que"

Sinon, plutôt que de faire plusieurs commandes tu peux n'en faire qu'une seule , cela s'appelle un script.
deux solutions pour le script : passer par FDScript ou tout simplement par FDQuery
dans ce dernier cas (FDQuery) chaque instruction doit se terminer par ; ne maitrisant pas encore les subtilités du FDScript je te donnerai donc que cette dernière solution (écrite à la volée) , avantage bien que cela ait peu d'importance pour une base locale : une seule transaction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var AQuery : TFDQuery;
 
AQuery:=TFDQuery.Create(nil);
try
  AQuery.Connection:=FDConnection1; 
  AQuery.SQL.Add('INSERT INTO TONNE VALUES (1, '''', ''Vrac'', 1.318, 0.263, 0.239, 0.146, 0.099, 0.079);');
  AQuery.SQL.Add('INSERT INTO TONNE VALUES (2, ''IM'', ''Vrac'', 1.477, 0.279, 0.279, 0.181, 0.135, 0);');
  AQuery.SQL.Add('INSERT INTO TONNE VALUES (3, ''10-1'', ''Vrac'', 1.394, 0.360, 0.322, 0.116, 0.116, 0.116);');
  AQuery.ExecSQL;
finally
  AQuery.Free;
end;

le script est peut être plus intéressant, je ne l'ai utiliser pour l'instant qu'avec des instructions SQL dans un fichier, je l'ai abandonné par la suite pour cause de problème de gestion d'erreur (un bug connu et qui sera corrigé dans l'update de XE10 selon Dmitri Arefiev)

[Edit] Comme je viens de lire les derniers messages de Dmitri je te conseille également de lire les pages docwiki suivantes :
http://docwiki.embarcadero.com/RADSt...e_with_FireDAC
le chapitre sur les moyens d'ajustement Adjusting FireDAC Mapping et sur les Commandes SQLite SQL Command Batches pourraient t'être utiles
http://docwiki.embarcadero.com/RADSt..._%28FireDAC%29

[mario9]

Bonjour

Merci Sergio ca devient de plus en plus claire avec tes explications et ta lecture qui tu suggères.


Merci de ta générosité a nous répondre.

Mario