可以帮我看一下Access数据库中的设置有什么问题吗?
解决了
Private Sub Command1_Click()
x = 80
Adodc1.RecordSource = "select 姓名 from 成绩表 where 课程成绩=" & x
Adodc1.Refresh: Set MSHF1.DataSource = Adodc1
End Sub
解决了
Private Sub Command1_Click()
x = 80
Adodc1.RecordSource = "select 姓名 from 成绩表 where 课程成绩=" & x
Adodc1.Refresh: Set MSHF1.DataSource = Adodc1
End Sub