Accès à une base SQLite et affichage

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
j'essaie de mettre en pratique un exemple de lecture d'une bdd selon le wiki http://wiki.freepascal.org/SQLdb_Tutorial1/fr#SQLite_2
ma base de donnée est
Pièce jointe 190636
et dans les propriétés de DBconnection DatabaseName j'ai bien copié le lien qui correspond.

Quand je compile tout se passe bien
mais rien ne s'affiche dans le grid quand je clique sur le button1
voila le code que j'ai créé :

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
 
unit mabaseunit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, sqlite3conn, sqldb, db, FileUtil, Forms, Controls,
  Graphics, Dialogs, StdCtrls, DBGrids;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBConnection: TSQLite3Connection;
    SQLQuery1: TSQLQuery;
    SQLTransaction1: TSQLTransaction;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SQLQuery1.Close;
  SQLQuery1.SQL.Text:= 'select * from ESSAI;';
  DBConnection.Connected:= True;
  SQLTransaction1.Active:= True;
  SQLQuery1.Open;
end;
 
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  SQLQuery1.Close;
  SQLTransaction1.Active:= False;
  DBConnection.Connected:= False;
end;
 
 
end.

Merci de vos conseils

Bien cordialement

20/10/2015, 22h45
jurassic pork

hello,
le mieux serait que tu nous mettes en pièce jointe ( si cela est possible et pas indiscret) les sources de ton projet. C'est à dire la base sqlite3, les fichiers .lpi,.lpr,.pas,.lfm,.res.
Parce que si ça se joue sur les propriétés qui ont été éditées dans les composants, cela sera plus évident à trouver.

Ami calmant, J.P
21/10/2015, 19h36
joreveur

1 pièce(s) jointe(s)

Bonjour,
non rien à cacher :)
en pj les fichiers demandés
cordialement,
21/10/2015, 21h17
acaumes

Bonjour,

J'ai juste rajouté datasource1 à la propriété datasource de ta dbgrid pour voir les données.

Cordialement
21/10/2015, 21h24
BeanzMaster

Salut je viens de regarder ton fichier essailazarus.sqlite avec l'utilitaire DataDesktop c'est bizarre rien ne s'affiche. Et effectivement avec datasource du DBGrid définit ca affiche mais (MEMO) dans les Champs NOM et PRENOM je suppose que ce n'etait pas ce que tu avais enegistré
21/10/2015, 21h39
tourlourou

Ça s'ouvre bien avec l'extension SQLite Manager de Firefox, affiche le schéma 3 (le fichier débute d'ailleurs par la chaîne "SQLite Format 3"). En outre, les champs s'affichent bien...
22/10/2015, 08h56
joreveur

1 pièce(s) jointe(s)
Bonjour
1) oui j'avais oublié de mettre "datasource1 à la propriété datasource de ta dbgrid" merci :)

2) oui ça affiche (MEMO) quand je laisse le champ au format TEXT (comme NOM dans l'exemple)

3) J'ai changé TEXT par VAR pour le prénom (mais l'outil Db browser for Sqlite ne semble pas proposer pas ce format, je l'ai fait directement via SQL)
Code:

1 2 3 4 5 6 CREATE TABLE `ESSAI3` ( `ID` INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT UNIQUE, `NOM` TEXT, `AGE` INTEGER, `PRENOM` CHAR );
les integers passent bien et voila ce que ça donne :

Pièce jointe 190755

Il n'y a pas d'option dans Lazarus pour lire les TEXT sans retoucher la table ?

Bien à vous
22/10/2015, 10h05
BeanzMaster

Bonjour,

TEXT est une donnée de type "BLOB" comme les images si tu associes cette donnée à un TDBMemo tu pourras l'éditer. Pour le visualiser dans un DBGrid tu dois surcharger la fonction OnDrawColumnCell en tout cas sous Delphi
http://stackoverflow.com/questions/1...n-dbgrid-title
La manip pour le mémo est quasi identique.

A+
22/10/2015, 10h07
tourlourou

Le typage des champs dans SQLite est particulier. Son interprétation par les connecteurs de BDD dépend pê des habitudes avec d'autres SGDD, puisque TEXT semble interprété comme MEMO alors que CHAR ou VARCHAR semblent l'être comme tels, alors qu'ils représentent le même type de champ pour SQLite...

Je ne sais pas comment les connecteurs récupèrent ce type. Mais SQLite fournit dans son API une interface pour récupérer le type SQLite ( sqlite3_column_type() ), et une autre pour récupérer celui déclaré lors du CREATE ( sqlite3_column_decltype() ).

Il est donc possible qu'il suffise d'utiliser une déclaration "classique" lors du CREATE pour obtenir le type de champ voulu par un connecteur, quitte à se passer des managers qui utilisent les types propres internes de SQLite.

[EDIT] Tu dois aussi pouvoir changer dans le fichier BD les 'TEXT' en 'CHAR' dans les chaînes des CREATE qui servent à SQLite pour décrire les schémas des tables.
22/10/2015, 17h06
joreveur

Bonjour, et merci à tous pour votre aide, et les infos utiles que vous avez apportées.
Je vais continuer à avancer sur l’utilisation de base de données dans le cadre de Lazarus.

Bien cordialement