inventorymanagement.vb

来自「Visual Basic.NET控件时尚编程百例」· VB 代码 · 共 28 行

Imports System
Imports System.Data
Imports System.Data.SqlClient

Namespace Services
    Public Class InventoryManagement
        Public Connstring As String = "Data Source=localhost;Initial Catalog=Shop;user id=sa;pwd=sa"
        Public Function GetInventoryInformation(ByVal strProductID As String) As dsInventory
            Dim sqlcmdSelectInventory As New SqlCommand("sp_Inventory_SEL_byProductID")
            With sqlcmdSelectInventory
                .CommandType = CommandType.StoredProcedure
                With .Parameters
                    .Add("@chrProductID", SqlDbType.Char, 38)
                    .Item("@chrProductID").Value = strProductID
                End With
            End With
            Dim dsInventory As New dsInventory()
            Dim sqlconIBuyAdventure As New SqlConnection(Connstring)
            sqlcmdSelectInventory.Connection = sqlconIBuyAdventure
            Dim sqladpInventory As New SqlDataAdapter(sqlcmdSelectInventory)
            sqladpInventory.Fill(dsInventory, "Inventory")
            Return dsInventory
        End Function

    End Class
End Namespace