Dim strDele As String = ″DELETE From student WHERE StuID = ″ txtStuID.Text
3.修改数据记录
修改数据的方法有很多,本文中我们将以采用SQL语言来修改数据记录为例详细介绍一下如何修改数据记录。下面我们先看看程序代码:
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()
'以上代码用来连接数据源
myDataSet.Tables(″student″).Rows(Me.BindingContext(myDataSet, ″student″).Position).BeginEdit()
'利用SQL语句创建数据更新集合
Dim StrUpdate As String = ″Update student SET StuName='″ txtStuName.Text ″',StuSex='″ txtStuSex.Text ″',StuBorn='″ txtStuBorn.Text ″',StuCore='″ txtStuCore.Text ″' WHERE StuID='″ txtStuID.Text ″'″
'利用SQL结果创建新的OleDbCommand对象
Dim myCommand As OleDbCommand = New OleDbCommand(StrUpdate, myConn)
myCommand.ExecuteNonQuery()
myDataSet.Tables(″student″).Rows(Me.BindingContext(myDataSet, ″student″).Position).EndEdit()
myDataSet.Tables(″student″).AcceptChanges()
myConn.Close()
MsgBox(″数据修改完成!″)
上述代码中我们采用SQL语言中的Update语名来更新记录,对各个TextBox中的修改后更新到。其中重要语句就是SQL语句的编写。如果你有不明白的地方,请参阅SQL相关资料。代码中我们同时还利用了BeginEdit()与EndEdit()方法,任何从数据的修改都必须在这两个方法之间进行。前者是数据修改的入口,后者则是完成将数据写入的工作。vb编程
4.增加数据记录
增加数据记录与修改数据在实现方法上有很多相同之处。在下面的实例中我们利用SQL的Insert语句在指定位置插入一条记录,把更新到。如果你想在数据表最后增加一条记录,只需要将数据记录指针指向数据表末尾就行了。
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim ConnectionString As String = ″ Provider = Microsoft.Jet.OLEDB.4.0; Data Source = e:\My Documents\db1.mdb″
本文来自电脑杂谈,转载请注明本文网址:
http://www.pc-fly.com/a/ruanjian/article-46460-11.html
这事就算了