Discussion :

[Charly910]

Bonjour,

j'ai voulu m'inspirer de ce tutoriel pour ma première base SqLite :

Tutoriel SqLite

J'ai suivi le tuto, je me connecte bien, mais à l’exécution de la requête j'ai un message d'erreur : Exception TDBXError no such table : Employee

pourtant dans le chemin d'accès de connexion j'ai bien le fichier Employees.s3db ?

A+
Charly

[acaumes]

Bonjour,

As tu une table Employee dans la base de données Employees.s3db ?

Le message laisse penser que non.

Cordialement

[Charly910]

Bonjour et merci pour ta réponse,

je ne sais pas, c'est un exemple fourni par embarcadero. Je pense avoir suivi exactement l'exemple donné sur le lien.

Comment ouvrir cette table ?

Voici mon code :

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
unit Main;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DbxSqlite, Data.FMTBcd, Data.DB,
  Data.SqlExpr, Vcl.StdCtrls;
 
type
  TF_Main = class(TForm)
    ExecuteButton: TButton;
    ConnectButton: TButton;
    SQLConnection1: TSQLConnection;
    OutputMemo: TMemo;
    SQLQuery1: TSQLQuery;
    Label1: TLabel;
    procedure ConnectButtonClick(Sender: TObject);
    procedure ExecuteButtonClick(Sender: TObject);
    procedure ShowSelectResults();
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  F_Main: TF_Main;
 
implementation
 
{$R *.dfm}
 
procedure TF_Main.ConnectButtonClick(Sender: TObject);
begin
  SQLConnection1.Params.Add('C:\Users\Public\Documents\Embarcadero\Studio\19.0\Samples\Data');
  try
    // Establish the connection.
    SQLConnection1.Connected := true;
    executeButton.Enabled := true;
    outputMemo.Text := 'Connection established!';
  except
    on E: EDatabaseError do
      ShowMessage('Exception raised with message' + E.Message);
  end;
 
end;
 
procedure TF_Main.ExecuteButtonClick(Sender: TObject);
var
  query: String;
begin
  outputMemo.ClearSelection;
  // A random query
  query := 'SELECT * FROM Employee;';
  try
  // Assign the query to the object SQLQuery1.
    SQLQuery1.SQL.Text := query;
    SQLQuery1.Active := true;
  except
    on E: Exception do
      outputMemo.Text := 'Exception raised with message: ' + E.Message;
  end;
  // Show the results of the query in a TMemo control.
  ShowSelectResults();
end;
 
procedure TF_Main.ShowSelectResults();
var
  names: TStringList;
  i: Integer;
  currentField: TField;
  currentLine: string;
begin
  if not SQLQuery1.IsEmpty then
  begin
    SQLQuery1.First;
    names := TStringList.Create;
    try
      SQLQuery1.GetFieldNames(names);
      while not SQLQuery1.Eof do
      begin
        currentLine := '';
        for i := 0 to names.Count - 1 do
        begin
          currentField := SQLQuery1.FieldByName(names[i]);
          currentLine := currentLine + ' ' + currentField.AsString;
        end;
        outputMemo.Lines.Add(currentLine);
        SQLQuery1.Next;
      end;
    finally
      names.Free;
    end;
  end;
end;
 
end.

Ce que je trouve bizarre, c'est qu'il n'y a pas Employees.s3db dans le code, il n'y a que le Path. Faut il le mettre dans les propriété des controls DBX ?

A+
Charly

[Galet]

Bonjour,

En étude sur les bases de données, j'ai fais le même test (Delphi Tokyo)...et le même constat.
Tu trouveras une requête dans le code, qui interroge la table Employes. cette requête est en échec si la table n'est pas trouvée.

J'ai aussi recherché le meilleur outil pour créer une nouvelle base SqLite. DBBrowser semble fonctionner. Le gestionnaire de données de Delphi ne fonctionne pas parfaitement (Après recherche, confirmation sur Developpez), à cause des limitation de SqLite.
J'ai trouvé de nombreux tuto mais pas encore une solution complète...(

)
Firedac ou pas...

Je recherche encore la meilleure solution pour la gestion d'une petite BD en local
A suivre,

