Discussion :

[ulysse_31]

Bonjour,

Dans mon programme, j'interroge ma base de données avec des requêtes de type SELECT. Jusque là tout va bien.

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
  // Initialisation de la base de données
  IHM_FenetrePrincipale.IHM_DbSqliteConnection.DatabaseName:= DB_FileName;
  IHM_FenetrePrincipale.IHM_DbSqliteConnection.Connected := True;
  IHM_FenetrePrincipale.IHM_DbSqliteQuery.SQL.Clear;
  // Requete sql pour obtenir tous les Noms
  IHM_FenetrePrincipale.IHM_DbSqliteQuery.SQL.Add('SELECT DISTINCT "Nom" FROM table ORDER BY "Nom" ASC');
  IHM_FenetrePrincipale.IHM_DbSqliteQuery.ExecSQL;
  IHM_FenetrePrincipale.IHM_DbSqliteQuery.Active:= true;
 
  // Ajout des noms dans le chklistbox
  while not IHM_FenetrePrincipale.IHM_DbSqliteQuery.EOF do
  begin
    IHM_FenetrePrincipale.IHM_ChklistboxNom.Items.Add(IHM_FenetrePrincipale.IHM_DbSqliteQuery.FieldByName('Nom').AsString);
    IHM_FenetrePrincipale.IHM_DbSqliteQuery.Next;
  end;
 
  // Fermeture de la base de données
  IHM_FenetrePrincipale.IHM_DbSqliteQuery.Close;
  IHM_FenetrePrincipale.IHM_DbSqliteConnection.Close;

Par contre, lorsque j'essaie de faire une requête de type DELETE, là je coince.
Je n'ai pas de message d'erreur et aucun enregistrement n'est effacé.
La requête que j'envoie fonctionne très bien avec SQLITEMAN

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
          req := req + '"' + tag_checked[i] + '"';
          // Initialisation de la base de données pour requete
          IHM_FenetrePrincipale.IHM_DbSqliteConnection.DatabaseName:= DB_FileName;
          IHM_FenetrePrincipale.IHM_DbSqliteConnection.Connected := True;
          IHM_FenetrePrincipale.IHM_DbSqliteQuery.SQL.Clear;
          // Execution de la requete
          IHM_FenetrePrincipale.IHM_DbSqliteQuery.SQL.Add(req);
          IHM_FenetrePrincipale.IHM_DbSqliteQuery.Prepare;
          ShowMessage(req);
          IHM_FenetrePrincipale.IHM_DbSqliteQuery.ExecSQL;
          // Fermeture de la base de données
          IHM_FenetrePrincipale.IHM_DbSqliteQuery.Close;
          IHM_FenetrePrincipale.IHM_DbSqliteConnection.Close;

[droggo]

Koa,

Vu ton code, ta requête est dans le brouillard :

Comment veux-tu qu'on sache ce qui résulte de

Code :

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

req := req + '"' + tag_checked[i] + '"';

[ulysse_31]

Comment veux-tu qu'on sache ce qui résulte de

Code :

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

req := req + '"' + tag_checked[i] + '"';

La requête que j'envoie fonctionne très bien avec SQLITEMAN
Oups, la requete que j'envoie ressemble à ceci :

Code sql :

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

DELETE FROM "tag" WHERE "Tag_name"="tintin"

[alanglet]

Bonsoir,

