cargo.vb

来自「vb.net MCP课程的英文讲义,70-310课程,值得一读」· VB 代码 · 共 24 行

Imports System.Data.SqlClient

Public Class Cargo
    Private dstCargo As DataSet

    Public Sub GetCustomers()
        Dim conCargo As SqlConnection
        Dim adpCust As SqlDataAdapter
        conCargo = New SqlConnection()
        conCargo.ConnectionString = "Data Source=localhost;Initial Catalog=Cargo;Integrated Security=True;"
        adpCust = New SqlDataAdapter("Select CustomerID, FirstName, LastName, CompanyName, Email, Address from Customers", conCargo)
        dstCargo = New DataSet()
        adpCust.Fill(dstCargo, "CustTable")
        conCargo.Close()
    End Sub

    Public ReadOnly Property CustList() As DataTable
        Get
            Return dstCargo.Tables("CustTable")
        End Get
    End Property

End Class