Question

在Acces的窗体中，新建两个文本框和一个按钮在一个文本框中输入学号按按钮键可以从一个表中查出并显示。

我是新学者，请讲具体些

若以下回答无法解决问题，邀请你更新回答

Answer 1

把那段语句贴出来

追问

追答

Private Sub Command4_Click()
    Dim xh as String
    Dim xm as String
    xh=Me.Text0.Value
    Dim cn As Connection
    Dim rs As New ADODB.Recordset
    Dim sql As String
    Set cn = CurrentProject.Connection
    sql = "select 学生表.姓名 from 学生表 where 学号='" & xh & "'"
    rs.Open sql, cn, 3, 3, 1
    xm=rs("姓名")
    Me.Text2.Value=xm
End Sub

追问

这一语气：Set cn = CurrentProject.Connection
显示类型不匹配

追答

这个是创建一个连接的意思，百度下VBA里如何连接数据库，改成你自己的连接语句