Exception "No such Table : Table_Name" - delphi

Question

My code raises an exception:
No such Table : Table_Name
I spent a whole day trying to resolve it but had no success so far.
I used SQLite3.exe to create the database, create the table person and insert the data. When I query the content of table person it shows me the positive result.
Unfortunately, when I use this code to show the table content the exception is raised.
This is the code:
procedure TForm1.connectButtonClick(Sender: TObject);
begin
// Set the path of your database file.
// Replace "full_path_to_your_database_file" with the absolute path
// to your SQLite database file.
SQLConnection1.Params.Add('Database=D:\testdb.db');
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 TForm1.executeButtonClick(Sender: TObject);
var
results: TDataSet;
query: String;
begin
outputMemo.Clear;
// A random query
query := 'SELECT * FROM person;';
try
// Execute the query on the database.
SQLConnection1.Execute(query, nil, results);
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(results);
end;
procedure TForm3.ShowSelectResults(results: TDataSet);
var
names: TStringList;
i: Integer;
currentField: TField;
currentLine: string;
begin
if not results.IsEmpty then
begin
results.First;
names := TStringList.Create;
results.GetFieldNames(names);
while not results.Eof do
begin
currentLine := '';
for i := 0 to names.Count - 1 do
begin
currentField := results.FieldByName(names[i]);
currentLine := currentLine + ' ' + currentField.AsString;
end;
outputMemo.Lines.Add(currentLine);
results.Next;
end;
end;
end;

Answer 1

Either your database and/or table is corrupt or there is a mistake in some part of your code which is executing but you are not showing us.
The following code, which creates and populates a new table, runs perfectly on Delphi Seattle and produces the expected result, namely one data row in outputMemo.
I suggest you close & restart Delphi and close any other app which might be using the same Sqlite3.Dll as DB does, before trying it.
(I have moved outputMemo and ShowSelectResults to Form1)
procedure TForm1.executeButtonClick(Sender: TObject);
var
results: TDataSet;
query: String;
begin
outputMemo.Clear;
query := 'CREATE TABLE TESTTABLE (ID BIGINT, NAME NVARCHAR(80) )';
SQLConnection1.Execute(query, nil, Nil);
query := 'INSERT INTO TESTTABLE(ID, NAME) VALUES(1, ''One'')';
SQLConnection1.Execute(query, nil, Nil);
query := 'SELECT * FROM TESTTABLE';
try
// Execute the query on the database.
SQLConnection1.Execute(query, nil, results);
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(results);
query := 'DROP TABLE TESTTABLE';
SQLConnection1.Execute(query, nil, Nil);
end;
procedure TForm1.ShowSelectResults(results: TDataSet);
var
names: TStringList;
i: Integer;
currentField: TField;
currentLine: string;
begin
if not results.IsEmpty then
begin
results.First;
names := TStringList.Create;
try
results.GetFieldNames(names);
while not results.Eof do
begin
currentLine := '';
for i := 0 to names.Count - 1 do
begin
currentField := results.FieldByName(names[i]);
currentLine := currentLine + ' ' + currentField.AsString;
end;
outputMemo.Lines.Add(currentLine);
results.Next;
end;
finally
names.Free;
end;
end;
end;