今天我下载并安装了 MyConnector，这样我就可以将 Mysql 与 ADO 一起使用，一切都已安装，OK!我可以与 ODBC 建立连接，并从我的 delphi 环境建立连接。

当我在运行时构建我的查询时，我收到一条错误消息:

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 中关闭调试，这会起作用。

最佳答案

我会尝试在 Adds 周围添加 SQL.BeginUpdate/SQL.EndUpdate，否则每次调用“Add”时都会解析 SQL 文本。

这通常是个好主意，因为 ADOQuery.SQL 是一个 TStringList，它有一个设置 CommandText 的 OnChange 事件。 SetCommandText 文本然后最终调用 TADOCommand.AssignCommandText，它会做大量的工作来解析参数，并设置 CommandObject.CommandText。有时驱动程序会因部分 SQL 语句而失败，但这东西看起来没问题。

很多年前我遇到过类似的问题 - 这就是我了解这些东西的原因!

procedure TForm1.login();
var
  Qry : TADOQuery;
begin
  Qry := CreateSQL;
  try
    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;

顺便说一句，嵌套的 with 真的很难看(让圣战开始吧)

我有时会使用with，但绝不会嵌套三层!如果是，请至少缩小 with SQL 的范围，使其在 with 参数之前结束。

关于mysql - 在 ADO 查询中使用参数 (mysql/MyConnector)，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/3826210/