同济数据库 chap8.pptVIP

* * * * * * * * * * * * * * （1）建立SQLServer客户表与VB.net控件之间的数据绑定关系 Public mybind As BindingManagerBase Me.SqlDataAdapter2.Fill(Me.DataSet11.客户) mybind = Me.BindingContext(Me.DataSet11, 客户) (如果是.NET2005以上版本，直接用拖放的绑定数据源) （2）用四个button实现客户表的数据浏览 mybind.Position = 0 //到头 mybind.Position = mybind.Position – 1 //往前翻 mybind.Position = mybind.Position + 1 //往后翻 mybind.Position = mybind.Count – 1 //到尾 （3）用五个button实现客户表的更新操作 mybind.AddNew() //插入一条记录 mybind.RemoveAt(mybind.Position) //删除当前记录 mybind.EndCurrentEdit() //结束当前更新状态 mybind.CancelCurrentEdit() //取消当前编辑修改 mybind.EndCurrentEdit() Me.SqlDataAdapter1.Update(Me.DataSet11.客户) 数据浏览操作 StudentBindingSource.MoveFirst() StudentBindingSource.MovePrevious() StudentBindingSource.MoveNext() StudentBindingSource.MoveLast() 更新操作 StudentBindingSource.AddNew() StudentBindingSource.RemoveCurrent() StudentBindingSource.CancelEdit() Me.Validate() StudentBindingSource.EndEdit() StudentTableAdapter.Update(Me.UniversityDataSet.student) 2005以上版本 mybind=BindingContext(StudentBindingSource) (如果是.NET2005以上版本，直接用拖放的绑定数据源) SQL_insert命令的执行 Private Sub Button1_Click(…) Handles Button1.Click Dim myconn = New SqlClient.SqlConnection(integrated security=SSPI;data source=NAONAO;initial catalog=tjdb) Dim mysql As String = insert into sc values( Me.TextBox1.Text , Me.TextBox2.Text , Val(Me.TextBox3.Text) ) Dim mycmd As New SqlClient.SqlCommand(mysql, myconn) myconn.open() Try mycmd.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) End Try myconn.close() End Sub SQL_delete命令的执行 Private Sub Button2_Click(…) Handles Button2.Click Dim myconn = New SqlClient.SqlConnection (integrated security=SSPI;