Discussion :

[illuch]

Bonjour à tous,
Toujours dans le cadre de la migration d'un programme fait avec Delphi XE2 et interbase de l'époque vers Delphi 10.4 community et interbase 2020.

J'ai l'erreur suivante :

EIBInterbaseError : invalid transaction handle (expecting explicit transaction start)

lorsque le code suivant s'exécute :

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
 IBQuery5.Close;
 for i:=1 to 16 do begin
  Tires.Clear; Paquet.Clear;
 
  With Form3 do begin
   IBQuery5.Sql.clear;
   IBQuery5.Params.Clear;
   IBquery5.Params.CreateParam(ftinteger,'categorie', ptUnknown);
   IBQuery5.ParamByName('categorie').AsInteger := i;
   Requete:='select count(*) FROM DONNE where CAT =:categorie';
   IBQuery5.Sql.Add(Requete);
   IBQuery5.Open;                <== Ligne qui provoque l'erreur. 
   Nbre:=Form3.IBQuery5.Fields[0].AsInteger;  
   ........
   ........

Merci de vos suggestions
JL

[pprem]

Bonjour

Un composant "transaction" est-il disponible sur la connexion Interbase ou attaché au(x) query(s) ?

[illuch]

Voici les composants qu'il y a :
IBTransaction5, IBDatabase5, IBTable5, datasource5, IBQuery5, IBUpdatesSQL5

et voici le code pour configurer tout ça :

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
procedure TForm3.Config_Connection(Nom_Base: TFilename);  
begin
 IBDataBase5.Params.Clear;    
 with IBDatabase5 do begin
  DatabaseName:=Nom_Base;
  Params.Add('user_name=ABCDE'); 
  Params.Add('password=abcde'); 
  Params.Add('PAGE_SIZE=4096');
  LoginPrompt:=False;             
  DefaultTransaction:=IBTransaction5;
 end;
 
 IBTransaction5.defaultDatabase:=IBDatabase5;
 IBDatabase5.connected:=True;         
 IBTransaction5.active:=True;
 
 with IBTable5 do begin
  database:=IBDatabase5;
  TableName:='DONNE';
 end;
 DataSource5.DataSet:=IBQuery5;
 IBTable5.Active:=True;   
 Form100.DBGrid5.DataSource:=DataSource5;
 IBQuery5.Database:=IBDataBase5;
 
 IBUpdateSQL5.modifySQL.Clear;
 IBUpdateSQL5.modifySQL.Add('UPDATE * FROM DONNE');
 IBTable5.UpdateObject:=IBUpdateSQL5;
 IBQuery5.UpdateObject:=IBUpdateSQL5;

[SergioMaster]

Bonjour,

ouch :calim: que de nombreuses réactions ai-je eu à la lecture de ces deux codes !

le code du premier post
si je comprend bien il s'agit d'obtenir le nombre d'éléments d'un catégorie à afficher dans une forme différente ?
ce n'est pas clair et de toute façon ce with gâche tout et l'utilisation de nom de composants "autogénérés" n'arrange pas le schmilblic
de plus faire une boucle pour obtenir les nombres pour les 16 catégories me semble bien consommateur,

seconde question alors est-ce que la table DONNE contient toujours les 16 catégories et uniquement celles-ci ?

1. si c'est le cas un select cat,count(1) as nombre FROM DONNE group by cat sera nettement moins consommateur de ressources.
2. s'il n'y a qu'au maximum 16 catégories mais pas forcément les 16, hélas INTERBASE ne proposant pas les CTE récursives one ne peut écrire un SQL "hyper compact", mais l'appel à une procédure interbase pourrait faire l'affaire (au besoin me demander comment l'écrire

Cette première mise au point faite, en reprenant le code (avec une requête créée au runtime)

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
with TIBSQL.Create do 
 begin  
    database:=IBDataBase1;
    transaction:=IBTransaction1; // pas obligatoire si vous avez indiqué une Defaulttransaction au niveau IBDatabase 
    SQL.Text:='select count(*) as nombre FROM DONNE where CAT =:categorie';
    Prepare;
 end;
IBTransaction1.StartTransaction;  // si vous tenez à gérer les transactions (IBTransaction1.allowautostart:=false)
for i:=1 to 16 do
  begin
     ParamByName('categorie').asInteger:=i;
     Open;
     // traitement valeur fieldByname('nombre').asInteger
     Close;
  end; 
IBTransaction1.Commit; // ou RollBack puisque pas de modifications

En bref pour le premier post vous confondez Active:=true et StartTransaction

Le second code
d'entrée de jeu ce IBUpdateSQL5.modifySQL.Add('UPDATE * FROM DONNE'); me choque : Syntaxe SQL incorrecte et ce quelque soit le SGBD.
Le "bon" SQL serait quelque-chose comme

Code SQL :

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

1
2
3
UPDATE DONNE
SET ID = :NEW_ID, CODE = :NEW_CODE, LIBELLE = :NEW_LIBELLE
WHERE ID= :OLD_ID

ou, à tout le moins quelque chose d'approchant (n'ayant pas la structure de DONNE, j'en utilise une "bidon" ID Integer NOT NULL PRIMARY KEY,CODE char(2) NOT NULL,LIBELLE VARCHAR(60))

La suite du code est à l'aune du premier, si vous voulez gérer les transactions, c'est effectivement plutôt sur de TIBUpdate que vous devriez avoir un composant IBtransaction pouavnt avoir un comportement différent de la transaction par défaut

[illuch]

Bonjour à tous,
je vois que quelques explications sont nécessaires.
Ce programme que j'essaie de migrer sur delphi 10.4 date de plus de 5 ans. C'est mon premier programme avec une base de données.
Je suis arrivé avec ce programme à une version "fonctionnelle" (dans le sens que le programme fonctionne ou plus trivialement : "il fait le job")
N'étant pas informaticien, je vois qu'il va falloir modifier un certain nombre de choses pour que la migration soit réussie.

Pour répondre à Sergio :
La base de données comporte 4 tables.
La principale est la table "DONNE" qui comporte actuellement près de 5000 enregistrements. Mais elle s'enrichit régulièrement de nouveaux enregistrements.
Cette table comporte 30 champs (integer ou char) et un index primaire num (NUM int NOT NULL Primary key).
Parmi ces 30 champs, il y en a un : CAT qui est un integer et qui peut prendre la valeur de 1 à 16 uniquement.
Il y donc à peu près 300 enregistrements de catégorie 1, 300 avec CAT=2 ...

Ce que je veux faire :
-extraire les enregistrements de cat=1 et en choisir un au hasard et stocker son numéro dans la deuxième table
_ idem pour cat =2
je fais ça 40 fois. A la 17ème extraction, , on recommence à partir de cat=1. De même avec 33.

Ce qui coinçait jusqu'à présent, c'était l'extraction uniquement des enregistrements de même catégorie.
Mais ça marche maintenant : J'ai modifié (ou enlevé) une propriété à un composant "IBx" mais je ne sais pas lequel

Merci pour votre aide
JL