vb编程_vb基本数据类型_vb编程入门实例讲解(10)

End Sub

(4)翻阅到第一条记录：

双击“第一条记录”按钮，在代码窗中输入以下代码：

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click

Me.BindingContext(myDataSet, ″student″).Position = 0

End Sub

说明：为了代码书写方便，我们可以先定义一个BindingManagerBase对象myBind，如myBind = Me.BindingContext (myDataSet, ″student″ )，于是以上各句代码均可以简写成：

向上翻阅一条记录：myBind.Position = myBind.Position - 1

向下翻阅一条记录：myBind.Position = myBind.Position 1

翻阅到最后一条记录：myBind.Position=myBind.count - 1

翻阅到第一条记录：myBind.Position = 0

2.删除数据记录

双击“删除记录”按钮，在代码窗中输入以下代码：

Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click

Dim ConnectionString As String = ″ Provider = Microsoft.Jet.OLEDB.4.0; Data Source = e:\My Documents\db1.mdb″

Dim myConn As OleDbConnection = New OleDbConnection()

myConn.ConnectionString = ConnectionString

myConn.Open()

Dim strDele As String = ″DELETE From student WHERE StuID = '″ txtStuID.Text ″ '″

Dim myCommand As OleDbCommand = New OleDbCommand(strDele, myConn)

myCommand.ExecuteNonQuery() myDataSet.Tables(″student″).Rows(Me.BindingContext(myDataSet, ″student″).Position).Delete()

myDataSet.Tables(″student″).AcceptChanges()

10.myConn.Close()

End Sub

前面四行代码我们已经非常熟悉，目的是建立与数据据的连接并打开。第6行代码我们建立一个SQL查询，用来查询数据表中StuID字段等于 TxtStuID.Text输入的所有记录。并在第7行代码中将查询结果建立一个新的OleDbCommand对象，用来指定要删除的记录。第8行代码是从中删除指定的记录，第9行代码是从myDataSet中删除记录。前者是物理上删除记录，如果去掉第8行代码运行程序你就会发现，记录只是在当前操作中被删除了，在中依然存在。

其中第6行代码中定义的SQL查询条件读者可以根据需要自行指定。需要说明的是，由于我们在创建数据表时，指定StuID字段的类型为Text类型，因此在书写SQL语名时要在“＝”号前加上单引号，具体式请参照第6行代码。如果StuID字段类型为数字型，那么第6行正确写法应该为：

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-46460-10.html