同济大学数据库作业lab7,8.docxVIP

v1.0 可编辑可修改 同济大学 《数据库技术及应用》 实验报告 实验报告题目： 建立与数据库的链接 和基于绑定的数据库访问 姓名： 学号： 年级： 专业： 指导教师： 日期： 2014 年11 月 16 日 1 v1.0 可编辑可修改 一．实验目的 掌握数据库访问模型的主要对象和功能 掌握 SQL和数据库的链接方法 学习绑定对象的操作方法 二．实验内容 （实验题目 +运行界面截图 +实现代码） 掌握前台和 SqlServer 后台的链接方法 Imports Class Form1 Private Sub Form1_Load(sender As Object , e As EventArgs ) Handles Dim myconn As NewSqlConnection ( database=university;data source=jd43\SQLEXPRESS; integrated security=true ) Dim mysql As String = select * from student Dim myadapter As New SqlDataAdapter (mysql, myconn) Dim mydataset As New DataSet 2 v1.0 可编辑可修改 (mydataset, student ) (0) End Sub End Class 2. 在 university 上用完成如下界面 Imports Class Form2 Private Sub Form2_Load(sender As Object , e As EventArgs ) Handles Dim myconn As NewSqlConnection ( database=university;data source=jd43\SQLEXPRESS; integrated security=true ) Dim mysql As String = select as 学号 ,sname as 姓名 ,count(secnum) as 选修 课程门数 ,avg(score) as 平均成绩 ,sum(1-score/60) as 不及格门数 from student,sc where 3 v1.0 可编辑可修改 = group by ,sname Dim myadapter As New SqlDataAdapter (mysql, myconn) Dim mydataset As New DataSet (mydataset, student ) = (0) End Sub End Class 3. 建立 university 和 student 的浏览界面 Imports Class Form1 Dim mybind As New BindingSource Dim mysql As String = select * from student Dim myconn As New SqlConnection ( database=university;data 4 v1.0 可编辑可修改 source=jd43\SQLEXPRESS;integrated security=true ) Dim myadapter As New SqlDataAdapter (mysql, myconn) Dim mydataset As New DataSet Private Sub 退出系统 ToolStripMenuItem_Click(sender As Object , e As EventArgs ) Handles 退出系统 End End Sub Private Sub Form1_Load(sender As Object , e As EventArgs ) Handles (mydataset, student ) mydataset student Binding ( text , mybind, snum , True)) Binding ( text , mybind, sname , True )) Binding ( text , mybind, sex , True)) Binding ( text , mybind, dept , True)) Binding ( text , mybind, birthday , True )) Binding ( text , mybind, telephone , True)) End Sub Private Sub Button4_Click(sender As Object , e As EventArg