[Charly910]

J'ai installé DBBrowser. La base Employees.s3db contient bien la table Employee (avec ID, Name, Departement et Seniority)

Je ne comprends pas pourquoi cela ne fonctionne pas.

A+
Charly

[acaumes]

(Re)Bonjour

Ce que dit le tutoriel que tu cites

Code :

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

SQLConnection1.Params.Add('Database=full_path_to_your_database_file');

Ce que tu écris

Code :

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

SQLConnection1.Params.Add('C:\Users\Public\Documents\Embarcadero\Studio\19.0\Samples\Data');

Ce que j'aurais écrit

Code :

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

SQLConnection1.Params.Add('Database=C:\Utilisateurs\Public\Documents\Embarcadero\Studio\19.0\Samples\Data\Employees.s3db');

Attention cependant au chemin d'accès (C:\Utilisateurs\Public\Documents\Embarcadero\Studio\19.0\Samples\Data) qui peut varier selon la variable d'environnement PUBLIC

Cordialement

[Charly910]

Oui, tu as raison. J'ai vérifié le chemin et mis :

Code :

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

SQLConnection1.Params.Add('Database=C:\Users\Public\Documents\Embarcadero\Studio\19.0\Samples\Data\Employees.s3db');

la connexion est Ok, mais l'exécution de la requête donne une exception EExternelException : Exception externe C06D00F7 ?

A+
Charly

[tourlourou]

Ça n'a pê rien à voir, mais je me rappelle (même environnement ?) avoir eu des problèmes avec un IsEmpty erroné...

[Charly910]

Bonjour Tourlourou,

c'est quoi un IsEmpty (pour le moment c'est mon cerveau qui est vide

[SergioMaster]

Bonjour,

ma question serait "pourquoi DBExpress plutôt que Firedac ?"
A mon avis, le tutoriel de la doc est resté figé sur la version XE3

Je dois avouer que, n'aimant pas DBExpress, je n'ai testé DBExpress avec SQLite ! La vidéo d'Alister Christie fourni par Galet ne me donne vraiment pas envie de tester (ai-je bien vu 5 composants, sans parler de l'obligation de déclarer les champs etc.) là où avec Firedac un FDConnexion, FDTable et un Datasource suffisent ?

Seul avantage du DBBrowser la création de la base et de la table au moment du design. Passant directement par un GUI dédié (SQLite studio) je n'ai jamais eu besoin de créer des tables comme ça, à la volée c'est une nouveauté pour moi ! Je n'ai jamais testé donc ce genre de fonctionnalité

NB tu as la même connexion à la base de données exemple avec les connecteurs firedac

[tourlourou]

Code :

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

if not SQLQuery1.IsEmpty then

J'ai un vieux souvenir de valeur erronée ; du coup, ça pourrait adresser un résultat vide, d'où EAV. Mais c'était pê sur un autre objet, et dans un autre environnement...

[Charly910]

Merci SergioMaster,

j'ai fait un autre exemple avec FireDac et la base Customers.db. Cela fonctionne bien et j'affiche les données dans un DBGrid.

Je vais donc continuer à apprendre avec FireDac.

Petite question subsidiaire : FireDac et Firebird c'est la même chose ?

A+
Charly

PS : dans le tuto que j'ai utilisé il y a :
- un qlite_democonnection
- un customersTable
- un DataSetProvider
- un ClientDataSet
- et un DataSource

c'est différent de tes 3 controls ?

[SergioMaster]

Je vais donc continuer à apprendre avec FireDac.

de mon point de vue un bon choix, très BDE like et propose de nombreuses fonctionnalités intéressantes

PS : dans le tuto que j'ai utilisé il y a :
- un qlite_democonnection
- un customersTable
- un DataSetProvider
- un ClientDataSet
- et un DataSource

c'est différent de tes 3 controls ?

je t'ai indiqué que un FDConnection, un FDTable et un DataSource suffisent, cela étant dès que tu veux avancer un peu, un FDQuery+un FDUpdateSQL c'est mieux que un FDTable

[Charly910]

Merci je vais déjà essayer au plus simple

A+
Charly