frm_purchaselist.vb

来自「是关于图书管理系统的用vb.net 和access开发的」· VB 代码 · 共 33 行

Imports System.Data.OleDb
Public Class frm_PurchaseList
    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



    Private Sub frm_PurchaseList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dataset1 = New DataSet("dataset1")
        dataAd = New OleDbDataAdapter()

        myConnection.Open()

        myCommand = New OleDbCommand("select ISBN,BookName,Author,PublishDate,Edition,LibDate,Publisher,Price " & _
 "from BookDetails where Status='lost'", myConnection)

        ' myConnection.Open()

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

        DataGridView1.DataSource = dataset1

        DataGridView1.DataMember = "BookDetails"

        myConnection.Close()
        myCommand.Dispose()
    End Sub
End Class