Discussion :

[Night_Wolf1619]

le code pour l'ajoute marche très bien si l'enregistrement n'existe pas on l'ajoute mais si l'enregistrement existe et différent on doit le maitre ajoure

le code de modification ou de la mise ajour ne marche pas j'ai des erreurs de syntaxe c'est le code apres le ELSE

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
ZQuery1.SQL.Text:='INSERT INTO tblSystems(NAME,PROVIDERID,KEYINDEX,KEY,COMMENTS) VALUES (:pN,:pP,:pKI,:pK,:pC)';
if not Ztable2.locate('Name;ProviderID;KeyIndex;key',VarArrayOf([System1,provider1,index1,key1]),[])
then
begin
                // ajouter les données
ZQuery1.Connection.StartTransaction;
ZQuery1.ParamByName('pN').Value := System1;
ZQuery1.ParamByName('pP').Value := provider1;
ZQuery1.ParamByName('pKI').Value := index1;
ZQuery1.ParamByName('pK').Value := key1;
ZQuery1.ParamByName('pC').Value :=DateTimeToStr(now);
ZQuery1.ExecSQL;
end else
             // Maitre ajour les données
if Ztable2.locate('Name;ProviderID;KeyIndex,key',VarArrayOf([System1,provider1,index1,key1]),[])
then if Ztable2.FieldByName('Name').Value <> key1
then
begin
ZQuery1.close;
ZQuery1.sql.clear;
ZQuery1.SQL.Add('UPDATE tblSystems');
ZQuery1.SQL.Add('SET KEY= :key1');
ZQuery1.SQL.Add('WHERE Name = :System1 , ProviderID = :provider1 , KeyIndex = :index1');
ZQuery1.ExecSQL;
end;

de l'aide svp et merci d'avance

[Rayek]

Tu ne renseignes pas les paramètres de ta query c'est normal que cela ne fonctionne pas (:key1, :system1, etc ...)

[tourlourou]

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
if Ztable2.locate('Name;ProviderID;KeyIndex;key',VarArrayOf([System1,provider1,index1,key1]),[])
then begin // update 
  if Ztable2.FieldByName('Name').Value <> key1
  then begin
    ZQuery1.close;
    ZQuery1.sql.clear;
    ZQuery1.SQL.Add('UPDATE tblSystems');
    ZQuery1.SQL.Add('SET KEY= :key1');
    ZQuery1.SQL.Add('WHERE Name = :System1 , ProviderID = :provider1 , KeyIndex = :index1');
    // il manque la définition des valeurs des paramètres ?
    ZQuery1.ExecSQL;
  end;
end
else begin // insert
  ZQuery1.Connection.StartTransaction;
  ZQuery1.SQL.Text:='INSERT INTO tblSystems(NAME,PROVIDERID,KEYINDEX,KEY,COMMENTS) VALUES (:pN,:pP,:pKI,:pK,:pC)';
  ZQuery1.ParamByName('pN').Value := System1;
  ZQuery1.ParamByName('pP').Value := provider1;
  ZQuery1.ParamByName('pKI').Value := index1;
  ZQuery1.ParamByName('pK').Value := key1;
  ZQuery1.ParamByName('pC').Value :=DateTimeToStr(now);
  ZQuery1.ExecSQL;
end;

Pour la syntaxe de la clause UPDATE, il faut sûrement plutôt
UPDATE table SET a=1, b=2 WHERE k=key1
ou
UPDATE table SET a=1 WHERE k=key1 and n=name1 (aux parenthèses près)

[SergioMaster]

De plus que le SQL est incorrect dans sa clause where!!

Code :

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

1
2
3
4
 
ZQuery1.SQL.Add('UPDATE tblSystems');
ZQuery1.SQL.Add('SET KEY= :key1');
ZQuery1.SQL.Add('WHERE Name = :System1 AND ProviderID = :provider1 AND KeyIndex = :index1');

[SergioMaster]

De plus que le SQL est incorrect dans sa clause where!!

Code :

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

1
2
3
4
 
ZQuery1.SQL.Add('UPDATE tblSystems');
ZQuery1.SQL.Add('SET KEY= :key1');
ZQuery1.SQL.Add('WHERE Name = :System1 AND ProviderID = :provider1 AND KeyIndex = :index1');

je me cite , et puisqu'il faut mâcher le travail avant le execsql il ne faut pas oublier

Code :

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

