module1.bas

用ＶＢ做的学生选课系统 .如果觉得好就顶起来哦

Attribute VB_Name = "Module1"
Public conn As New ADODB.Connection
Public rs As New Recordset
Public rs1 As New Recordset
Public rs2 As New Recordset
Public w As String
Sub con()
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\其他盘文件\VB\大作业\新建文件夹\user.mdb;Persist Security Info=False"
conn.Open
End Sub
Sub jl()
rs.Open "SELECT 课程表.课程名称, 教师情况表.教师姓名, 课程表.周学时, 课程表.课程总学时, 课程表.课程学分, 选修教师任课表.授课地点 FROM (教师情况表 INNER JOIN 选修教师任课表 ON 教师情况表.教师编号 = 选修教师任课表.教师编号) INNER JOIN 课程表 ON 选修教师任课表.课程号 = 课程表.课程号", conn, 1, 3
rs1.Open "select * from 学生选修课课程信息表", conn, 1, 3
End Sub