Delphi中MySQL中“Rand（）”函数的语法错误

Question

我正在尝试使用 MySQL 中的 Rand() 函数来选择随机记录，但在 Rand() LIMIT 行中出现语法错误

qryCards.SQL.Add('SELECT * FROM tblCards WHERE Card_Rarity = "Epic"');
                  qryCards.Open;
                  iCount := qryCards.RecordCount;
                  qryCards.Close;
                  qryCards.SQL.Clear;
                  qryCards.SQL.Add('SELECT * FROM tblCards ORDER BY rand(' + IntToStr(iCount) + ') LIMIT 1');
                  qryCards.Open;
                  ShowMessage(qryCards.FieldByName('Card_Name').AsString);

Answer 1

首先，您没有正确使用RAND()。它返回一个十进制数0 <= N < 1。输入值是种子，而不是您期望的上限。要获得0 <= N < Count 之间的随机整数，您必须将结果相乘，即RAND()*Count，您没有这样做。但是你不需要这样做，你可以自己使用RAND()，不需要先查询记录数：

qryCards.SQL.Text := 'SELECT * FROM tblCards WHERE Card_Rarity = "Epic" ORDER BY RAND() LIMIT 1';
qryCards.Open;
ShowMessage(qryCards.FieldByName('Card_Name').AsString);

否则，您可以通过指定LIMIT 子句的偏移量来选择随机记录，例如：

qryCards.SQL.Text := 'SELECT * FROM tblCards WHERE Card_Rarity = "Epic"';
qryCards.Open;
iCount := qryCards.RecordCount;
qryCards.Close;
qryCards.SQL.Text := 'SELECT * FROM tblCards WHERE Card_Rarity = "Epic" LIMIT ' + IntToStr(Random(iCount)) + ', 1');
qryCards.Open;
ShowMessage(qryCards.FieldByName('Card_Name').AsString);

如果您的表有一个自动递增的 id 字段并且其中没有间隙，那么您可以使用其他技术RAND()。有关示例，请参阅MySQL Select Random Records。