VB+SQL2008学生成绩管理系统_毕业论文

表3.1.1 用户登录表

4.2数据库链接 4.2.1数据库链接代码

Module Module1

Public admin As Boolean = True Public adminis As String Public grade As String

Public Function link(ByVal i) As DataTable 库;user id=sa;pwd=\) '用连接对象连接数据库 Dim sqlad As SqlDataAdapter Dim ds As DataTable

sqlad = New SqlDataAdapter(i, sqlcon) ds = New DataTable '数据集对象 Try

sqlad.Fill(ds) '添加数据 Catch ex As Exception

MessageBox.Show(ex.Message + Chr(10) + Chr(13) + ex.StackTrace) End Try Return ds End Function End Module

4.2.2数据库链接操作

第一步：附加数据库（对已经建好的数据库进行附加）点击数据库右键附加。

图附加数据库

第二部：安全性设置，展开安全性，sa用户点击右键属性，进行安全性设置（密码设置、默认数据库设置），状态选择登录启用。

图 安全性设置

第三步：服务器属性设置，右击服务器属性，进行安全性设置。

图 服务器属性设置

第四步：重启服务器。右击服务器，选择重启服务器。

图 重启服务器

4.3数据库调试

数据库成功附加、安全性设置、重启。

图 数据库