VB.NET来删除数据记录： 

 

在做程序的时候，我们可能有这样的迷惑就是，我们操作的数据集是返回的DataSet对象，如果此时的DataSet对象十分庞大，或者连接到此数据库服务器的客户非常多，这样就会耗费服务器的很多资源，久而久之服务器总有一天可能会崩溃。其实这种担心是没有必要的，因为我们操作的DataSet对象其实产生的位置并不在服务器端，而是客户端，这样上面的几种顾虑就显得没有必要了。但在对数据库进行删除、修改等操作，我们此时操作的对象是服务器端的数据库，并没有修改到本地的DataSet对象，所以当进行删除、修改操作的时候，为了数据一致，在对服务器端的数据库进行删除、修改后，依然要对本地的DataSet对象进行相关操作。根据上面的这些知识，就可以分别得到针对Access 2000和Sql Server 2000数据库进行删除操作的程序代码： 

 

< I > .删除Access 2000数据库中的记录： 

 

 

     

    Private Sub button4_Click (ByVal sender As Object , _

      ByVal e As System.EventArgs) Handles button4.Click

     '连接到一个数据库

            Dim strCon As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; 

   Data Source = db.mdb "

            Dim myConn As OleDbConnection = New OleDbConnection ( strCon )

            myConn.Open ( ) 

            Dim strDele As String = "DELETE FROM person WHERE id= " + t_id.Text

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

            '从数据库中删除指定记录

            myCommand.ExecuteNonQuery ( ) 

            '从DataSet中删除指定记录

            myDataSet.Tables ( "person" ).Rows ( myBind.Position ).Delete ( ) 

            myDataSet.Tables ( "person" ).AcceptChanges ( ) 

            myConn.Close ( ) 

End Sub   

 

 

< II > .删除Sql Server 2000数据库中的记录： 

 

 

     

    Private Sub button4_Click (ByVal sender As Object , _

      ByVal e As System.EventArgs) Handles button4.Click

     '连接到一个数据库

            Dim strCon As String = " Provider = SQLOLEDB.1 ; 

   Persist Security Info = False ; User ID = sa ; 

   Initial Catalog = data1 ; Data Source = server1 "

            Dim myConn As OleDbConnection = New OleDbConnection ( strCon )

            myConn.Open ( ) 

            Dim strDele As String = "DELETE FROM person WHERE id= " + t_id.Text

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

            '从数据库中删除指定记录

            myCommand.ExecuteNonQuery ( ) 

            '从DataSet中删除指定记录

            myDataSet.Tables ( "person" ).Rows ( myBind.Position ).Delete ( ) 

            myDataSet.Tables ( "person" ).AcceptChanges ( ) 

            myConn.Close ( ) 

End Sub