cargo.vb

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

Imports System.Data.SqlClient

Public Class Cargo
    Private dstCargo As DataSet
    Private conCargo As SqlConnection


    Public Sub New()
        conCargo = New SqlConnection()
        conCargo.ConnectionString = "Data Source=localhost;Initial Catalog=Cargo;Integrated Security=True;"
    End Sub

    Public Sub GetCustomers()
        Dim adpCust As New SqlDataAdapter("Select CustomerID, FirstName, LastName, CompanyName, Email, Address from Customers", conCargo)
        dstCargo = New DataSet()
        adpCust.Fill(dstCargo, "CustTable")
    End Sub

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