Помогите С Fdquery

[Сергей]

Создаю Таблицу NewTable('Organization'):
procedure ConnectionSQL(Connection: TFDConnection; AFileName: string);
begin
With Connection do
begin
Connected:=false;
ConnectionName:='SQLiteConnection';
DriverName:='Sqlite';
LoginPrompt:=false;
Params.Clear;
Params.Values['Database']:=AFileName;
Params.Values['DriverID'] := 'SQLite';
Params.Values['FailIfMissing']:='False'; // При отсутствии базы - автосоздание ее
Connected:=true;
end;
end;

procedure TFormMain.NewTable(TabNamed : string);
var ConnectionType : TFDConnection;
QueryType : TFDQuery;
begin
ConnectionType := FDConnection1;
QueryType := FDQuery1;
//Подключение базы
ConnectionSQL(ConnectionType, DrivePath + 'Base.db');
with QueryType do
begin
Connection:=ConnectionType;
SQL.Clear; // Очистка от предыдущих запросов
SQL.Add('CREATE TABLE if not exists '+Trim(TabNamed)+' (id INTEGER PRIMARY KEY AUTOINCREMENT, Named VarChar(300), IdPro integer)'); // Создание таблицы в случае ее отсутствия
ExecSQL; // Выполнение запроса

SQL.Clear; // Очистка от предыдущих запросов
SQL.Add('SELECT * FROM '+Trim(TabNamed)); // Запрос на открытие таблицы
Open; // Открытие таблицы
Close;
end;
end;

Пытаюсь выгрузить с таблицы данные, с поля Named:
procedure TFormMain.LoadOrganization();
begin
Box.Clear;
NewTable('Organization');
with FDQuery1 do
begin
SQL.Clear; // Очистка от предыдущих запросов
SQL.Add('select * from Organization');
ExecSQL;
Open;
First;
while not Eof do
begin
Box.Items.Add(Trim(FieldByName('Named').AsString));
Next;
end;
Close; // Закрытие сессии
end;
end;

Все это выполняеться при запуске программ. База и таблица в ней создаються, но при выгрузке программа закрываеться. Как правильно выгрузить данные? Delphi XE5 и Android 4.4.2

 

[Sascha]

мне кажется проблема тут :

procedure TFormMain.LoadOrganization();
begin
Box.Clear;
NewTable('Organization');
with FDQuery1 do
begin
SQL.Clear; // Очистка от предыдущих запросов
SQL.Add('select * from Organization');
ExecSQL;
Open;
First;
while not Eof do
begin
Box.Items.Add(Trim(FieldByName('Named').AsString));
Next;
end;
end;
Close; // Закрытие сессии
end;

 

[Сергей]

мне кажется проблема тут :

procedure TFormMain.LoadOrganization();
begin
Box.Clear;
NewTable('Organization');
with FDQuery1 do
begin
SQL.Clear; // Очистка от предыдущих запросов
SQL.Add('select * from Organization');
ExecSQL;
Open;
First;
while not Eof do
begin
Box.Items.Add(Trim(FieldByName('Named').AsString));
Next;
end;
end;
Close; // Закрытие сессии
end;

Закрываеться при использовании параметров ExecSQL; и Close;
Close; // Закрытие сессии - относиться к FDQuery1
Тоесть окончание роботы с FDQuery1, а вы его вынесли за пределы обработки, или этот параметр лишний?

 

[Lomanu4]

А если выносишь за пределы,есть извинения ?

 

[Сергей]

Я его пока убрал, база создается. Пока работает. Запись уже понял как вносить, а вот как по параметру узнать значение?