frm_deletebook.vb

是关于图书管理系统的用vb.net 和access开发的

Imports System.Data.OleDb

Public Class frm_DeleteBook


    Dim myConnection As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; Data source=D:\library.mdb")
    Dim myCommand As OleDbCommand
    Dim myReader As OleDbDataReader

    Dim dataset1 As DataSet
    Dim dataAd As OleDbDataAdapter

    Private Sub isbntxt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ISBNtxt.KeyPress

        Dim isbn As String = ""
        Dim status As String = ""

        If e.KeyChar = ChrW(System.Windows.Forms.Keys.Enter) Then

            dataset1 = New DataSet("dataset1")
            dataAd = New OleDbDataAdapter()

            myConnection.Open()

            myCommand = New OleDbCommand("select * from BookDetails where isbn= '" & ISBNtxt.Text & "'", myConnection)

            myReader = myCommand.ExecuteReader()


            While myReader.Read
                isbn = myReader("ISBN")

            End While

            If isbn = "" Then
                MsgBox("This book is not in the database yet!")

                myReader.Close()
                myConnection.Close()
                myCommand.Dispose()

                Exit Sub
            End If

         

            myReader.Close()

            dataAd.SelectCommand = myCommand
            dataAd.Fill(dataset1, "BookDetails")

            DataGridView1.DataSource = dataset1

            DataGridView1.DataMember = "BookDetails"

            myConnection.Close()
            myCommand.Dispose()

        End If

    End Sub

    Private Sub deletebt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deletebt.Click
        deleteBook()
    End Sub

    Sub deleteBook()
        myConnection.Open()

        myCommand = New OleDbCommand("Delete from bookDetails where isbn='" & ISBNtxt.Text & "'", myConnection)

        myCommand.ExecuteNonQuery()

        myConnection.Close()
        myCommand.Dispose()
        myReader.Close()

        MsgBox("Delete Success!")
    End Sub

    Private Sub exitbt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitbt.Click
        Me.Close()
    End Sub
End Class