Copie d'une table mySQL vers une table SQLite : optimisation de code

Bonjour,

Avec FireDac, je copie une table mySQL lue à partir d'une chaîne de connexion mySQLConn->mySQLQuery posée sur la Form vers une base SQLite3:memory: définie par SQLiteModule->SQLiteConn ->SQLiteQuery (donc utilisant un DataModule). J'ai eu un petit peu de mal à gérer les NULL mais sinon l'ensemble est fonctionnel.

Le code utilisé actuellement est le suivant.

Code:

---

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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65

with mySQLQuery do try with SQL do begin Clear; Add('SELECT elID, elCODE, elINSEE, elNOM, elPRENOM, elTEL,'); Add('elADRESSE, elCP, elVILLE, elCONTRAT, elPERMIS, elDATEPERMIS,'); Add('elDATEANCIENNETE, elMEMO, xxACTIF, xxPOSTE, xxUSER, xxSTAMP'); Add('FROM mysqlELV;'); end; Open; if not isEmpty then begin First; while not(EOF) do begin inc(nGauge); sbGauge.Progress := nGauge; //---Enr .[Déb] with SQLiteModule.SQLiteQuery do try Close; with SQL do begin Clear; Add('INSERT INTO lisqlELV ('); Add('elID, elCODE, elINSEE, elNOM, elPRENOM, elTEL, elADRESSE, elCP,'); Add('elVILLE, elCONTRAT, elPERMIS, elDATEPERMIS, elDATEANCIENNETE, elMEMO,'); Add('xxACTIF, xxPOSTE, xxUSER, xxSTAMP'); Add(') VALUES ('); Add(':paID, :paCODE, :paINSEE, :paNOM, :paPRENOM, :paTEL, :paADRESSE,'); Add(':paCP, :paVILLE, :paCONTRAT, :paPERMIS, :paDATEPERMIS, :paDATEANCIENNETE,'); Add(':paMEMO, :paACTIF, :paPOSTE, :paUSER, :paSTAMP'); Add(');'); end; with Params do begin ParamByName('paID').AsString := mySQLQuery.Fields[0].AsString; ParamByName('paCODE').AsString := mySQLQuery.Fields[1].AsString; ParamByName('paINSEE').AsString := mySQLQuery.Fields[2].AsString; ParamByName('paNOM').AsString := mySQLQuery.Fields[3].AsString; ParamByName('paPRENOM').AsString := mySQLQuery.Fields[4].AsString; ParamByName('paTEL').AsString := mySQLQuery.Fields[5].AsString; ParamByName('paADRESSE').AsString := mySQLQuery.Fields[6].AsString; ParamByName('paCP').AsString := mySQLQuery.Fields[7].AsString; ParamByName('paVILLE').AsString := mySQLQuery.Fields[8].AsString; ParamByName('paCONTRAT').AsString := mySQLQuery.Fields[9].AsString; ParamByName('paPERMIS').AsString := mySQLQuery.Fields[10].AsString; ParamByName('paDATEPERMIS').AsString := mySQLQuery.Fields[11].AsString; ParamByName('paDATEANCIENNETE').AsString := mySQLQuery.Fields[12].AsString; ParamByName('paMEMO').AsString := mySQLQuery.Fields[13].AsString; ParamByName('paACTIF').AsBoolean := mySQLQuery.Fields[14].AsBoolean; ParamByName('paPOSTE').AsString := mySQLQuery.Fields[15].AsString; ParamByName('paUSER').AsString := mySQLQuery.Fields[16].AsString; ParamByName('paSTAMP').AsString := mySQLQuery.Fields[17].AsString; end; ExecSQL; Close; except on E: EFDDBEngineException do ShowMessage(E.Errors[0].Message); end; //---Enr .[Fin] Next; end; end; Close; if mySQLConn.Connected then mySQLConn.Connected := False; except on E: EFDDBEngineException do ShowMessage(E.Errors[0].Message); end;

---

