Question

窗体上没有添加ADODC控件，用的是ADO连接数据库ACCESS2003，老师出现错误。程序如下：

Dim rsClass As ADODB.Recordset
Dim strSQL$
Set rsClass = New ADODB.Recordset
strSQL = "SELECT Class.*,Department.DepartName FROM Class , Department "
strSQL = strSQL & "WHERE Class.DepartID = Department.DepartID "
strSQL = strSQL & " and ClassID='" & cmbClass.Text & "';"
rsClass.Open strSQL, Conn, 1, 1 ‘出现错误行
If Not rsCourse.EOF Then
lblClassID = rsClass("ClassID").Value
lblClassName = rsClass("ClassName").Value
lblDeparteName = rsClass("DeparteName").Value
lblMaster = rsClass("Mastere").Value
lblBeginDate = Str(rsClass("BeginDate").Value)
Else
lblClassID = ""
lblClassName = ""
lblDeparteName = ""
lblMaster = ""
lblBeginDate = ""
End If
rsClass.Close
strSQL = "SELECT Count(*)as sCount FROM Student WHERE ClassID='" & cmbClass.Text & "';"
rsClass.Open strSQL, Conn, 1, 1
lblCount = Str(rsClass("sCount").Value)
rsClass.Close
Set rsClass = Nothing

FROM子句出现错误

Answer 1

学习VB，最好先打好基础：（1）了解VB的操作过程，如控件如何使用，代码如何输入，如何生成或保存工程文件等问题；（2）了解相关的函数。基础就是如此，不懂的可输入相关词汇上网查找，现在网上大部分可满足你需要！