访问数据库

代码说明：

私人潜艇 Load_Faculty() Dim con 作为新 OleDbConnection Dim cmd 作为新 OleDbCommand 作为 OleDbDataReader 的 dim 博士 Dim arrImage() 作为字节 Dim myMS 作为新的 IO。MemoryStream 声明作为字符串存放连接 = String.Empty 请尝试 声明存放连接 ="选择 b.FacultyID、 b.Image、 b.Course、 a.Course" 声明存放连接 = 声明存放连接 &"从作为左的联接学院作为 b studentsrecords" 声明存放连接 = 声明存放连接 &"a.ID = b.FacultyID WHERE(a.Course = @Course) a.Course 按顺序" con = 新 Ole