J'espère que la méthode est appropriée. Ce n'est pas la plus rapide. J'aurais pu imaginer par exemple, une lecture de la table mySQL directement dans une TStringGrid, puis le transfert de la TStringGrid directement dans la table SQLite3 éventuellement en insérant toutes les lignes à la fois.
Je n'ai pas retenu cette option

• parce qu'il m'est difficile (impossible lors de la requète d'insertion multi-tuples) de faire progresser correctement une jauge (pour l'ergonomie)
• et surtout parce que j'utilise des blobs images qui contiennent pratiquement toujours des caractères NULL disséminés dans les chaînes. Or je suppose que comme en Lazarus, les cellules des TStringGrids ne contiennent que des champs de type C (qui tronquent les chaînes à la rencontre du premier caractère NULL). Je n'ai pas vérifié en Delphi, mais en Lazarus, j'ai travaillé longtemps là-dessus pour conserver la persistance des images dans une TStringGrid.

Donc j'ai décidé de parcourir ma table mySQL avec un SQLquery.Open et d'insérer les enregistrements lus dans la base SQLite3 un par un avec un SQLQuery.ExecSQL. Je pense que la méthode est classique.

J'aimerais toutefois résoudre quelques petits problèmes "basés" sur ce code.

Premièrement après l'Open:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

with mySQLQuery do try [...] Open; if isEmpty then begin Close; Exit; end; First; [...] except   end;

---

Peut-on casser l'Open comme cela ? Je pense que oui... mais je n'ai pas osé non pas à cause du Close... je pense qu'il n'y a pas de problème à ce niveau-là mais à cause du try engagé... On peut quitter une exception par un Exit ? Hum...

Deuxièmement (anecdotique) :

Code:

---

1 2	with SQLiteQuery do Close;

---

Je me demandais s'il était possible de savoir s'il n'était pas "close" ? Idiot de fermer quelque chose qu'il l'est déjà...
Donc if <? (pas close)?> then Close;

Troisièmement :

Code:

---

1 2 3 4

except on E: EFDDBEngineException do ShowMessage(E.Errors[0].Message); end;

---

Très pratique quand on est en production [Run]... Mais en exploitation, pour l'utilisateur final, je voudrais plutôt un

Code:

---

1 2 3 4

MessageDlg( 'La base interne est indisponible. ' + 'Le programme va s''arrêter.', TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0); Application.Terminate;

---

Peut-on différencier les 2 cas ?

Merci.

Pour les deux premiers points, je ne connais pas FireDac.
Pour le troisièment: les directives de compilation

Code:

---

1 2 3 4 5 6 7 8 9

on E: EFDDBEngineException do begin {$IFDEF DEBUG} ShowMessage(E.Errors[0].Message);{$ELSE} MessageDlg( 'La base interne est indisponible. ' + 'Le programme va s''arrêter.', TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0); Application.Terminate;{$ENDIF} end;

---

Adopté. Merci.

Bonjour Gilles, en vacances ?

pour Firedac, il n'y aurait pas maintenant un FDBatchmove ? (n'existe pas en XE4) qui te permettrait de faire cela beaucoup plus vite ;)
http://docwiki.embarcadero.com/CodeE...tchMove_Sample

es-tu obligé de faire une copie physique de la table ou une table en mémoire (TFDMemTable) ferait t-elle l'affaire ?

Bonjour Serge,

Oui physiquement jusqu'à lundi inclus :mouarf:
Non intellectuellement, mais FireDac c'est nouveau pour moi... J'en suis encore à comprendre "If so, then restart ADExplorer"... Je ne savais même pas ce que c'était que le ADExplorer. Pas cela sous Lazarus... Donc là j'ai défini ma connexion dans le FireDac Explorer pour pouvoir travailler sur ma dbGrid... et je regarde ton "truc" !
Merci.

nos posts se sont croisés durant ma modification, interruption due à un coup de téléphone, donc je fais un petit UP (pas taper les modos)

