先引用 : Microsoft Activex Data Objects 2.1 Library
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
SQL="Select * From [表名] Where 学科名<60"
Rs.Open SQL,Conn,1,3
Print "XXX学科不及格的同学名单有:"
While Not Rs.Eof
Print Rs("学生姓名")
Rs.MoveNext
Wend
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024