数据库表里的记录成功删除了,操作界面里还能看到被删除记录
具体问题:
通过操作界面的删除按钮删除数据库表里的记录,点"删除"按钮后表里的记录成功被删除,但是在操作界面里通过"上一条"和
"下一条"按钮还能看到被删除的记录.
删除按钮的代码如下:
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
objConn.Open()
Dim strDEL As String = "delete From ReaderDetails where ReaderNo = '" & TextBox3.Text & "'"
Dim objCmd As New OdbcCommand(strDEL, objConn)
objCmd.ExecuteNonQuery()
objConn.Close()
loaddata()
End Sub
Form1部分代码如下:
Public Class Form1
Dim MyBind As BindingManagerBase
Dim strConn As String = "Driver={SQL Server};server=(local);Trusted_connection=Yes;Database=LibararyManagementSystem;"
Dim objConn As New OdbcConnection(strConn)
Dim objAdap As New OdbcDataAdapter()
Dim objDSet As New DataSet
Sub loaddata()
objConn.Open()
Dim strSql As String = "select * from ReaderDetails"
objAdap.SelectCommand = New OdbcCommand(strSql, objConn)
objConn.Close()
objAdap.Fill(objDSet, "ReaderDetails")
TextBox1.DataBindings.Add(New Binding("Text", objDSet, "ReaderDetails.ReaderName"))
TextBox2.DataBindings.Add(New Binding("text", objDSet, "ReaderDetails.Address"))
TextBox3.DataBindings.Add(New Binding("text", objDSet, "ReaderDetails.ReaderNo"))
TextBox4.DataBindings.Add(New Binding("text", objDSet, "Readerdetails.ReaderEmail"))
MyBind = Me.BindingContext(objDSet, "ReaderDetails")
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
loaddata()
End Sub
:
:
:
:
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
objConn.Open()
Dim strDEL As String = "delete From ReaderDetails where ReaderNo = '" & TextBox3.Text & "'"
Dim objCmd As New OdbcCommand(strDEL, objConn)
objCmd.ExecuteNonQuery()
objConn.Close()
loaddata()
End Sub
End Class
哪位朋友能帮看看该怎么改吗?
vb.net我是自学的,数据库连接这一章的代码现在只能看懂和模仿,自己写不出来.所以能写详细一点吗.谢谢了