Débuts avec SQLite et Zeos ; comment créer une table ?

**Night_Wolf1619** · 23/03/2013, 13h01

on ma conseillé le Sqlite mais j’ai du mal a trouver des tutoriel pour expliqué comment l'utilisé avec delphi 7

**tourlourou** · 23/03/2013, 14h33

Regarde la Zeos Lib, peut-être

**Night_Wolf1619** · 07/04/2013, 20h02

je rame toujours avec le Sqlite y a pas un tuto ou un exemple comment l’utilisé avec le delphi 7 juste les info de base
- installé le Sqlite avec delphi
- crée une base sqlite
- l'ajout
- suppression
- modification
- recherche
??

**e-ric** · 19/04/2013, 14h38

Salut

Plutôt que SQLLite, utilise Firebird, autant faire les choses en grand. Même pour une application monoposte, ça reste pertinent grâce à la version Embedded du serveur pour laquelle serveur et client sont ensemble en local.

ZeosLIB fonctionne bien avec FB.

SQLLite a l'avantage d'être "léger" (pléonasme) car le moteur est embarqué dans l'exécutable mais je ne l'ai jamais mis en oeuvre.

Avec des BLOB Texte tu pourras charger un fichier texte dans un seul champ, petit veinard.

Paradox a le défaut d'être un peu gourmand en ressource (nombre de fichiers à ouvrir simultanément, d'être obsolète (et encore cela se discute) et surtout de ne pas se comporter toujours très bien en réseau surtout s'il y a de nombreux utilisateurs.

**Night_Wolf1619** · 12/10/2013, 21h35

j'ai enfin pu réaliser le traitement avec les composant Zeolib +Sqlite3

pour l'ajout nouveau enregistrement

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
procedure TForm1.Button3Click(Sender: TObject);
begin
  // Si aucun enregistrement
  if DbGrid1.Datasource.Dataset.RecordCount = 0 then
    Exit;
  // Si aucun sélectionné
  if DbGrid1.Datasource.Dataset.RecNo < 0 then
    Exit;
  // ajouter un nouveau enrejestrement
  begin
    // Passer en mode édition
    DBGrid1.Datasource.Dataset.Append;
    // ajouter les données
    DBGrid1.Datasource.Dataset.FieldByName('Name').AsString := form1.Edit3.Text;
    DBGrid1.Datasource.Dataset.FieldByName('ProviderID').AsString := form1.Edit4.Text;
    DBGrid1.Datasource.Dataset.FieldByName('KeyIndex').AsString := form1.Edit5.Text;
    DBGrid1.Datasource.Dataset.FieldByName('Key').AsString := form1.Edit6.Text;
    DBGrid1.Datasource.Dataset.FieldByName('Comments').AsString := DateTimeToStr(now);
    // Valider
    DBGrid1.Datasource.Dataset.Post;
 end;
end;

Maitre ajour ou Modification

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
procedure TForm1.Button2Click(Sender: TObject);
begin
  // Si aucun enregistrement
  if DbGrid1.Datasource.Dataset.RecordCount = 0 then
    Exit;
  // Si aucun sélectionné
  if DbGrid1.Datasource.Dataset.RecNo < 0 then
    Exit;
  // Mettre à jour
  begin
    // Passer en mode édition
    DBGrid1.Datasource.Dataset.Edit;
    // Modifier les données
    DBGrid1.Datasource.Dataset.FieldByName('Name').AsString := form1.Edit3.Text;
    DBGrid1.Datasource.Dataset.FieldByName('ProviderID').AsString := form1.Edit4.Text;
    DBGrid1.Datasource.Dataset.FieldByName('KeyIndex').AsString := form1.Edit5.Text;
    DBGrid1.Datasource.Dataset.FieldByName('Key').AsString := form1.Edit6.Text;
    DBGrid1.Datasource.Dataset.FieldByName('Comments').AsString := DateTimeToStr(now);
    // Valider la modification
    DBGrid1.Datasource.Dataset.Post;
 end;
end;

Suppression

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Si aucun enregistrement
  if DbGrid1.Datasource.Dataset.RecordCount = 0 then
    Exit;
  // Si il y a un enregistrement courant
  if DbGrid1.Datasource.Dataset.RecNo >= 0 then
    if MessageDlg('Voulez vous vraiment supprimer cet enregistrement ?',
                       MtConfirmation, MbOkCancel, 0) = mrOk then
      DbGrid1.Datasource.DataSet.Delete;
end;

