Question

学生选修管理系统(vb+sql源代码)

我是一个初学vb和sql的新手，请高手指点：用vb做一个选课系统，请写下构建思路，有代码更好，谢谢！下面是题目：｛题目：学生选修管理系统内容：1）选修科目2）成绩管理3）任课教师资料查询基本要求1）每名学生每学期至少选一门课程，最多选三门课程2）可以对先前学生选择的选修课门数及分数进行查询3）可以对相应的任课教师的个人资料进行查询并且每位教师可以随时更改个人资料。｝

Answer 1

Imports System.Data.SqlClient
Module database
Public values As Integer
Public sql_conn As SqlConnection
Dim sql_comm As SqlCommand
Dim sql_dataadapter As SqlDataAdapter
Public mytable As DataTable
Dim conn_str As String
Dim sql_str As String Public Sub sql_exectute(ByVal sql_str As String)
conn_str = "Data Source=127.0.0.1;Initial Catalog=select_datebase;User ID=sa"
Try
sql_conn = New SqlConnection
sql_conn.ConnectionString = conn_str
sql_conn.Open() sql_comm = New SqlCommand
sql_comm.Connection = sql_conn
sql_comm.CommandType = CommandType.Text
sql_comm.CommandText = sql_str sql_dataadapter = New SqlDataAdapter
mytable = New DataTable
sql_dataadapter.SelectCommand = sql_comm
sql_dataadapter.Fill(mytable)
Catch ex As Exception
MessageBox.Show(ex.Message, "警告", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try sql_conn.Close()
End Sub
End Module 这是连接sql数据库