1
2
3
4
ZQuery1.paramByName('Key1').asxxxx :=Key1
ZQuery1.paramByName('System1').asxxxx :=System1
ZQuery1.paramByName('Provider1').asxxxx :=Key1
ZQuery1.paramByName('KeyIndex').asxxxx :=index1

plutôt que d'utiliser des .Value , il vaut mieux mettre le type d'où mes asxxxx
dans le code je crois voir qu'il s'agit uniquement de AsString;

il y a encore une erreur dans le locate

Code :

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

1
2
if Ztable2.locate('Name;ProviderID;KeyIndex;key',VarArrayOf([System1,provider1,index1,key1]),[])

[Night_Wolf1619]

@SergioMaster

Merci j' ai corrigé exactement comme tu le dit il n y a plus d'erreur maintenant

mais il ne met ajour aucun enregistrement ,j'ai mis des arrêt pour voir si il exécute les requête oui il les exécutée ,,peut être que le problème et dans les composants zeolib ?

[GoustiFruit]

Si tu es toujours avec SQLite, au lieu de faire un...

Code :

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

1
2
3
4
5
6
if Ztable2.locate ... then begin
  // SQL UPDATE
end
else begin
 // SQL INSERT
end;

...tu peux simplifier avec un UPDATE suivi d'un INSERT du genre (je n'ai pas analysé tes requêtes en profondeur, il faut sûrement adapter un peu):

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
 
// Fais la mise à jour uniquement si l'enregistrement existe dans la BDD:
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('UPDATE tblSystems');
ZQuery1.SQL.Add('SET KEY= :key1');
ZQuery1.SQL.Add('WHERE Name = :System1 AND ProviderID = :provider1 AND KeyIndex = :index1');
ZQuery1.paramByName('Key1').AsString := Key1
ZQuery1.paramByName('System1').AsString := System1
ZQuery1.paramByName('Provider1').AsString := Key1
ZQuery1.paramByName('KeyIndex').AsString := index1
ZQuery1.ExecSql;
 
// Fais une insertion uniquement si l'enregistrement n'existe pas dans la BDD
ZQuery1.SQL.Text:='INSERT INTO tblSystems(NAME,PROVIDERID,KEYINDEX,KEY,COMMENTS) VALUES (:pN,:pP,:pKI,:pK,:pC)';
ZQuery1.SQL.Add('WHERE NOT EXISTS (');
ZQuery1.SQL.Add(' SELECT 1 FROM tblSystems');
ZQuery1.SQL.Add('  WHERE Name = :pN1 AND ProviderID = :pP1 AND KeyIndex = :pKI1 AND key = :pK1');
ZQuery1.SQL.Add(')');
ZQuery1.paramByName('pN').AsString := ...
ZQuery1.paramByName('pP').AsString := ...
ZQuery1.paramByName('pKI').AsString := ...
ZQuery1.paramByName('pK').AsString := ...
ZQuery1.paramByName('pN1').AsString := ...
ZQuery1.paramByName('pP'1).AsString := ...
ZQuery1.paramByName('pKI1').AsString := ...
ZQuery1.paramByName('pK1').AsString := ...
ZQuery1.ExecSQL;

[Night_Wolf1619]

j'ai modifier comme ça et j'ai toujours la même erreur

Code :

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

1
2
3
4
5
6
7
8
9
if Ztable2.locate('Name;ProviderID;KeyIndex,key',VarArrayOf([System1,provider1,index1,key1]),[])
then if Ztable2.FieldByName('Name').Value <> key1
then
begin
ZQuery1.close;
ZQuery1.sql.clear;
ZQuery1.SQL.Add('UPDATE tblSystems SET KEY= :QuotedStr(key1)WHERE Name = :QuotedStr(System1) , ProviderID = :QuotedStr(provider1) , KeyIndex = :QuotedStr(index1)');
ZQuery1.ExecSQL;
end;

[Rayek]

Avant de continuer je te conseil quand même de lire la section

Débuter avec le SQL

Puis de lire les tutos sur Delphi et les bases de donnes pour voir le fonctionnement des paramètres ou de chercher sur le forum, il y a une foule d'exemple (Paramètres que tu utilises dans la partie Insert de ton code)

[GoustiFruit]

Code :

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

ZQuery1.SQL.Add('UPDATE tblSystems SET KEY= :QuotedStr(key1)WHERE Name = :QuotedStr(System1) , ProviderID = :QuotedStr(provider1) , KeyIndex = :QuotedStr(index1)');

Faut pas mettre de code Delphi dans les requêtes-mêmes !