Vu... mais c'est sensationnel ce "truc"... et les possibilités sont nombreuses. Je me contenterai des requêtes pour rester au plus proche de ce que je connais... Mais pfffff !
Cela a l'air simple à mettre en oeuvre, à priori... Mais la doc sur FireDac ? Avant de commencer à râler, j'ai déjà trouvé cela http://www.embarcadero.com/fr/produc...studio/firedac (comme d'hab)... Mais les classes et les méthodes disponibles pour qu'un néophyte sur la question comme moi puisse en quelques instants s'apercevoir que cela existe et comment le mettre en oeuvre, c'est où ? Parce que d'après ce que je lis, cela pourrait simplifier mon code à plein d'endroits... Le progress est intégré... et la détection d'erreur aussi semble-t-il.

Sur ce que j'en sais , c'est inspiré de l'excellent Tbatchmove de la palette BDE , donc déjà cela donne des pistes de recherche .
j'ai également compris qu'il y avait un exemple de code .

Désolé j'étais plongé dans ma lecture. Je suis arrivé avec 1 heure de retard chez des amateurs de C... Il faut de tout pour faire un monde... mais comme le dit l'interlocuteur dans le fil de sa discussion : "j'ai l'impression d'être dans une autre planète" :aie:

Dans ma lecture, je cherchais comment on déclarait un index sur un TFBQuery... Par tâtonnements plus que par documentation :

Code:

---

1 2 3 4 5

mySQLQuery.AddIndex('col0_asc','elID','trim(elid)',[soNoCase]); mySQLQuery.AddIndex('col0_desc','elID','trim(elID)',[soNoCase, soDescending]); mySQLQuery.AddIndex('col1_asc','elCODE','trim(elCODE)',[soNoCase]); mySQLQuery.AddIndex('col1_desc','elCODE','trim(elCODE)',[soNoCase, soDescending]); //[ixDescending] end;

---

Certainement évident, mais cela fait longtemps... Le retour est difficile... Et compte tenu de cette possibilité, j'envisage de virer tous mes indexes de tables qui ne sont pas des clés primaires, uniques ou étrangères.

Bonjour,

je ne connaissais pas cette histoire d'index sur les querys , j'ai donc passé un petit 1/4 d'heure pour faire un essai

environnement Firebird + XE4 FMX

j'ai d'abord posé tous mes composants

Code:

---

1 2 3 4 5 6

StringGrid1: TStringGrid; ADQuery1: TADQuery; ADConnection1: TADConnection; ADGUIxWaitCursor1: TADGUIxWaitCursor; ADPhysIBDriverLink1: TADPhysIBDriverLink;

---

puis lié la Grid à la Query
j'ai ensuite créé des indexs à la query en les ajoutant via l'IDE , la table n'ayant que 2 champs j'ai donc fait (selon ton shéma) 4 index
CODEASC,CODEDESC,LIBELLEASC,LIBELLEDESC
Quelques radiobuttons pour faire les test de changement d'index

