?? cargo.vb
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -