Discussion :

[joreveur]

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

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 :

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
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

[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

[joreveur]

Bonjour,
non rien à cacher
en pj les fichiers demandés
cordialement,

[acaumes]

Bonjour,

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

Cordialement

[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é

[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...

[joreveur]

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 :

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

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 :



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

Bien à vous

[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.

[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

[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+