SQLConnection

[nibufep]

Добрый день!

var
  SQL: TSQLConnection;

procedure TForm1.FormShow(Sender: TObject);
begin
  SQL := TSQLConnection.Create(self);
  SQL.DriverName := 'Sqlite';
  SQL.Params.Values['Database'] := ExtractFilePath(Application.ExeName) + '/bd.db';
  SQL.Params.Values['FailIfMissing'] := 'False';
  SQL.Connected := true;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try
    SQL.Connected := false;
    FreeAndNil(sql);
  except
    on E: Exception do
      ShowMessage(E.ClassName + ' поднята ошибка, с сообщением : ' + E.Message);
  end;
end;

При закрытие программы получаю ошибку:

argument out of range

что не так?

[Serge_Bliznykov]

во-первых, почему на событие onShow подвесили создание SQL, разве на onCreate не логичнее?

во-вторых, если закомментировать весь код, что у Вас на onClose формы, ошибка будет?
потому как, думаю, что ошибка у Вас в другом месте, а не в том коде, что Вы тут привели.

в-третьих, попробуйте добавить проверку:

    if Assigned(SQL) then begin
       SQL.Connected := false;
       FreeAndNil(SQL);
    end;

[nibufep]

а может ли быть ошибка из-за того что одновременно несколько запросов выполнялось в разных потоках ?

[nibufep]

Да видимо проблема в этом, сделал так

var
  SQLConnect: boolean = false;

И сделал вот так с каждым запросом:

  while SQLConnect = true do
  begin
    exit;
  end;
  SQLConnect := True;
  SQL.Execute('', nil, Results);
  SQLConnect := False;

Но выполняется только 1 запрос, это из-за exit? Чем его можно заметить если это так? Или вообще можно сделать просто вот так:

  while SQLConnect = true do
  begin
  end;

Прервет ли это выполнение кода? И слишком ли ужасное такое решение? Может можно как-то по другому сделать?

[evg_m]

О потоки!
А все потоки используют ОДИН и тот же объект SQL ?
не соединение (SQLConnect), а вот это
SQL.Execute (SQL - один и тот же ОБЩИЙ для всех потоков)?!

[nibufep]

Переменная SQL глобальная если вы об этом.

[Аватар]

Ну если это те потоки и та глобальность, о которых думаю, то так нельзя. Для каждого потока - свой датасет.

Переменная SQL

вообще-то объект

[nibufep]

как тогда правильно будет сделать?

[nibufep]

в каждом потоке

 SQL := TSQLConnection.Create(self);

надо делать?

[Аватар]

SQLConnect это одно, а SQL.Execute это другое. Или у тебя все SQL называется?