Dim rs As New ADODB.Recordset Dim sql as Stringsql = "select 姓名 from 表 where 学号 = **** " '***表示你要查询的学号值,你要设置一个变量用来动态查询 rs.Open sql, conn, adOpenKeyset, adLockReadOnlyIf Not rs.EOF Then Text2.text = rs.Fields(1) '1是你姓名字段在表中的位置 End Ifrs.Close Set rs = nothing
Dim rs As New ADODB.Recordset
Dim sql as Stringsql = "select 姓名 from 表 where 学号 = **** " '***表示你要查询的学号值,你要设置一个变量用来动态查询
rs.Open sql, conn, adOpenKeyset, adLockReadOnlyIf Not rs.EOF Then
Text2.text = rs.Fields(1) '1是你姓名字段在表中的位置
End Ifrs.Close
Set rs = nothing
Adodc1.Refresh
Text2.Text = Adodc1.Recordset.Fields("姓名")