et un code selon chaque radiobuttons (j'aurais certainement pu simplifier)

Code:

---

if (Sender as TRadioButton).IsChecked then ADQuery1.IndexName:=<l'index selon le bouton>;

---

là , chou blanc , royal planton du style objet inconnu

le seul truc qui a fonctionné (ici le code en ordre descendant) je me suis inspiré de ceci

Code:

---

1 2 3 4 5 6

procedure TForm4.CodeDescChange(Sender: TObject); begin ADQuery1.active:=false; if (Sender as TRadioButton).IsChecked then ADQuery1.IndexFieldNames:='CODE_APPOSE:D'; ADQuery1.active:=true; end;

---

Questionnements :
Est-ce que le SGBD à de l'importance ?
Quelle différence avec une query avec la clause ORDER BY ?
Peut-être est-ce pour un SQLLocal

parlant du SQL local ne serait-ce pas une solution à exploiter dans ton contexte (le truc qui s'installerait sans dll de plus ? à vérifier)

Bonjour,

Alors je reviens à la question initiale. Pour la sortie du try par un exit je ne sais toujours pas. Il faut un maître des arcanes : Paul, ShaileTroll ?

Pour le close du SQLQuery, je suppose que l'on peut procéder ainsi.

Code:

---

1 2	with aSQLQuery do if Active then Close;

---

Pour le FDBBatchMove, comme pressenti cela fait fort...
Je copie la structure (uniquement) d'une table mySQL hébergée aELV dans une autre table mySQL bELV.
Sur la Form, je pose 3 objets en plus de mes chaînes de connexions pour les 2 tables : FDBatchMove1, FDBatchMoveDatasetReader1 et FDBatchMoveDataSetWriter1.
Le reste se réduit à quelques lignes de codes :

Code:

---

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 30 31 32 33 34 35

{Les 2 requêtes sont affectées aux 2 queries  !! Pour les 2, il faut une requête de lecture : un SELECT y compris pour la cible, ici mySQLQueryB} with mySQLQueryA do begin if Active then Close; with SQL do begin Clear; Add('SELECT elID, elCODE, elINSEE, elNOM, elPRENOM, elTEL,'); Add('elADRESSE, elCP, elVILLE, elCONTRAT, elPERMIS, elDATEPERMIS,'); Add('elDATEANCIENNETE, elMEMO, xxACTIF, xxPOSTE, xxUSER, xxSTAMP'); Add('FROM aELV;'); end; end;   with mySQLQueryB do begin if Active then Close; with SQL do begin Clear; Add('SELECT elID, elCODE, elINSEE, elNOM, elPRENOM, elTEL,'); Add('elADRESSE, elCP, elVILLE, elCONTRAT, elPERMIS, elDATEPERMIS,'); Add('elDATEANCIENNETE, elMEMO, xxACTIF, xxPOSTE, xxUSER, xxSTAMP'); Add('FROM bELV;'); end; end;   //Affectation de la source et de la cible au BatchMove with FDBatchMoveDataSetReader1 do DataSet := mySQLQueryA   with FDBatchMoveDataSetWriter1 do DataSet := mySQLQueryB;     //Execution du BatchMove with FDBatchMove1 do Execute;

---

Pour suivre la progression

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TfLogin.FDBatchMove1Progress(ASender: TObject; APhase: TFDBatchMovePhase); begin if APhase in [psStarting] then with sbGauge do begin MinValue := 0; MaxValue := FDBatchMoveDataSetReader1.DataSet.RecordCount; {Nombre de lignes transférées} Progress := 0; if MaxValue > 0 then if not Visible then Visible := True else if Visible then Visible := False; Refresh; end;   if APhase in [psProgress, psFinishing] then begin sbGauge.Progress := FDBatchMove1.InsertCount; end; end;

---

Comme je disposais au départ de 43 enregistrements dans la la table aELV, j'ai modifié le StatisTicInterval à 10 (au lieu de 100) sinon le rafraîchissement du ProgressBar ne se fait pas... puisque tous les 100. L'ensemble est très rapide aussi bien à paramétrer qu'à l'exécution. Il existe un traitement onError. Maintenant, je cherche un moyen efficace de chaîner les BatchMoves de toutes les tables pour obtenir un ProgressBar global. Il y a déjà une solution simple. Un SELECT COUNT(*) sur les tables sources. Et on incrémente une variable cumulée pour le ProgressBar. Vraiment sensationnel, sauf la doc. Il a fallu que j'ouvre un .dfm - je n'en ai trouvé qu'un sur le net- pour découvrir que la requête cible était un SELECT. Sinon j'ai découvert plein de possibilités avec les tables dont je ne sais pas me servir. Cela doit faire rigoler Serge.

PS :
Initialement j'ai réussi le move de ma base mySQL hébergée vers ma base SQLite3:memory:... Mais visiblement, après modifications, j'ai un problème avec les NULL dans les BlobText enfin les TEXT de SQLite... Déjà rencontré. Je ne me souviens plus comment j'ai réglé le problème.
Serge, je vais être obligé de quitter le SQLite :memory: le temps de voir avec une table en dur... Je pourrai alors gérer les indexes comme je le fais avec mySQL et te transmettre pour test. Je ne sais pas si c'est une impression mais dans l'ordre de prédilection, j'utilise pgSQL 8-) et mySQL :D et tous les souvenirs que j'ai de SQLite sont euh... "compliqués" :(.

Citation:

---

Envoyé par selzig

Alors je reviens à la question initiale. Pour la sortie du try par un exit je ne sais toujours pas. Il faut un maître des arcanes : Paul, ShaileTroll ?
Pour le close du SQLQuery, je suppose que l'on peut procéder ainsi.

Code:

---

1 2	with aSQLQuery do if Active then Close;

---

---

si tu allais regarder le code du Close ;-)

Code:

---

1 2 3 4

procedure TDataSet.Close; begin Active := False; end;

---

donc aSQLQuery.Active:=False tout simplement suffit

Citation:

---

Envoyé par selzig

Cela doit faire rigoler Serge.

---

exact :ptdr:

Citation:

---

Envoyé par selzig

Mais visiblement, après modifications, j'ai un problème avec les NULL dans les BlobText en fin les TEXT de SQLite...

---

ben un blobtest , par définition ça termine par un NULL (comme un chaine caractère) , un Blob Binary par contre ...

Bonjour Serge,

Citation:

---

Envoyé par SergioMaster

si tu allais regarder le code du Close ;-)
ben un blobtest , par définition ça termine par un NULL (comme un chaine caractère) , un Blob Binary par contre ...

---

J'ai déjà du mal à trouver les éléments de doc, je ne vois pas où je prendrais le temps pour aller regarder les sources. Elles sont où d'ailleurs ? Remarque que dans tout le fatras qu'a installé Delphi, on peut supposer que quelque part, il y a des sources... Mais je croyais qu'on n'en disposait plus depuis la belle époque.

Pour le NULL, la déclaration a aussi une fonction d'obligation de remplissage ou non, et également une gestion particulière au niveau des clés. J'ai l'impression, presque la certitude, que mySQL et SQLite ne traitent pas le problème de la même façon au niveau de l'obligation de remplissage. D'un autre côté, j'ai du mal à faire remonter certaines erreurs de SQLite au niveau des exceptions, mais c'était pareil en Lazarus... Je regarderai cela demain. Il faut que je retrouve mon utilitaire pour lire les bases SQLite. Il y a l'add-on Mozilla, mais j'ai (j'avais) un exe qui faisait cela très bien. Si cela me casse les pieds, je regarderai "tes tables-mémoire".

