军旗游戏下载:vb 中的查找功能

用两个文本框，第一个里输入学号，第2个作为显示名字
再做个查询按钮
假设cnn为数据库联接,rst为记录集，sql为查询语句
Sub Command1_Click()
sql="select 序号 from 表 where 姓名='" & text1.text & "'"
rst.open sql,cnn,adopenkeyset,adlockreadonly,adcmdtext
if not rst.eof then
text2.text=rst.fileds(0)
else
text2.text="查无此人！"
end if
rst.close
set rst=nothing
End Sub

Private Sub Command1_Click()
Data1.Refresh
If Data1.Recordset.RecordCount = 0 Then MsgBox "无记录！": Exit Sub
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
If Data1.Recordset!学号 = "2" Then
text1.text=Data1.Recordset!姓名
Data1.Recordset.MoveNext
Else
Data1.Recordset.MoveNext

End If

Loop

End If
End Sub

打开数据库
查找符合要求的记录
将记录中需要的内容显示在文本框内

用数据库连接，然后SQL查呀，然后返回记录结果。

楼主学过SQL吗？没有的话，现补习一下知识。要不然没法说。