VB에서 ms 액세스에서 필드를 검색하는 방법

Question

vb6의 ms 액세스에서 입력 한 사용자 이름을 기반으로 직원 테이블의 급여 필드에 액세스해야합니다. 양식의 사용자 이름과 비밀번호를 읽고 다른 양식을 입력합니다. 사용자 이름에 해당하는 급여를 표시합니다. Adodc1 연결을 사용하고 있습니다. 나는 SQL을 알고 있지만 vb에서 구현하는 방법을 모르겠다 ... 나는 어디서 SQL 쿼리를 사용해야하는지 정확히 알고 싶습니까? 감사합니다.

Answer 1

DAO를 사용하는 경우 도움이됩니다. (데이터베이스 열고 DAO.OpenDatabase() 함수를 사용하여, 데이터 유형 DAO.Database으로) 모듈에 다음의 기능을 추가하고보기 MyDB 열림 데이터베이스에 대한 참조를 전달 지금

Public Function GetQueryResults(ByRef MyDB as DAO.Database, SQLQuery As String) As DAO.Recordset 
    Dim Q As DAO.QueryDef, R As DAO.Recordset 

    Set Q = MyDB.CreateQueryDef("", SQLQuery) 
    Set R = Q.OpenRecordset 

    Set GetQueryResults = R 
End Function 

Public Function GetFirstValueFromQuery(MyDB As DAO.Database, SQLQuery As String) As String 
    If (MyDB Is Nothing) Then Exit Function 

    Dim RES As DAO.Recordset, T As String 

    Set RES = GetQueryResults(MyDB, SQLQuery) 

    With RES 
     T = .Fields(0).Value 
     GetFirstValueFromQueryGeneral = T 
    End With 

    RES.Close 
End Function 

을이 전화 함수는 모든 형식 (SQL 쿼리를 실행해야하는 곳이라면 어디에서나)에서 사용할 수 있습니다.

Dim A as String 
A=GetFirstValueFromQuery(MyDatabase, "SELECT Employee.Salary FROM Employee WHERE Employee.UserName='"+uname+"'") 
Msgbox "Salary="+A