1

これが私がやろうとしていることです。btnDraw がクリックされたら、Access でクエリ テストを実行し、結果を文字列の勝者に戻します。次に、結果を lblWinner に表示します。

Private Sub btnDraw_Click()

Dim winner As String

winner = ???????

lblWinner.Caption = winner

End Sub

これは、TEST クエリの SQL コードです。

SELECT TOP 1 [Goth Table].representative
FROM [Goth Table]
WHERE ((([Goth Table].[Would you like to be entered in the drawing])=Yes))
ORDER BY Rnd(Int(Now()*id)-Now()*id);

ありがとう！

4

1 に答える 1

0

試す：

 Winner=
 currentdb.openrecordset("
 SELECT TOP 1 [Goth Table].representative
 FROM [Goth Table]
 WHERE [Goth Table].[Would you like to be entered in the drawing]=Yes
 ORDER BY Rnd(Int(Now()*id)-Now()*id);").fields(0)
 ")

読みやすくするためにいくつかの改行を追加しました。それらを削除したい場合があります。あなたの Order By 句にも興味があります。それはあなたの質問の一部ではありませんが、乱数による並べ替えでどのように勝者が得られるのでしょうか?

于 2013-04-24T17:42:30.950 に答える