Recherche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Edit2Change(Sender: TObject);
begin
  // Arrête le filtrage de la table
  form1.ZTable1.Filtered:=false;
  // Test si il n'y a rien dans le TEdit
  if Trim(Edit1.Text) <> '' then
  begin
    // Construction du Filtre avec le texte saisi dans la zone TEdit
    form1.ZTable1.Filter := 'ProviderID like ' + QuotedStr(Edit2.Text + '*');
    // Activation du filtre
    form1.ZTable1.Filtered := true;
  end;
end;

le problème qu il me reste que j'arrive pas a résoudre c'est la création de la base si elle n'existe pas ?
comment on crée une base Sqlite3 ?

**tourlourou** · 12/10/2013, 22h19

SQLite crée la base (le fichier) quand on s'y connecte s'il n'existait pas. Je suppose que le TZConnection.Connect devrait le faire.

**Night_Wolf1619** · 12/10/2013, 22h40

Envoyé par tourlourou

SQLite crée la base (le fichier) quand on s'y connecte s'il n'existait pas. Je suppose que le TZConnection.Connect devrait le faire.

oui il le fait mais il ne crée pas les champs que je veut

**tourlourou** · 13/10/2013, 10h53

Il suffit d'un ExecuteDirect( 'CREATE TABLE IF NOT EXISTS matable (id INTEGER...)' );

**Night_Wolf1619** · 13/10/2013, 14h34

j'ai fait comme suit

Code sql :

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

CREATE TABLE IF NOT EXISTS Mytable ([id] INTEGER  PRIMARY KEY NOT NULL,[Name] TEXT  NOT NULL,[ProviderID] TEXT  NOT NULL,[KeyIndex] TEXT  NOT NULL,[Key] TEXT  NOT NULL,[Comments] TEXT  NULL)

ça ne marche pas y a des erreurs je ne sais pas exactement ou ?

**tourlourou** · 13/10/2013, 19h00

Tu as ici : SQL As Understood By SQLite qui est une aide précieuse pour la syntaxe des requêtes sous SQLite. J'écrirais donc plutôt (non testé) :

Code sql :

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

CREATE TABLE IF NOT EXISTS Mytable (id INTEGER PRIMARY KEY, Name TEXT NOT NULL, ProviderID TEXT NOT NULL, KeyIndex TEXT NOT NULL, Key TEXT NOT NULL, Comments TEXT );

**Night_Wolf1619** · 13/10/2013, 19h20

Envoyé par tourlourou

Tu as ici : SQL As Understood By SQLite qui est une aide précieuse pour la syntaxe des requêtes sous SQLite. J'écrirais donc plutôt (non testé) :

Code sql :

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

CREATE TABLE IF NOT EXISTS Mytable (id INTEGER PRIMARY KEY, Name TEXT NOT NULL, ProviderID TEXT NOT NULL, KeyIndex TEXT NOT NULL, Key TEXT NOT NULL, Comments TEXT );

Merci
mais j'ai toujours l'erreur de pas assez de paramétré ?

**Night_Wolf1619** · 14/10/2013, 13h15

je n'ai plu d'erreur avec ce code

Code :

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

ZQuery1.SQL.add('CREATE TABLE Table (id INTEGER  PRIMARY KEY NOT NULL,Name TEXT  NOT NULL,ProviderID TEXT  NOT NULL,KeyIndex TEXT  NOT NULL,Key TEXT  NOT NULL,Comments TEXT  NULL)');

mais il ne crée aucune table ??

**tourlourou** · 14/10/2013, 14h07

Est-il judicieux d'utiliser des noms réservés comme identificateurs ?
CREATE TABLE table ou KEY TEXT NOT NULL

**tourlourou** · 14/10/2013, 14h11

Tu as ici un exemple pour Lazarus, dont tu pourras pê t'inspirer.

**Night_Wolf1619** · 15/10/2013, 20h16

je viens de crée un projet test pour voir le problème exactement

forme + ZConnection + ZTable + ZQuery + Button

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
Var Nombase : string ;
begin
  Nombase :=  'C:\test.db' ;
 With form1.ZConnection1 do
 Begin
  Database :=   Nombase  ;
ZQuery1.SQL.Text:='CREATE TABLE IF NOT EXISTS test (id INTEGER  PRIMARY KEY NOT NULL,Name TEXT  NOT NULL,ProviderID TEXT  NOT NULL,KeyIndex TEXT  NOT NULL,Key TEXT  NOT NULL,Comments TEXT  NULL)';
ZQuery1.execSql;
 End;
end;