Bonjour,

Citation:

---

Envoyé par selzig

je ne vois pas où je prendrais le temps pour aller regarder les sources. Elles sont où d'ailleurs ? Remarque que dans tout le fatras qu'a installé Delphi, on peut supposer que quelque part, il y a des sources...

---

"Démarrer", "Tous les Programmes", "Embarcadero RAD Studio XE7", "Exemples" .... ;)

Et ensuite une fois qu'il ouvre le répertoire : "Object Pascal", "Database", "FireDAC"

Citation:

---

Envoyé par selzig

Il faut que je retrouve mon utilitaire pour lire les bases SQLite.

---

L'explorateur de données est là pour ça, et fonctionne sur tous les types de bases de données supportés par FireDAC.

Bonjour,

Citation:

---

J'ai déjà du mal à trouver les éléments de doc, je ne vois pas où je prendrais le temps pour aller regarder les sources.

---

je ne parlais même pas des sources des fichiers exemples , mais bien des sources "vcl" . Un simple clic et on y est (maintenant , la version éducation ne les fourni peut être pas :koi:)

Citation:

---

"Démarrer", "Tous les Programmes", "Embarcadero RAD Studio XE7", "Exemples" ....
Et ensuite une fois qu'il ouvre le répertoire : "Object Pascal", "Database", "FireDAC"

---

ça , c'est depuis que firedac est vraiment inclus dans XE

lors de sa 'parution' Firedac s'installait à part , n'ayant qu'XE4 je trouve mon bonheur ici (doc et exemples)

Citation:

---

C:\Program Files (x86)\Embarcadero\FireDAC

---

et sur le site de anydac
bien sur faut pas être allergique à l'anglais :roll:

