FireDAC / MSSQL

Bonjour,

J'utilise FireDAC depuis peu, j'apprend principalement grâce à l'aide DELPHI. Malheureusement, l'aide ne répond pas toujours à mes attentes. J'aurais donc aimé être aiguillé vers un tutoriel (s'il en existe un).

Par la même occasion, j'en profite pour poser 2-3 questions concernant mon code.
(Pour toutes les questions qui vont suivre, j'utilisais de base le composant ADO. Il est donc possible que certaines parties soient totalement incohérentes avec les composants FireDAC)

Pour la connexion avec mon serveur, je procède de la façon suivante :

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
 
  with FDConnectionEvent do Begin
    DriverName := 'MSSQl';
    LoginPrompt := false;
    with ResourceOptions do begin
      CmdExecMode := amAsync;
    end;
    with params do Begin
      Database := CatalogEvent;
      DriverID := 'mssql';
      Password := mdp;
      Pooled := false;
      username := User_ID;
      Add('server=' + Nom_Serveur);
      Add('Database=' + CatalogEvent);
      Add('DriverID=MSSQL');
    End;
  End;
 
  FDConnectionEvent.Close();
 
  try
    FDConnectionEvent.Open();
  except
    ConsoleTrace('Probleme dans l''ouverture de la connexion MSSQl.',Debugglevel1);
  end;

J'arrive à tester la connexion. J'ai cependant un problème dans le temps de retour de la non connexion. C'est à dire que l'application prend entre 15-30 secondes pour me retourner qu'elle n'est pas connectée. Y'aurait il un paramètre (style TimeOut ou ConnectionTimeOut) à implémenter pour que ça prenne moins de temps.

Pour ce qui est de la lecture et de l'écriture, voici 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
37
38
39
40
41
42
43
44
           with FDConnection do Begin
                        DriverName := 'MSSQl';
                        LoginPrompt := false;
                        with ResourceOptions do begin
                          CmdExecMode := amAsync;
                        end;
                        with params do Begin
                          Database := Catalog;
                          DriverID := 'mssql';
                          Password := mdp;
                          Pooled := false;
                          username := User_ID;
                          Add('server=' + Nom_Serveur);
                          Add('Database=' + Catalog);
                          Add('DriverID=MSSQL');
                        End;
                      End;
 
                      FDConnection.Close();
 
                      try
                        FDConnection.Open();
                      except
                        ConsoleTrace('Probleme dans l''ouverture de la connexion MSSQl.',Debugglevel1);
                      end;
 
                      FDQuery.Connection:=FDConnection;
 
                      FDQuery.SQL.Clear;
                      CommandeSQL := 'Select * From ' + Nom_Table;
                      FDQuery.SQL.ADD(CommandeSQL);
                      FDQuery.Open;
                      FDQuery.Last;
 
                      try
                        Num_index:=FDQuery.Fields.Fields[0].Value+1;
                      except
                        Num_index:=1;
                      end;
                      CommandeSQL := CommandeSQl + ');';
                      FDQuery.SQL.Clear;
                      FDQuery.SQL.Add(CommandeSQL);
                      FDQuery.ExecSQL;
                      FDQuery.SQL.Clear;

Ce code fonctionnait avec le composant ado mais ne fonctionne plus avec le composant FireDAC. Je ne vois pas comment traduire mes Fields.Fields et mes Last interminables. Je prend tous les conseils à partir de ce point ci.
Es-ce que changer mon composant FDQuery par un composant FDTable pourrait m'arranger ?

Enfin, j'ai également ce code pour effectuer une lecture/écriture qui fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
ConsoleTrace('Connecte a MSSQL',DebuggLevel1);
      if FDConnectionEvent.ExecSQLScalar('Select MAX(NO_EVENT) From ' + Nom_tableEvent) = null then
        Begin
          Old_No_Event:=1;
        End
      else
        Begin
          Old_No_Event := FDConnectionEvent.ExecSQLScalar('Select MAX(NO_EVENT) From ' + Nom_tableEvent);
          Inc(Old_No_Event,1);
        End;
      FDConnectionEvent.ExecSQL('Insert into ' + nom_tableEvent + ' values (' + inttostr(Old_No_Event) + ',''' + formatdatetime('yyyy/mm/dd',today) + ''',''' + timetostr(now) + ''',''Démarrage de l ApiSoft'','''',''ApiSoftMou'');');
      ConsoleTrace('Enregistrement EVENEMENT OK: structure OK', DebuggLevel1);

Le ExecSQLScalar ne peut renvoyer qu'un enregistrement (si j'ai bien compris la doc). Je ne peux donc pas faire de select * avec par exemple. A l'inverse, si je peux faire toutes mes requêtes avec mon FDConnection, quels intérêts ont FDQuery et FDTable ?

