如何從vb中的ms訪問中檢索字段

Question

我需要根據輸入的用戶名來訪問員工表的工資字段，該用戶名來自vb6中的ms訪問。我在表單中讀取用戶名和密碼，然后輸入另一個顯示與用戶名對應的工資的表單。 我正在使用Adodc1連接。 我知道SQL但不知道如何在vb中實現它...我想知道在哪里使用sql查詢？ 謝謝

Answer 1

如果您使用DAO，這應該會有所幫助。 將以下函數添加到模塊，並在MyDB中傳遞對OPENED數據庫（數據類型為DAO.Database，使用DAO.OpenDatabase（）函數打開數據庫）的引用：

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