数据库实验八

1、1153370 刘昊鑫Imports System.Data.SqlClientPublic Class Form1 Dim mybindres As New BindingSource Dim myconn As New SqlClient.SqlConnection(initial catalog=university;Data Source=(Local);Integrated Security=True;) Dim mysql As String = select snum as 学号,sname as 姓名,sex as 性别,dept as 系别,birthday as 出生日期,

2、telephone as 电话 from student Dim myadapter As New SqlClient.SqlDataAdapter(mysql, myconn) Dim mydataset As New DataSet Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load myadapter.Fill(mydataset, result) mybindres.DataSource = mydataset mybindres.D

3、ataMember = result TextBox1.DataBindings.Add(New Binding(Text, mybindres, 学号, True) TextBox2.DataBindings.Add(New Binding(Text, mybindres, 姓名, True) TextBox3.DataBindings.Add(New Binding(Text, mybindres, 性别, True) TextBox4.DataBindings.Add(New Binding(Text, mybindres, 系别, True) TextBox5.DataBindings

4、.Add(New Binding(Text, mybindres, 出生日期, True) TextBox6.DataBindings.Add(New Binding(Text, mybindres, 电话, True) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click mybindres.MoveFirst() End Sub Private Sub Button2_Click(ByVal sender As S

5、ystem.Object, ByVal e As System.EventArgs) Handles Button2.Click mybindres.MovePrevious() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click mybindres.MoveNext() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e

6、As System.EventArgs) Handles Button4.Click mybindres.MoveLast() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click mybindres.AddNew() End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

7、 Button6.Click mybindres.RemoveCurrent() End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Me.Validate() mybindres.EndEdit() Dim cmd As New SqlClient.SqlCommandBuilder(myadapter) myadapter.Update(mydataset.Tables(result) End SubEnd Cl

8、assImports System.Data.SqlClientPublic Class Form1 Dim mybines As New BindingSource Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click mybines.MovePrevious() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.Event

9、Args) Handles MyBase.Load Dim myconn As New SqlConnection(initial catalog=university;data source=;integrated security=true;) Dim mysql As String = select student.sname as 姓名,student.snum as 学号,ame as 课程名,sc.score as 分数 from student,sc,section,course where student.snum=sc.snum and sc.secnum=section.s

10、ecnum and um=um Dim myadapter As New SqlDataAdapter(mysql, myconn) Dim mydataset As New DataSet myadapter.Fill(mydataset, result) mybines.DataSource = mydataset mybines.DataMember = result TextBox1.DataBindings.Add(New Binding(Text, mybines, 学号, True) TextBox2.DataBindings.Add(New Binding(Text, mybi

11、nes, 课程名, True) TextBox3.DataBindings.Add(New Binding(Text, mybines, 姓名, True) TextBox4.DataBindings.Add(New Binding(Text, mybines, 分数, True) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click mybines.MoveFirst() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button