Merci par avance pour toute réponse apportée. Même si elles ne répondent pas à l'intégralité des questions posées.

Cordialement.

Bonjour,

je constate que ce que j'avais écrit dans ce post est resté lettre morte du moins en grande partie en ce qui concerne la connexion :weird:

Citation:

Le ExecSQLScalar ne peut renvoyer qu'un enregistrement (si j'ai bien compris la doc). Je ne peux donc pas faire de select * avec par exemple.

c'est pas tout à fait ça http://docwiki.embarcadero.com/Libra....ExecSQLScalar

Citation:

ExecSQLScalar renvoie la valeur de la première colonne dans la première ligne du premier ensemble de résultats.

donc on peut très bien écrire un "select * from table" bien que cela soit :cfou:
à propos de ExecSQLScalar ton utilisation en est incorrecte, pour la partie récupération du dernier numéro ce code devrait faire la même chose
Code:

1 2 Old_No_Event:=FDConnectionEvent.ExecSQLScalar('Select MAX(NO_EVENT)+1 From ' + Nom_tableEvent); if Old_No_Event.isNull then Old_No_Event := 1;
pour la partie insert je pense que j'avais déjà indiqué qu'une requête paramétrée serait plus propre
Code:

1 2 FDConnection.ExecSQL('INSERT INTO EVENT(:I,CONVERT(DATE,GETDATE(),101),CONVERT(TIME,GETDATE()),:d,NULL,:A)', [old_No_Event,'Démarrage de l''API soft','ApiSoftMou']);
n.b. pour ce qui est du CONVERT cela dépend du SGBD (MSSQL 2008 et + ) pour obtenir la date serveur GetDate (toujours MSSQL 2008 et +) de façon formattée
ces convert peuvent bien sûr être remplacé par today et time mais cela depend également, bien évidemment de la structure de la table EVENT

Citation:

A l'inverse, si je peux faire toutes mes requêtes avec mon FDConnection, quels intérêts ont FDQuery et FDTable ?

FdQuery et fdTable permettent d'avoir un ensemble de données. Les fdQuerys et fdtables envoient en fait des commandes sql.

Comme il semble que tu travailles sur le monitoring sais-tu que cette fonctionnalité existe de base avec Firedac ?

pour le timeout, je n'ai jamais essayé mais il y a http://docwiki.embarcadero.com/Libra...CmdExecTimeout

Citation:

je constate que ce que j'avais écrit dans ce post est resté lettre morte du moins en grande partie en ce qui concerne la connexion :weird:

En effet non, vu que dans l'état actuel des choses ça fonctionne, je reste la dessus pour le moment. J'optimiserais quand j'aurais réglé tous mes problèmes.

Citation:

c'est pas tout à fait ça http://docwiki.embarcadero.com/Libra....ExecSQLScalar

Citation:

ExecSQLScalar renvoie la valeur de la première colonne dans la première ligne du premier ensemble de résultats.

donc on peut très bien écrire un "select * from table" bien que cela soit

Merci pour ce point, j'avais lu en travers et pas compris visiblement.
Citation:
Code:

1 2 Old_No_Event:=FDConnectionEvent.ExecSQLScalar('Select MAX(NO_EVENT)+1 From ' + Nom_tableEvent); if Old_No_Event.isNull then Old_No_Event := 1;
Cardinal ne contient pas un membre nommé isNull (Old_no_Event est de type DWord)

Citation:

pour la partie insert je pense que j'avais déjà indiqué qu'une requête paramétrée serait plus propre

En effet, et la requête paramétrée est à ce jour inconnue pour moi. (Pour le moment.) Mais je l'utiliserais au moment de l'optimisation de mon code aussi.
Qu'es-ce qu'une requête paramétrée change par rapport à une requête standard ?

Citation:

n.b. pour ce qui est du CONVERT cela dépend du SGBD (MSSQL 2008 et + ) pour obtenir la date serveur GetDate (toujours MSSQL 2008 et +) de façon formattée
ces convert peuvent bien sûr être remplacé par today et time mais cela depend également, bien évidemment de la structure de la table EVENT

Je n'utilise pas convert et getdate pour la simple et bonne raison que mes formats dans mssql sont des char. Pourquoi ? C'est une conversion de base de donnée au format DBase vers mssql. Or, sur DBase, nous n'avions pas tous les formats que nous possédons maintenant.

Citation:

