frm_deleteuser.vb

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

Imports System.Data.OleDb

Public Class frm_deleteUser

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


    Dim dataset1 As DataSet
    Dim dataAd As OleDbDataAdapter

    Friend readerNo As String

    Private Sub frm_deleteUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        myConnection.Open()

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

        myCommand = New OleDbCommand("select rd.Name,rt.type,rd.Address,rd.Phone,rd.Email, rd.Sex, rd.AlreadyBorrNo,rd.Status" & _
       " from ReaderDetails rd ,ReaderType rt where rd.ReaderTypeCode=rt.ReaderTypeCode and ReaderNo='" & readerNo & "'", myConnection)


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

        DataGridView1.DataSource = dataset1

        DataGridView1.DataMember = "BookDetails"


        myConnection.Close()
        myCommand.Dispose()

    End Sub
    ' 
    Private Sub deletebt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deletebt.Click
        myConnection.Open()
        myCommand = New OleDbCommand("Delete From ReaderDetails where  ReaderNo='" & readerNo & "'", myConnection)

        myCommand.ExecuteNonQuery()
        myConnection.Close()
        myCommand.Dispose()


        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