Discussion :

[Fxg]

Bonjour,

Je suis en train de tester le passage pour mon application des composants ZeosDB vers FireDac (base Firebird) sous XE8
La compilation bute sur un message d'erreur que j'ai du mal à interpréter:

[dcc32 Erreur] Unit2.pas(347): E2010 Types incompatibles : 'string' et 'TFDDatSTable'

dans la fonction suivante au niveau de la ligne 10

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
function TDM2.dernier_id(Table: string): integer;
var
  dernier_id: TFDQuery;
begin
  dernier_id := TFDQuery.Create(nil);
  with dernier_id do
  begin
    Connection := FDConnection1;
    DataSource := DSDernier_id;
    sql.Text := 'SELECT gen_id(GEN_' + Table +
      '_ID, 0) AS nombre FROM RDB$DATABASE';
    try
      active := true;
      result := dernier_id.FieldByName('Nombre').AsInteger;
    except
      dernier_id.free;
    end;
  end;
end;

[SergioMaster]

Bonjour,

c'est le nom du paramètre qui ne va pas , remplace 'table' par 'nomtable' et c'est nickel
[Edit] en fait Table est une propriété de TFDDataset (unité Firedac.comp.DataSet) d'où la confusion à cause du with

par contre je ne vois pas à quoi sert la ligne 9 ?

Code :

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

DataSource := DSDernier_id;

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
 
function TDatas.test(nomTable : String) : Integer;
var aQuery : TFDQuery;
begin
  aQuery:=TFDQuery.Create(nil);
  try
  with aQuery do
   begin
    Connection := FDConnexion;
     SQl.Text:='SELECT gen_id(GEN_' + nomTable +
      '_ID, 0) AS nombre FROM RDB$DATABASE';;
   try
    Active:=True;
    Result:=aQuery.FieldByName('nombre').AsInteger;
    Active:=False;
   except
     result:=-1;
   end;
  end; 
  finally
    aQuery.Free;
  end;
end;

Note : sais tu qu'il y a un outil qui permettrai (note le conditionnel) de mouliner les sources du projet afin de remplacer les unités et composants de ZEOS (ou autre) vers Firedac ?
si oui as-tu réussi à l'utiliser ?

[alheuredudejeuner]

Bonjour

dans la requête, je ne vois pas de composant transaction créé pour le dernier_id .

Peut-être qu'il n'y en a pas besoin.
Mais globalement, sauf pour les composants Zeos, il est bon de créer un composant transaction et de l'associer au Query et à la base de données.

Dans notre cas, il n'y aura pas d'incidence, puisque le generator est incrémenté .

Cordialement

[SergioMaster]

dans la requête, je ne vois pas de composant transaction créé pour le dernier_id .
Peut-être qu'il n'y en a pas besoin.

peut être que je me trompe, mais si la connexion est liée a des transactions (propriété Transaction et UpdateTransaction) la Query utilise alors ces dernières

Dans notre cas, il n'y aura pas d'incidence, puisque le generator est incrémenté .

Tu voulais plutôt dire n'est pas incrémenté

[Fxg]

Merci Serge. Je n'avais pas cherché aussi loin que le nom de la variable déjà utilisé, mais j'aurais dû m'en douter quand même en choisissant Table, mais comme cela fonctionnait avec les composants Zeos.

Sinon j'avais bien commencé à regarder l'utilitaire FDDFMChanger. Comme il ne fait que changer le nom des composants en lui donnant des règles de fonctionnement. J'ai préféré faire la même chose en utilisant notepad Recherche/Remplacer pour faire la même chose sur les sources et dans les DFM et comme mon application n'est pas non plus monstrueuse et deux coups de cuillères à pot c'était fait (à une erreur bien stupide sur le nom).

Je n'avais pas mis de système de transactions pour deux raisons :
- je ne maitrisais pas tout sur le sujet et je voulais finaliser au plus vite mon application
- la base de données est locale avec un seul utilisateur donc je ne voyais pas l'intérêt de me compliquer la tâche (cf point 1) mais je peux me tromper

Mais je suis en train de le rajouter

Merci à vous deux.