Discussion :

[OR34a]

Bonjour,

Je tente par code d'ajouter un enregistrement à une table nommée Infosvue d'une base SQLITE3 (Base1.db3) dans un programme Lazarus ( version 1.4.2. sous W7). Les données que je souhaite ajouter sont dans un tableau unidimensionnel (valtab [1], valtab[2] valtab [3]). Les colonnes de la table qui a pour nom InfosVUe ont pour en-tête de champ les noms Archiv, Nom1, Prenom1
nota : une autre partie du programme qui elle, fonctionne bien, me permet d'actualiser les valeurs associées aux variables du tableau et qui sont toutes des Strings.
Pour cela je construit la variable RequetAjout suivante :

Code :

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

RqtAjoutAB :=  'Insert Into  Infosvue ( Archiv,  Nom1, Prenom1 ) Values ( quotedStr(Valtab[1]), quotedStr(Valtab[2]), quotedStr(valtab[3]) )' ;

et je modifie la valeur du SQL d'un ZQQuery par :

Code :

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

1
2
3
4
5
6
ZC_Cree1.Connected := False ;
         ZC_Cree1.Database := DnomBaseA ;
         ZC_Cree1.Connected := True ;
         ZQ_Cree1.SQL.Clear ; // Mise à zéro de la chaine SQL
         ZQ_Cree1.SQL.Text :=  RqtAjoutAB ;
         ZQ_Cree1.ExecSQL ;

où ZC_Cree1 et ZQ_Cree1 sont les composants Zeos associés à la base de nom complet DnomBaseA.

Ce code me renvoie une erreur SQL à l’exécution et pourtant toutes les variables existent bien.
Cela fait plusieurs heures que je tente de résoudre le problème sans succès.
D'autre part, est-il utile, prudent, nécessaire (?) de fermer l'accès à la table par un

Code :

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

ZQ_Cree1.Close ;

une fois l'ajout effectué

[OR34a]

J'avais oublié la fin de mon message pour cette nouvelle discussion.

Merci d'avance pour vos réponses éclairées, en cette période de vacances.

Cordialement

R.O.

[tintinux]

Bonjour,

Sauf erreur quotedStr est une fonction de Lazarus, pas de Sql(Lite)
Il faut donc écrire plutôt :

Code :

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

RqtAjoutAB :=  'Insert Into  Infosvue ( Archiv,  Nom1, Prenom1 ) Values ( '+ quotedStr(Valtab[1])+ ',' + quotedStr(Valtab[2])+ ',' + quotedStr(valtab[3])+ ' )' ;

[OR34a]

Bonjour à tous,
Merci à Tintinux pour sa réponse
En fait la solution se trouvait dans une discussion un peu plus bas dans la discussion initiée par ALT pour MySQL. et l'erreur venait de la rédaction de la requête comme le note Tintinux et un code correct est :

Code :

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

RqtAjoutAB :=  'Insert Into  Infosvue ( Archiv,  Nom1, Prenom1 ) Values ( '+ quotedStr(Valtab[1]) +',' + quotedStr(Valtab[2]) +',' +quotedStr(valtab[3])+' )' ;

Par contre je suis toujours preneur de la façon de terminer proprement la gestion des tables pour éviter une corruption éventuelle lorsque les opérations pour lesquelles on les sollicite sont terminées :
ZQQuery. Close ?? ou toute autre instruction adéquate.

Merci

Cordialement

R.P.

[anapurna]

salut

pour ma part j'utilise la fonction format pour construire mes requette

Code :

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

1
2
3
4
5
RqtAjoutAB := Format('Insert Into  Infosvue ( Archiv,  Nom1, Prenom1 ) Values ( %s, %s ,%s ) ',
 [ quotedStr(Valtab[1])
 , quotedStr(Valtab[2])
 , quotedStr(valtab[3]) ]
) ;

je trouve cela plus clair

[tintinux]

D'autre part, est-il utile, prudent, nécessaire (?) de fermer l'accès à la table par un

Code :

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

ZQ_Cree1.Close ;

une fois l'ajout effectué

Je ne pense pas que fermer la requête ait un quelconque effet.
On peut essayer de fermer complètement la connexion, donc la "base", en espérant que le fichier soit complètement écrit sur disque.

Personnellement j'ai rencontré fréquemment des pertes de données ou d'intégrité avec SQL Lite, sur des applications variées, dont certaines assez largement diffusées.
Elles sont généralement provoquées par des arrêts brutaux de la machine, même ne survenant pas pendant des écritures en base.
La raison est que Sql Lite n'est pas un SGBD serveur, et qu'il ne peut pas gérer l'intégrité aussi bien qu'un vrai serveur où ça n'arrive jamais.

L'installation de MariaDb (ou MySql) sur un poste n'est pas du tout compliquée ni consommatrice et évite tous ces soucis, pour moi c'est la bonne solution.

PS : il faut mieux éviter de poser 2 questions sans rapport dans le même fil.

[e-ric]

Salut

Plusieurs choses:
- je préfère l'emploi de paramètres plutôt que de valeurs passées directement dans le code de la requête, je pense que c'est plus sûr.
- le Close ne sert pas à grand chose dans une requête de mise à jour puisqu'aucun ensemble de données n'a été retourné (comme avec SELECT)
- enfin un petit COMMIT après la mise à jour de tes données serait certainement le bienvenu (en employant les méthodes StartTransaction et Commit de TZConnection et Rollback en cas d'erreur).

Ce qui pourrait donner le code suivant:

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
 
  ZC_Cree1.Connected := False ;
  ZC_Cree1.Database := DnomBaseA ;
  ZC_Cree1.Connected := True ;
  //ZQ_Cree1.SQL.Clear ; // inutile, l'instruction ci-dessous remplace le précédent texte
  ZQ_Cree1.SQL.Text :=  'Insert Into  Infosvue ( Archiv,  Nom1, Prenom1 ) Values ( :Archiv,  :Nom1, :Prenom1 ) ';
  ZQ_Cree1.Connection.StartTransaction;
  try
    ParamByName('Archiv').AsString := Valtab[1];
    ParamByName('Nom1').AsString := Valtab[2];
    ParamByName('Prenom1').AsString := Valtab[3];
    ZQ_Cree1.ExecSQL;
    ZQ_Cree1.Connection.Commit;
  except
    on e: Exception do
    begin
      e.Message  := e.Message + 'Insertion annulée.';
      ZQ_Cree1.Connection.Rollback;
      raise e;
    end;
  end;

Il est vrai que le code est alors un peu plus long...

A vérifier, ça fait un petit bout de temps que je n'ai pas codé en base de données.

Cdlt

[OR34a]

Bonjour à tous et merci pour vos réponses très utiles.
C'est vrai, j'avais posé deux questions dans la même dicussion et vous prie de m'en excuser.
Je considère le problème résolu et le signale comme tel.
Cordialement

R.O.