德尔福的SQL更新过程没有更新

Question

我一直在努力让这个过程在过去的5个小时内工作。我已经尝试将它修剪下来，直到它能够工作并在此基础上建立起来，但仍然没有结束。我非常感谢一些帮助，因为我必须在明天上午以工作状态介绍这个项目。

我修剪了我的代码（因为它很长），但问题仍然很明显。

sqlCon.Connected := true; //TSQLConnection 
sqlUsers.Active := true; //TSQLTable 
sqlGames.Active := true; //TSQLTable 
sqlPredictions.Active := true; //TSQLTable 

sqlUsers.First; 

//All following variables are integers. 

rugbyChampionshipScore := 10; 
rugbyChampionshipGamesPredicted:= 10; 
rugbyChampionshipGamesCorrect:= 10; 
rugbyChampionshipGamesAlmost:= 10; 
rugbyChampionshipGamesWrong:= 10; 
currieCupScore := 10; 
currieCupGamesPredicted := 10; 
currieCupGamesCorrect := 10; 
currieCupGamesAlmost := 10; 
currieCupGamesWrong := 10; 

sqlQueryUpdate.Close; //TSQLQuery 

sqlQueryUpdate.CommandText := 'UPDATE users SET overallScore=:parScore, overallGamesPredicted=:parGamesPredicted, overallGamesCorrect=:parGamesCorrect, overallGamesAlmost=:parGamesAlmost, overallGamesWrong=:parGamesWrong, overallAccuracy=:parAccuracy WHERE username=:parUsername'; 
sqlQueryUpdate.Params.Clear; 
sqlQueryUpdate.Params.CreateParam(ftUnknown, 'parUsername', ptUnknown).AsString := sqlUsers.FieldByName('username').AsString; 
sqlQueryUpdate.Params.CreateParam(ftUnknown, 'parScore', ptUnknown).AsInteger := Round((rugbyChampionshipScore + currieCupScore)/(rugbyChampionshipGamesPredicted + currieCupGamesPredicted)); 
sqlQueryUpdate.Params.CreateParam(ftUnknown, 'parGamesPredicted', ptUnknown).AsInteger := rugbyChampionshipGamesPredicted + currieCupGamesPredicted; 
sqlQueryUpdate.Params.CreateParam(ftUnknown, 'parGamesCorrect', ptUnknown).AsInteger := rugbyChampionshipGamesCorrect + currieCupGamesCorrect; 
sqlQueryUpdate.Params.CreateParam(ftUnknown, 'parGamesAlmost', ptUnknown).AsInteger := rugbyChampionshipGamesAlmost + currieCupGamesAlmost; 
sqlQueryUpdate.Params.CreateParam(ftUnknown, 'parGamesWrong', ptUnknown).AsInteger := rugbyChampionshipGamesWrong + currieCupGamesWrong; 
sqlQueryUpdate.Params.CreateParam(ftUnknown, 'parAccuracy', ptUnknown).AsInteger := Round(100/(rugbyChampionshipGamesPredicted + currieCupGamesPredicted)*(rugbyChampionshipGamesCorrect + currieCupGamesCorrect) + ((rugbyChampionshipGamesAlmost + currieCupGamesAlmost)/2)); 

sqlQueryUpdate.ExecSQL(); 
sqlQueryUpdate.Close; 

sqlUsers.Active := false; 
sqlGames.Active := false; 
sqlPredictions.Active := false; 

Answer 1

这很奇怪。我遵循所有评论过的人的建议，并且我发现创建我的参数的顺序会影响查询。

码不起作用：

sqlCon.Connected := true; 
sqlUsers.Active := true; 
sqlGames.Active := true; 
sqlPredictions.Active := true; 

sqlUsers.First; 

sqlQueryUpdate.Close; 

sqlQueryUpdate.SQL.Clear; 
sqlQueryUpdate.SQL.Add('UPDATE users SET overallScore=:parScore WHERE username=:parUsername'); 
sqlQueryUpdate.Params.Clear; 

sqlQueryUpdate.Params.CreateParam(ftUnknown, 'parUsername', ptUnknown).AsString := sqlUsers.FieldByName('username').AsString; 
sqlQueryUpdate.Params.CreateParam(ftUnknown, 'parScore', ptUnknown).AsInteger := 200; 


sqlQueryUpdate.ExecSQL(); 
sqlQueryUpdate.Close; 

代码工作的：

... 
sqlQueryUpdate.Params.CreateParam(ftUnknown, 'parScore', ptUnknown).AsInteger := 200; 
sqlQueryUpdate.Params.CreateParam(ftUnknown, 'parUsername', ptUnknown).AsString := sqlUsers.FieldByName('username').AsString; 
... 

所以简单地交换那些2线使得它的工作？谁能告诉我为什么？我很好奇......