MS Access 2007, 현재 사용자를 테이블과 대조

Question

우리는 간단한 액세스 데이터베이스를 가지고 있으며 직원의 멤버를 선택하기 위해서만 폼의 단추를 사용할 수 있습니다. (버튼에 연결된 이벤트가 있음). 나는 별도의 테이블에 버튼을 클릭 할 수있는 직원의 사용자 이름을 저장하고 싶습니다.

사용자가 테이블에 사용자 이름이 있는지 확인하기 위해 간단한 쿼리를 수행하고 결과에 따라 버튼의 활성화 상태를 설정합니다.

내 배경은 C# 및 SQL Server이지만 VBA 및 액세스는 새로운 것이므로이 환경의 단점을 해결하기 위해 고심하고 있습니다.

advapi32.dll에서 GetUserNameA를 호출하여 fOSUserName 문자열로 로그온 한 사용자의 사용자 이름을 얻었지만 가장 간단한 쿼리로 인해 사용자 이름이 테이블에 존재하는지 확인하는 데 어려움을 겪고 있습니다.

매개 변수가 너무 적습니다 :

는

Dim strSQL As String 
Dim intResult As Integer 
Dim db As DAO.Database 
Dim rs As Recordset  
Set db = CurrentDb  
strSQL = "SELECT COUNT(*) FROM [USERS] WHERE [USERS].[NAME] = '" & _ 
    fOSUsername & "'"   
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset) 
If Not rs.EOF Then 
    intResult = rs.Fields(0) 
Else 
    intResult = 0 
End If 
rs.Close 
db.Close 

이 오류를 나에게

런타임 오류 '3061'를 제공 db.OpenRecordset에 실패합니다. 예상 됨 1.

누구든지 몇 가지 지침을 제공 할 수 있습니까? 당신이 그것을 사용하는 방식에 완전히 익숙하지 해요,하지만 난 항상 이런 식으로했던

Answer 1

[USERS] 객체 과 같은 소리는이 아니지만 Query (매개 변수 사용)입니다. 또한 '& _'(유효하지 않음)과 달리 '& _'(유효하지 않음)과 같은 구문 오류가있는 경우 데이터베이스가 컴파일되지 않습니다. 따라서 테이블 대 쿼리가 귀하의 경우라면 다음을 사용하십시오 :

... 
Dim rs As Recordset 
Dim qdf As QueryDef 

Set qdf = CurrentDb.QueryDefs("Users") 
qdf.Parameters("UserNameParameter") = fOSUsername 
Set rs = qdf.OpenRecordset 
... 

Answer 2

: 당신은 VBA에서 선을 계속하면

 

Dim sSQL As String 
Dim rs As ADODB.Recordset 
Dim cn As ADODB.Connection 

Set cn = New ADODB.Connection 
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[your access db file path and name];Persist Security Info=False" 

sSQL = "SELECT COUNT(*) FROM [USERS] WHERE [USERS].[NAME] = '" &_ 
    fOSUsername & "'" 

Set rs = New ADODB.Recordset 
rs.Open sSQL, cn 

If Not rs.EOF Then 
    intResult = rs.Fields(0) 
Else 
    intResult = 0 


rs.Close 
Set rs = Nothing 
cn.Close 
Set cn = Nothing 

 

Answer 3

, 당신은 전에 사이의 공간이 필요 줄 연속 문자 ("_"). 그래서 대신의 :

strSQL = "SELECT COUNT(*) FROM [USERS] WHERE [USERS].[NAME] = '" &_ 
    fOSUsername & "'" 

사용이 : @Igor 투르 마늄는 지적

strSQL = "SELECT COUNT(*) FROM [USERS] WHERE [USERS].[NAME] = '" & _ 
    fOSUsername & "'" 

그러나, 밑줄 문자 앞에 공백의 부족은 컴파일 오류를 트리거합니다. 그래서 나는 어떤 일이 일어나는지 확신 할 수 없지만 어쨌든 혼란을 피하기 위해 그것을 고칠 것을 제안합니다.

필자는 레코드 집합을 연 다음 해당 레코드 집합에서 값을 읽는 대신 DCount() 함수를 사용하여 간단히 처리 할 수 ​​있다고 제안합니다.

Dim strCriteria As String 
strCriteria = "[USERS].[NAME] = '" & fOSUsername & "'" 
Debug.Print "strCriteria: '" & strCriteria & "'" 
If DCount("*", "USERS", strCriteria) = 0 Then 
    Debug.Print "not found" 
Else 
    Debug.Print "found" 
End IF 

USERS가 테이블이 아닌 쿼리이기 때문에 오류가있는 경우 DCount()에 대신 테이블을 사용하도록 요청할 수 있습니다. 또는 쿼리를 수정하십시오.