Citation:

---

Peut-être est-ce pour un SQLLocal
parlant du SQL local ne serait-ce pas une solution à exploiter dans ton contexte (le truc qui s'installerait sans dll de plus ? à vérifier)

---

je reviens dessus , je n'avais pas fait attention mais :
- tu copies vers du SQLite
et

Citation:

---

La fonctionnalité SQL local .... est basée sur la base de données SQLite et supporte une grande partie du dialecte SQL de SQLite.

---

il faudrait alors voir en déploiement ce qui est demandé (je passe la main)

Bonjour,

j'ai bien fait de ne pas conclure la discussion.

J'ai rencontré plusieurs problèmes avec le BatchMove...

Un premier que je ne comprenais pas, vu que le transfert entre une table mySQL et une table SQLite3:memory: avait fonctionné puis ne fonctionnait plus. Et parallèlement, j'ai essayé entre-temps avec le code défaillant, mySQL->mySQL (OK), mySQL->SQLite3 base en dur 'OK'...

Problème : un SELECT COUNT(*) sur la table en mémoire me renvoyait 0 alors qu'une tentative de REmove m'envoyait une erreur sur la Primary Key m'indiquant que la table n'était pas vide. J'ai suspecté un problème de commit... et j'ai alors testé sur des tables en dur. Non, là n'était pas le problème. Finalement, j'ai remonté l'histoirique de mes codes (j'ai branché mon mercurial sur mes projets indépendamment de Delphi comme je le faisais pour Lazarus. )

Code:

---

1 2 3 4

with FDBatchMoveDataSetWriter1 do begin Optimise := False; {Indispensable sur une table SQLite:memory:} DataSet := SQLiteModule.SQLiteQuery; end;

---

C'est le Optimise := False; que j'avais introduit au départ puis enlevé ensuite. Normalement c'est lié à une histoire de dbGrid et dans le cas précis, je n'en ai pas. Je passe directement d'une base à l'autre. Pour des tables en dur, on peut s'en passer.

Alors ensuite j'ai un problème de WideMemo à l'affichage dans les dbGrids
Si je construis ma table SQLite ainsi :

Code:

---

1 2 3 4 5 6

Add('CREATE TABLE `sqliteELV`'); Add('('); Add('`elID` CHAR( 20 ) ,'); Add('`elCODE` VARCHAR( 6 ),'); Add('`elINSEE` VARCHAR( 50 ),'); [...]

---

la dbGrid reliée ensuite au SQLiteQuery affiche les données correctement.
Mais CHAR, VARCHAR en SQLite c'est simplement du TEXT...
Alors j'ai essayé

Code:

---

1 2 3 4 5 6

Add('CREATE TABLE `sqliteELV`'); Add('('); Add('`elID` TEXT,'); Add('`elCODE` TEXT,'); Add('`elINSEE` TEXT,'); [...]

---

Ma dbGrid m'affiche alors dans toutes les cellules un (WIDEMEMO)... mais j'ai le bon nombre de lignes :weird:

Je savais bien que cela allait se compliquer. Il semble que ShailLeTroll ait proposé une solution : http://www.developpez.net/forums/d14...lite-widememo/... J'ai testé sur un BLOBTEXT de mySQL vers un TEXT de SQLite. Comme d'habitude la proposition de ShailLeTroll fonctionne sans problème. Mais je ne la retiens que pour les BLOBTEXT initiaux pas pour les VARCHAR.
Et j'ai trouvé d'autres messages à ce sujet : https://groups.google.com/forum/#!to...er/xVamJUpXASM.

Je vais donc garder mes déclarations VARCHAR au lieu de TEXT dans mes tables SQLite (et mes BOOLEAN aussi qui posent un problème de conversion également) ... qui ne sont visiblement pas équivalentes quoi qu'en disent plein d'articles très sérieux... et quoi que propose la plupart des éditeurs de tables SQLite. Il est vrai que dans les TEXT, on place aussi bien des VARCHAR que des BLOBTEXT. Ceci doit expliquer cela.

