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