변수의 쿼리 결과

Question

다음은 내가하려는 일입니다. 일단 btnDraw가 클릭되면 Access에서 쿼리 테스트를 실행하고 결과를 문자열 승자로 가져 오십시오. 그런 다음 lblWinner에 결과를 표시하십시오.

Private Sub btnDraw_Click() 

Dim winner As String 

winner = ??????? 

lblWinner.Caption = winner 

End Sub 

이 테스트 쿼리에 대한 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); 

감사합니다!

Answer 1

시도 :

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 절에 대해서도 궁금합니다. 그것은 당신의 질문의 일부가 아니지만 임의의 숫자로 정렬하면 어떻게 승자가됩니까?