http://www.selzig.com/1411011200/1.png
Ici DB Browser for SQLite (5 types de champs sont proposés)

Citation:

---

Envoyé par Thierry Laborde

L'explorateur de données est là pour ça, et fonctionne sur tous les types de bases de données supportés par FireDAC.

---

Bonjour,

J'ai essayé mais ce n'était pas vraiment mon souci premier. J'ai une erreur à l'ouverture des tables. J'ai installé la sqlite3.dll au même endroit qu'une libmysql.dll (C:\Program Files (x86)\Embarcadero\Studio\15.0\bin). Ma connection définition "mysqlDistant" fonctionne parfaitement bien sur mes tables distantes...

http://www.selzig.com/1411011200/2.png

Mais tout ce qui est en SQLite3 génère l'erreur suivante.

http://www.selzig.com/1411011200/3.png

J'ai la même erreur avec SQLite_Demo.
Et merci pour les autres infos.

Bonjour,
Au passage, la version 3.8.7 de SQLite (2014-10-17) a amélioré la fonction CAST avec la limitation que

Citation:

---

To cast a BLOB value to TEXT, the sequence of bytes that make up the BLOB is interpreted as text encoded using the database encoding.

---

Mais les essais de Gilles n'ont pê pas été satisfaisants, même avec cette version de la bibliothèque ?

Bonjour Yves,

Je dispose sous Win32 d'une 3.8.6 du 15/08/2014.
Comme je veux affiner la question et celui des indexes, je télécharge la 3.8.7 et je fais un petit projet avec.
Merci.

Pour Serge,

Bonjour,

