"Решение проблемы EOleException в Delphi при использовании параметризованного запроса с MySQL и MyConnector"

Delphi , Графика и Игры , Canvas

Решение проблемы EOleException в Delphi при использовании параметризованного запроса с MySQL и MyConnector

Сегодня я установил MyConnector, чтобы использовать MySQL с ADO, все установлено, все в порядке! Я могу сделать подключение с помощью ODBC и сделать подключение из своей среды Delphi. Однако, когда я строю свой запрос во время выполнения, я получаю ошибку, saying:

Project Project1.exe raised exception class EOleException with message 'Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another'. Process stopped. Use Step or Run to continue.

Вот мой код:

function TForm1.CreateSQL : TADOQuery;
begin
  result := TADOQuery.create(self);
  with Result do
  begin
    Connection     := MainConnection;
    CursorLocation := clUseServer;
    CursorType     := ctStatic;
    CacheSize      := 50;
    AutoCalcFields := true;
    ParamCheck     := true;
    Prepared       := true;
  end;
end;

procedure TForm1.login();
begin
  with CreateSQL do
  try
    with SQL do
    begin
      add('SELECT                       ');
      add('  *                          ');
      add('FROM                         ');
      add('  LisenswebUsers             ');
      add('WHERE                        ');
      add('  UserName     = :MyUsername '); // debugger exception here
      add('AND                          ');
      add('  UserPassword = :MyPassword '); // debugger exception here
      with Parameters do
      begin
        ParamByName('MyUsername').value := txtLogin.text;
        ParamByName('MyPassword').value := strmd5(txtPassword.text);
      end;
      Open;

      if Recordcount <> 1 then
      begin
        lblLoggedinAs.Text := format('Du er logget inn som: %s (%s)',[FieldByName('Username').AsString,FieldByName('UserEmailaddress').AsString]);
        MainPageControl.ActivePageIndex := 1;
      end
      else
      begin
        txtPassword.Text := '';
        txtPassword.SetFocus;
      end;
    end;
  finally
   free;
  end;
end;

Странно, но эта проблема исчезает, если отключить отладку в Delphi.

Решение проблемы:

После некоторых исследований, я нашел решение, которое помогло мне избавиться от этой проблемы. Проблема заключалась в том, что я не добавлял параметры явно перед выполнением запроса. Вот исправленный код:

procedure TForm1.login();
var
  Qry : TADOQuery;
begin
  Qry := CreateSQL;
  try
    with Qry.Parameters.AddParameter do
    begin
      Name := 'MyUsername';
      DataType := ftString;
    end;
    with Qry.Parameters.AddParameter do
    begin
      Name := 'MyPassword';
      DataType := ftString;
    end;

    Qry.SQL.BeginUpdate;

    Qry.SQL.Add('SELECT');
    Qry.SQL.Add('  *');
    Qry.SQL.Add('FROM');
    Qry.SQL.Add('  LisenswebUsers');
    Qry.SQL.Add('WHERE UserName = :MyUsername '); // debugger exception here
    Qry.SQL.Add('  AND UserPassword = :MyPassword '); // debugger exception here

    Qry.SQL.EndUpdate;

    Qry.Parameters.ParamByName('MyUsername').value := txtLogin.text;
    Qry.Parameters.ParamByName('MyPassword').value := strmd5(txtPassword.text);
    Qry.Open;

    if Qry.Recordcount <> 1 then
    begin
      lblLoggedinAs.Text := format('Du er logget inn som: %s (%s)',[FieldByName('Username').AsString,FieldByName('UserEmailaddress').AsString]);
      MainPageControl.ActivePageIndex := 1;
    end
    else
    begin
      txtPassword.Text := '';
      txtPassword.SetFocus;
    end;
  finally
    Qry.Free;
  end;
end;

Теперь все работает без ошибок EOleException. Важно добавить параметры явно перед выполнением запроса, используя AddParameter и установив DataType для каждого параметра.

Вывод:

При использовании параметризованных запросов с MySQL и MyConnector в Delphi важно добавлять параметры явно перед выполнением запроса, используя AddParameter и установив DataType для каждого параметра. Это поможет избежать ошибки EOleException и гарантирует успешное выполнение запроса.

Создано по материалам из источника по ссылке.

Контекст: Пользователь столкнулся с проблемой EOleException в Delphi при использовании параметризованного запроса с MySQL и MyConnector и нашел решение, добавив параметры явно перед выполнением запроса.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Canvas ::