Si "tintin" est une chaîne de caractères, ne devrait-il pas être encadré que de simples cotes. (doublées dans le texte en Pascal=>+'''' et non +'"')

André

[ulysse_31]

En mode SELECT je passe ma requête avec les guillemets (")
Cela fonctionne impeccable. C'est pourquoi je me disait qu'en mode DELETE je pouvais aussi utiliser les guillemets.

J'ai quand même essayé ma requête DELETE les simples quotes comme vous me l'avez conseillé ; cela ne change rien.

Je ne sais pas si mon problème provient de ma requête DELETE (qui fonctionne quand je la passe en manuel dans SQLITEMAN) ou si j'ai oublié une instruction quelconque avant et/ou après EXECSQL.

NB : Lorsque je passe la requête DELETE avec les simples quotes dans SQLITEMAN, il me retourne REQUÊTE OK sans pour autant supprimer l'enregistrement. Et avec les guillemets, REQUETE OK avec la suppression de l'enregistrement.

Par désespoir, je regarde du coté des transactions.
Je suis complètement bloqué

[mtournay]

Bonjour

Lorsque j'ai commencé a faire du dev SQL avec lazarus, je rajoutais moi aussi les double quote à la main, et très souvent mes requêtes n’aboutissaient pas.

C'est alors que la lumière m'est apparue dans un exemple avec la fonction QuotedStr() qui te retourne la chaine entourée de simple quote pour formater tes requêtes correctement :

Code :

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

req := req + QuotedStr(tag_checked[i]);

Ce qui au final donnerait

Code :

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

DELETE FROM tag WHERE tag_name='tintin'

sans les double quote autour des champs et nom de table

bon courage

[michel_Vbg]

Bonjour,

Le code ci-joint fonctionne chez moi sans problème.

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
 
procedure TForm1.EffaceEnregistrement (NomTable : String ; ValCle : integer ) ;
Var
SQLQ_Tmp : TZQuery ;
begin
   SQLQ_Tmp := TZQuery.Create(self);
   try
   SQLQ_Tmp.connection := ZConnection1 ;
 
   SQLQ_Tmp.SQL.Clear;
   SQLQ_Tmp.SQL.add('delete from ' + NomTable + ' where num = ' + IntToStr(ValCle )) ;
   SQLQ_Tmp.ExecSQL;
   finally
   SQLQ_Tmp.Free;
   end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 
   // carnet est le nom de la table SQLite, 5 est la valeur de la clé de l'enregistrement à supprimer
   EffaceEnregistrement ('carnet' , 5 );
   ZTable1.Active:= false;
   ZTable1.Active := true ; // rafaichissement de l'affichage
 
end;

J'ai lu dans le fil que ta base n'est pas indexée, ce genre de blocage, j'ai déjà eu et cela m'avait couté quelques heures de travail.
Essaye en créant une clé primaire.

[Jazz77]

Bonjour

je cite le Lazarus Database Tutorial

par Luiz Américo

Aller sur la page d'accueil sqlite pour plus d'information .
Introduction

TSqliteDataset et TSqlite3Dataset sont des descendants de TDataset qui accède , respectivement , aux bases de données sqlite version 2.8.x et 3.2.x. Ci-dessous une liste des principaux avantages et inconvénients :

Avantages :

Flexible : les programmeurs peuvent choisir d'employer ou de ne pas employer la langue de SQL , leur permettant de travailler avec les dispositions simples de table ou n'importe quelle disposition complexe que SQL/sqlite permet
Mise à jour automatique de la base de données : aucun besoin de mettre à jour manuellement la base de données avec des instructions SQL, une méthode simple s'occupe de ça
Rapide : il cache les données en mémoire, rendant la navigation dans le jeux de données rapide
Aucune installation/configuration de serveur : just ship together with sqlite dynamic library

Pour l'instant les "Pro" des SGBD (je pense surtout à Philippe), je n'ai pas vu une ligne de code sécurisé dans vos exemples (mise à part l'exemple n°3 de code de Sergio)

Qu'est ce vous faites en cas d'accès concurrent ? sur un problème d'un simple DELETE ? apportez vos lumières......

Je n'ai pas vu une seule ligne de code concernant cela ?

Éclairez ma lanterne, Je ne demande qu'a voir la lumière et la lire le code des "Pro" (surtout Philippe)

Jazz

[Ph. B.]

Pour l'instant les "Pro" des SGBD (je pense surtout à Philippe), je n'ai pas vu une ligne de code sécurisé dans vos exemples (mise à part l'exemple n°3 de code de Sergio)

Si vous n'avez pas compris qu'il est préférable d'envoyer une seule requête "DELETE ..." à un SGBD plutôt qu'ouvrir une table côté application, charger toutes ses lignes en mémoire (double emploi avec ce que fait Sqlite entre autres), les parcourir puis supprimer celles qui correspondront à vos critères (ce qui génère une commande supplémentaire auprès du SGBD), cela montre que vous ne connaissez pas le fonctionnement d'un SGBD et va à l'encontre de ce que vos propos antérieurs.

J'ai toujours entendu qu'il fallait éviter de complexifier du code inutilement et qu'il faut faire simple quand cela est préférable.

Qu'est ce vous faites en cas d'accès concurrent ? sur un problème d'un simple DELETE ? apportez vos lumières......

C'est là qu'interviennent les transactions et leur niveau d'isolation (du plus faible "lecture sale" ou "dirty-read" au plus élevé "sérialisé") et ce que vous faites dans les traitements transactionnés.

Je n'ai pas vu une seule ligne de code concernant cela ?

Regardez mieux...

Éclairez ma lanterne, Je ne demande qu'a voir la lumière et la lire le code des "Pro" (surtout Philippe)

Encore faudrait-il que vous compreniez les bases du sujet...

[Jazz77]

Encore faudrait-il que vous compreniez les bases du sujet...

En gros Philippe ...... vous venez sur le forum, vous sortez votre pseudo savoir pour casser les autres ......

Cependant j'ai trouvé le fil de la discussion très intéressante .
Je n'avais peut être pas vu comme l'a souligné Sergio les utilisations possibles des bases locales sur tous les angles en cas de multiple session utilisateurs.

Je vais essayer de me documenter sur la bonne utilisation des SGBD.

Mais tant de code pour un simple delete, cela m'ennuie un peu quand même si c'est la seule solution.

Jazz