Voici le petit programme pour la gestion des indexes directement sur les dbGrids (i.e. sans modifier les requêtes d'affichage).
La base SQLite se crée automatiquement (le répertoire, le fichier.db vide et les enregistrements).
Elle est en VCL avec les drivers SQLite 3.8.7 Win32 et Win64 (fournis dans le zip - par défaut 32). Téléchargement : ici.

Quelques remarques
La base est en VARCHAR

• la gestion des accents est correcte au niveau du tri (voir les prénoms)
• la gestion des NOMS est un tri par NOM et PRENOM (voir le code)

PS

• Fonctionne en mode debug même si la base est déjà créée. Mais pas en release car dans ce cas là :
  
  Code:

  ---

  1 2 3 4 5 6 7 8 9 10 11 12

  except {$IFDEF DEBUG} on E: EFDDBEngineException do Showmessage(E.Errors[0].Message); {$ELSE} Close; MessageDlg( 'Création des tables internes impossible. ' + 'Le programme va s''arrêter.', TMsgDlgType.mtError, [TMsgDlgBtn.mbOK], 0); Application.Terminate; {$ENDIF} end;

  ---

• A tester -> Sur une grande base, comment cela-fonctionne-t-il ? Impact ou non de l'utilisation de la propriété CachedUpdate signalée par Thierry Laborde dans une autre discussion.
• En ToDo List -> Comment fait-on cela en FireMonkey (la flèche incrustée dans l'entête indiquant le sens de la colonne triée) ? Avec les styles ? J'ai fait l'équivalent en Lazarus avec un champ de recherche également intégré dans l'entête... Mais sans rapport aucun avec FMX :mrgreen: On étudiera cela aux prochaines vacances.
  http://www.selzig.com/1411011200/4.png

Bonjour Gilles (et les autres lecteurs)

j'ai donc repris ton code avec les seules autres contraintes ma base existante (Firebird) et FMX (suite à ton TODO)

Constations : j'ai réussi a utiliser les index , après m'être heurté au message 'object not found' pendant quelques temps , j'ai fin par trouver que qu'il fallait mettre les indexs actif :scarymov: méa culpa , méa maxima culpa . Avec une table que je connais bien (pratique car petite et uniquement varchar)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

with Adquery1 do begin Active:=true; // avant ou après la définition des indexs ? Indexes.Clear; AddIndex('col0_asc','CODE_APPOSE','CODE_APPOSE',[soNoCase]); AddIndex('col0_desc','CODE_APPOSE','CODE_APPOSE',[soNoCase, soDescending]); AddIndex('col1_asc','LIBELLE_APPOSE','LIBELLE_APPOSE',[soNoCase]); AddIndex('col1_desc','LIBELLE_APPOSE','LIBELLE_APPOSE',[soNoCase, soDescending]); IndexesActive:=true; // c'est ça qu'il me manquait !!! end;

---

nonobstant (j'adore ce mot) il n'en reste pas moins que lors d'un changement d'index je suis toujours obligé de faire un rafraichissement du dataset (soit un close/open)
ayant gardé mon radiogroup , cela donne :

Code:

---

1 2 3 4 5 6

procedure TForm4.CheckBox1Change(Sender: TObject); begin ADQuery1.active:=false; if (Sender as TRadioButton).IsChecked then ADQuery1.IndexName:='col0_asc'; ADQuery1.Active:=True; end;

---

du coup , interrogation, n'est-ce point pareil au changement du SQL de la Query (avec la clause Order by) ?
Pour y répondre il faudrait que je fasse un monitoring de la Base (bref pousser davantage les choses mais le temps est le facteur ennemi , une mauvaise analyse de besoin ou plutôt un oubli utilisateur me donne un surcroit de boulot cette semaine :furieux: commence mal) . Faire le monitoring sur une grosse base (et j'en ai une de la vie réelle , locale ou "déportée") répondrai également au questionnement sur le CacheUpdate .

passons à quelques remarques sur ton code

Code:

---

1 2 3 4 5 6 7

{Connexion à la base} with ConnHD do begin if Connected then Connected := false; with Params do begin Values['Database'] := gBaseName; end; end;

---

pour moi le "if Connected" est inutile , et je vais également chipoter ;) sur 2 IncludetrailingPathDelimiter inutiles

Code:

---

1 2 3 4 5 6 7 8 9 10

{Présence du driver sqlite3.dll} gExeDriver := ExtractFilePath(Application.ExeName); gExeDriver := IncludeTrailingPathDelimiter(gExeDriver) + 'sqlite3.dll'; //<< ICI ... {Création du fichier de la base à la volée} gBaseExists := False; gExeDataBase := ExtractFilePath(Application.ExeName); gExeDataBase := IncludeTrailingPathDelimiter(gExeDataBase) + 'DataBase'; //<< ET LÀ gBaseName := IncludeTrailingPathDelimiter(gExeDataBase) + 'AppBase.db';

---

Passons au TODO , là je ne sais pas , lors de mes essais l'excellente TMSFMXGrid me soulageant de ça j'ai laissé de côté (au passage comme c'était des essais j'ai effacé ces tests et du coup :mur: il me faudra les reprendre)

Je m'arrête , la suite au prochain Week End , entre 2 phases de rédaction de tutoriel(s)

Serge

Citation:

---

Envoyé par selzig

Il faut que je retrouve mon utilitaire pour lire les bases SQLite. Il y a l'add-on Mozilla, mais j'ai (j'avais) un exe qui faisait cela très bien

---

Bonjour,

Sinon il y a sqlite expert avec une édition personnel qui est gratuite.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

try [...] Open; if isEmpty then begin Close; Exit; end; First; [...] except   end;

---

Je ne comprend pas pourquoi toujours chercher des choses compliquées, source de bugs.

Pourquoi ne pas écrire quelque chose de simple, fiable, robuste :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

try Open(); while not eof do begin if isEmpty then break; Next(); end; finally Close(); end;

---

De plus si tu commences à coder par rapport à une gauge c'est mort!
La gauge n'est pas un élément essentiel, après selon les besoins je peux comprendre que ça aie son utilité, notamment pour le ressenti de l'utilisateur, mais pour des requêtes SQL un peu longues tu peux mettre une roue, quelque chose de pas figé...
Si tu choisis de faire 100 000 requêtes SQL au lieu d'une juste pour mettre une gauge la je pense que tu es dans l'erreur!
Cela dépend des applications mais pour un transfert de base, j'ai du mal à croire que ca soit vital.