FdQuery et fdTable permettent d'avoir un ensemble de données. Les fdQuerys et fdtables envoient en fait des commandes sql.

Elles envoient une requête. Si c'est un select, le résultat est stocké ou, dans quoi ?

Citation:

Comme il semble que tu travailles sur le monitoring sais-tu que cette fonctionnalité existe de base avec Firedac ?

Il faut que tu m'aiguilles. Je ne comprend pas ou tu veux en venir.

Merci. Cordialement.

EDIT1 : Je viens de tester le CmdTimeOut, ça ne change rien à mon délai d'attente.

Re,
pour corriger la partie isNull à laquelle je n'avais pas fait atttention
Code:

1 2 3 4 5 6 var Old_No_Event : Cardinal; begin try Old_No_Event:=FDConnection1.ExecSQLScalar('Select MAX(ID)+1 From EVENTS'); except Old_No_Event := 1; end;
Citation:

Qu'est-ce qu'une requête paramétrée change par rapport à une requête standard ?

à part une codification plus propre sans risque de se tromper dans la concaténation de chaine : rien
Code:

1 2 3 4 5 6 FDConnection.ExecSQL('INSERT INTO EVENT(:I,:d,:t,:d,NULL,:A)', [old_No_Event, formatdatetime('yyyy/mm/dd',today), TimeToStr(time), 'Démarrage de l''API soft', 'ApiSoftMou']);
Citation:

Je n'utilise pas convert et getdate pour la simple et bonne raison que mes formats dans mssql sont des char. Pourquoi ? C'est une conversion de base de donnée au format DBase vers mssql. Or, sur DBase, nous n'avions pas tous les formats que nous possédons maintenant.

ok, mais l'utilisation des types date et time et même plutôt d'un TimeStamp seront nettement plus appropriés ensuite

Citation:

Si c'est un select, le résultat est stocké ou, dans quoi ?

en mémoire dans un ensemble de données, autrement écrit : un Dataset tout comme le faisait TADOTable ou Query

Citation:

Il faut que tu m'aiguilles. Je ne comprend pas ou tu veux en venir.

Oublie, le monitoring c'est pour les évènements sur la BDD

Bonjour,
Citation:
pour corriger la partie isNull à laquelle je n'avais pas fait atttention
Code:

1 2 3 4 5 6 var Old_No_Event : Cardinal; begin try Old_No_Event:=FDConnection1.ExecSQLScalar('Select MAX(ID)+1 From EVENTS'); except Old_No_Event := 1; end;
Impeccable.

Citation:

Citation:

Qu'est-ce qu'une requête paramétrée change par rapport à une requête standard ?

à part une codification plus propre sans risque de se tromper dans la concaténation de chaine : rien

En réfléchissant un peu, j'arrive à comprendre l’intérêt de ce genre requête.
Le problème c'est qu'en reprenant ton code,
Citation:
Code:

1 2 3 4 5 6 FDConnection.ExecSQL('INSERT INTO EVENT(:I,:d,:t,:d,NULL,:A)', [old_No_Event, formatdatetime('yyyy/mm/dd',today), TimeToStr(time), 'Démarrage de l''API soft', 'ApiSoftMou']);
ça ne fonctionne pas. Par la même occasion, pourrais tu m'expliquer les ' :... '. J'aimerai savoir si la lettre située derrière a un intérêt, lequel et comment la choisir.

Citation:

ok, mais l'utilisation des types date et time et même plutôt d'un TimeStamp seront nettement plus appropriés ensuite

Oui, ce sont des choses à reprendre par la suite.

Citation:

en mémoire dans un ensemble de données, autrement écrit : un Dataset tout comme le faisait TADOTable ou Query

Le problème c'est que je procédais de la façon suivante : Je faisais un select * ( Je sais, c'est pas terrible). Ensuite, j'utilisais la fonction .last pour me mettre en fin de table. Enfin je récupérais la valeur désirée avec un .fields.fields. Je n'utilisais donc pas de dataset avant. (Peut-être une erreur de ma part) Dois-je en déclarer un pour pouvoir utiliser mes données ?

Cordialement.

Bonjour,

Citation:

Envoyé par Pr3dators

Le problème c'est qu'en reprenant ton code,
ça ne fonctionne pas. Par la même occasion, pourrais tu m'expliquer les ' :... '. J'aimerai savoir si la lettre située derrière a un intérêt, lequel et comment la choisir.

