下面的代码演示该过程:(假设你的资料库名称为STUDENTS.MDB,内有一个STUDENTDATA的资料表,表中有一个名为NAME的字段)
Public sub QueryStudent(ByVal sName as String)
Dim rstTemp as RecordSet
Dim dtTemp as Database
Set dtTemp=OpenDatabase(App.Path & "\" & "Students.MDB")
Set rstTemp=dtTemp.OpenRecordSet("SELECT * FROM StudentData WHERE Name='" & sName & "'")
On Error Goto ErrHandle
with rstTemp
.MoveFirst
for x=0 to rstTemp.Fields.count-1
'下面的代码显示该同学的资料,例如:TXTNAME.TEXT=.FIELDS(0).VALUE
NEXT
END WITH
rstTemp.Close
dtTemp.Close
set rstTemp=Nothing
Set dtTemp=Nothing