如何从vb中的ms访问中检索字段

Question

I need to access the salary field of an employee table based on the entered username from ms access in vb6.. I read the username and password in a form and enter into another form that displays the salary corresponding to the username. I am using Adodc1 connection. I know SQL but dunno how to implement it in vb... I want to know exactly where to use the sql query? Thanks

Answer 1

If you are using DAO, this should help. Add the following functions to a module, and pass in MyDB a reference to the OPENED database (of datatype DAO.Database, use the DAO.OpenDatabase() function to open a database):

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

now, call this function from every form (wherever u need to run a SQL query):

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