pour les ":" , c'est une convention (datant de la vieille époque du BDE) pour indiquer qu'il s'agit d'un paramètre, la lettre suivante à un intérêt puisqu'elle permet d'indiquer le nom du paramètre (un nom de variable en quelque sorte). Je n'ai pas essayé en général je met toujours des noms différents, mais je me demande si un même nom (dans le cas du ExecSQL) ne fonctionnerai pas !

si le INSERT ne fonctionne pas c'est qu'il doit y avoir une erreur , peut être à cause de l'apostrophe :koi: ou d'autre chose j'ai juste essayé de reprendre le code que tu avais écrit. Peut être aussi que des QuotedStr('Démarrage de l''API soft') et QuotedStr('ApiSoftMou') mais surtout parce que j'ai oublié VALUES :oops:
Code:

1 2 3 4 5 6 FDConnection.ExecSQL('INSERT INTO EVENT VALUES (:I,:d,:t,:d,NULL,:A)', [old_No_Event, formatdatetime('yyyy/mm/dd',today), TimeToStr(time), 'Démarrage de l''API soft', 'ApiSoftMou']);
Citation:

Oui, ce sont des choses à reprendre par la suite.

selon moi c'est indispensable

Citation:

Le problème c'est que je procédais de la façon suivante : Je faisais un select * ( Je sais, c'est pas terrible). Ensuite, j'utilisais la fonction .last pour me mettre en fin de table. Enfin je récupérais la valeur désirée avec un .fields.fields. Je n'utilisais donc pas de dataset avant. (Peut-être une erreur de ma part) Dois-je en déclarer un pour pouvoir utiliser mes données ?

non, pas dans ce bout de code. De plus je ne parlais pas d'un composant TDataset utile en VCL lorsque l'on veut faire des relations entre la BDD et des composants, mais bien d'un dataset soit, traduit : un ensemble de données

Citation:

pour les ":" , c'est une convention (datant de la vieille époque du BDE) pour indiquer qu'il s'agit d'un paramètre, la lettre suivante à un intérêt puisqu'elle permet d'indiquer le nom du paramètre (un nom de variable en quelque sorte). Je n'ai pas essayé en général je met toujours des noms différents, mais je me demande si un même nom (dans le cas du ExecSQL) ne fonctionnerai pas !

si le INSERT ne fonctionne pas c'est qu'il doit y avoir une erreur , peut être à cause de l'apostrophe ou d'autre chose j'ai juste essayé de reprendre le code que tu avais écrit. Peut être aussi que des QuotedStr('Démarrage de l''API soft') et QuotedStr('ApiSoftMou') mais surtout parce que j'ai oublié VALUES

Merci pour ces précisions. Oui, j'avais vu qu'il manquait le 'values', je l'avais ajouté mais le problème ne venait pas de là. vu qu'il y a 2 fois ':d' je vais faire en test en modifiant l'un des deux. Je vais également tester avec QuotedStr.

Citation:

non, pas dans ce bout de code. De plus je ne parlais pas d'un composant TDataset utile en VCL lorsque l'on veut faire des relations entre la BDD et des composants, mais bien d'un dataset soit, traduit : un ensemble de données

Mauvaise compréhension de ma part.

Je vais approfondir tout ça.

Cordialement.

Edit : Je viens d'essayer la requête de la façon suivante :
Code:

1 2 3 4 5 6 7 FDConnection.ExecSQL('INSERT INTO ' + nom_tableEvent + ' values (:I,:d,:t,:f,:g,:A)', [old_No_Event, formatdatetime('yyyy/mm/dd',today), TimeToStr(now), QuotedStr('Démarrage de l''API soft'), QuotedStr(''), QuotedStr('ApiSoftMou')]);
J'ai remplacé le NULL par QuotedStr(''), ça ne change pas mon problème. Ca ne fonctionne toujours pas..

Citation:

Je n'ai pas essayé en général je met toujours des noms différents, mais je me demande si un même nom (dans le cas du ExecSQL) ne fonctionnerai pas !

Eh bien j'ai ma réponse il faut éviter !
J'ai fait un test avec SQLite et une table faite à la va vite
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm9.Button1Click(Sender: TObject); var Old_No_Event : Cardinal; begin try Old_No_Event:=FDConnection1.ExecSQLScalar('Select MAX(ID)+1 From EVENTS'); except Old_No_Event := 1; end; FDConnection1.ExecSQL('INSERT INTO EVENTS VALUES (:i,:t,:date,:time)', [Old_No_Event,'l''appli',FormatDateTime('yyyy/mm/dd',Date),TimeTostr(time)]); end;
cela fonctionne parfaitement (bien sûr je n'ai que les 4 colonnes)
Utiliser le QuotedStr n'est pas une si bonne idée car je retrouve (dans SQLite) la chaine entre apostrophes
NULL fonctionne avec SQL
et bien sûr la meilleure syntaxe serait de faire un INSERT INTO EVENTS( colonnes) VALUES (...) ainsi le NULL n'aurait pas de raison d'être

Je ne comprend donc pas pourquoi ça ne fonctionne pas chez moi.
Code:

1 2 3 4 5 6 7 8 9 FDConnectionEvent.ExecSQL('Insert into ' + nom_tableEvent + ' values (' + inttostr(Old_No_Event) + ',''' + formatdatetime('yyyy/mm/dd',today) + ''',''' + timetostr(now) + ''',''Démarrage de l ApiSoft'','''',''ApiSoftMou'');'); FDConnection.ExecSQL('INSERT INTO ' + nom_tableEvent + ' values (:I,:d,:t,:f,:g,:A)', [old_No_Event, formatdatetime('yyyy/mm/dd',date), TimeToStr(time), 'Démarrage de l''API soft', '', 'ApiSoftMou']);
La première requête non paramétrée fonctionne mais pas la deuxieme ... (Avec mssql)

J'ai une autre question (tu vas encore me taper sur les doigts)
Je procédais de la façon suivante avec les composants ADO :
Code:

1 2 3 4 5 6 7 8 9 10 FDQuery_pour_structure.Connection:=FDConnection_pour_structure; FDQuery_pour_Structure.SQL.Clear; CommandeSQL := 'SELECT * FROM ' + Nom_Table ; FDQuery_pour_structure.SQL.Text := CommandeSQL; FDQuery_pour_structure.Open; ... SetLength(Tabstructure, FDQuery_pour_structure.FieldDefs.Count);
Or, la je bloque à mon Open. La démarche ne doit pas être bonne. J'ai fait un test avec FDConnection.ExecSQL, ça ne fonctionne pas non plus.

Cordialement.

Edit : Si je procède de la façon suivante : FDQuery_pour_structure.Open(CommandeSQL); ça fonctionne.
Par contre, FDQuery_pour_structure.FieldDefs.Count me retourne 0.

Edit2 : Si je remplace FDQuery_pour_structure.Open; par FDQuery_pour_structure.ExecSQL; ça fonctionne également mais toujours FDQuery_pour_structure.FieldDefs.Count me retourne 0.

Re,

Je dois avouer ne pas savoir s'il n'y a pas quelques petites spécificités MSSQL qui empêcherait la requête paramétrée de fonctionner.

Pour la seconde question, accrochée .
j'ai écrit rapidement un test
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure TForm9.Button2Click(Sender: TObject); var Query : TFDQuery; begin Query:=TFDQuery.Create(Self); try Query.Connection:=FDConnection1; Query.SQL.Text:='SELECT * FROM EVENTS'; Query.Active:=True; Showmessage(Inttostr(Query.FieldDefs.Count)); finally Query.Free; end; end;
et cela m'affiche bien mon nombre de champs
maintenant, à quoi cela va t-il servir ? car s'il s'agit d'obtenir les champs d'une table FDMetaINfoQuery est pas mal non plus

Bon, Je fais exactement pareil que toi mais bien évidemment, ça ne fonctionne pas ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 FDConnection_pour_structure.Close(); try FDConnection_pour_structure.Open(); except ConsoleTrace('Probleme dans l''ouverture de la connexion MSSQl.',Debugglevel1); end; FDQuery_pour_structure.Connection:=FDConnection_pour_structure; //FDQuery_pour_Structure.SQL.Clear; FDQuery_pour_structure.SQL.Text := 'SELECT * FROM ' + Nom_Table; FDQuery_pour_structure.Active:=true;
Je viens de faire un test avec une autre application, et ça marche sans problème. (Exactement le même code)
Je ne comprend pas pourquoi ça ne marche pas du coup sur l'application principale...

Je n'ai pas gardé MSSQL sur mon poste et ne tient pas non plus à le remettre (franchement c'est trop long, trop complexe, des dizaines de fichiers etc... par rapport à Firebird quelle galère)

Il y a peut être une option de la connexion que tu as décoché fetchOptions/cache/fiMetadata

Citation:

Je fais exactement pareil que toi

pas tout à fait quand même

J'ai effectué 2 tests. Un exactement comme le tien et un sans le create/free.

Résultats : - Lorsque je n'utilise pas le create et le free, au premier appuie de bouton, le showmessage me donne 0. au deuxième appuie, le showmessage me donne 6 (Réponse attendue).
- Lorsque j'utilise le create et le free, le showmessage me retourne toujours la valeur 0.