同济大学数据库作业lab9

同济大学

《数据库技术及应用》

实验报告

实验报告题目：

使用访问数据库

姓名：学号：

年级：专业：

指导教师：

日期：2014 年10 月27 日

一．实验目的

1.掌握vb访问数据库的方法

2.学习sqlconnection,sqldataadpter,dataset对象的基本编程方法二．实验内容

（实验题目+运行界面截图+实现代码）

1.设计如下成绩查询功能界面

Imports System.Data.SqlClient

Public Class Form2

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim mysql As String = "select cname as '课程名',score as '分数' from

student,sc,sections ,course where student.snum=sc.snum and sc.secnum =sections.secnum and um=um and student.snum='" & TextBox1.Text.Trim & "'"

Dim myconn As New SqlConnection("database=university;data

source=jd35\SQLEXPRESS;integrated security=true")

Dim myadapter As New SqlDataAdapter(mysql, myconn)

Dim mydataset As New DataSet

myadapter.Fill(mydataset, "take_list")

DataGridView1.DataSource = mydataset.Tables("take_list")

Dim sql As String = "select sname from student where snum='" & TextBox1.Text.Trim & "'"

Dim myadapter1 As New SqlDataAdapter(sql, myconn)

Dim mydataset1 As New DataSet

myadapter1.Fill(mydataset1, "take")

Label3.Text = mydataset1.Tables("take").Rows(0).Item(0).ToString & " 选修课成绩"

End Sub

Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click End

End Sub

End Class2.交互式数据绑定查询

Imports System.Data.SqlClient

Public Class Form1

Dim mybind As BindingSource

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim mysql As String = "select student.snum ,sname,cname,score from

student,sc,sections ,course where student.snum=sc.snum and sc.secnum =sections.secnum and um=um and student.snum='" & TextBox1.Text.Trim & "'"

Dim myconn As New SqlConnection("database=university;data

source=jd35\SQLEXPRESS;integrated security=true")

Dim myadapter As New SqlDataAdapter(mysql, myconn)

Dim mydataset As New DataSet

myadapter.Fill(mydataset, "take")

TextBox2.Text = mydataset.Tables("take").Rows(0).Item(0).ToString

TextBox3.Text = mydataset.Tables("take").Rows(0).Item(1).ToString

TextBox4.Text = mydataset.Tables("take").Rows(0).Item(2).ToString

TextBox5.Text = mydataset.Tables("take").Rows(0).Item(3).ToString

mybind.DataSource = mydataset

mybind.DataMember = "take"

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click mybind.MoveFirst()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click mybind.MovePrevious()

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click mybind.MoveNext()

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click mybind.MoveLast()

End Sub

End Class

三．实验体会或收获（有感而发，没有体会也可以不写）