categories.vb

.net 编写的电子商务系统 使用方便 超做简单 好用

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

Namespace Services

    Public Class Categories

        Public Connstring As String = _
        "Data Source=localhost;Initial Catalog=store;user id=sa;pwd=sa"

        Public Function GetProductCategories() As DataSet
            Dim sqlcmdSelectCategories As New SqlCommand("sp_Categories_SEL")
            With sqlcmdSelectCategories
                .CommandType = CommandType.StoredProcedure
            End With
            Dim dsCategories As New DataSet()
            Dim sqlconInetShop As New SqlConnection(Connstring)
            sqlcmdSelectCategories.Connection = sqlconInetShop
            Dim sqladpCategories As New SqlDataAdapter(sqlcmdSelectCategories)
            sqladpCategories.Fill(dsCategories, "Categories")
            Return dsCategories
        End Function

        Public Function GetProduct(ByVal strProductID As String) As dsProduct
            Dim sqlcmdSelectProduct As New SqlCommand("sp_Products_SEL_byProductID")
            With sqlcmdSelectProduct
                .CommandType = CommandType.StoredProcedure
                With .Parameters
                    .Add("@chrProductID", SqlDbType.Char, 38)
                    .Item("@chrProductID").Value = strProductID
                End With
            End With
            Dim dsProducts As New dsProduct()
            Dim sqlconIBuyAdventure As New SqlConnection(Connstring)
            sqlcmdSelectProduct.Connection = sqlconIBuyAdventure
            Dim sqladpProducts As New SqlDataAdapter(sqlcmdSelectProduct)
            sqladpProducts.Fill(dsProducts, "Products")
            Return dsProducts
        End Function

        Public Function GetProducts(ByVal strCategoryID As String) As dsProduct
            Dim sqlcmdSelectProducts As New SqlCommand("sp_Products_SEL_byCategoryID")
            With sqlcmdSelectProducts
                .CommandType = CommandType.StoredProcedure
                With .Parameters
                    .Add("@chrCategoryID", SqlDbType.Char, 38)
                    .Item("@chrCategoryID").Value = strCategoryID
                End With
            End With
            Dim dsProducts As New dsProduct()
            Dim sqlconIBuyAdventure As New SqlConnection(Connstring)
            sqlcmdSelectProducts.Connection = sqlconIBuyAdventure
            Dim sqladpProducts As New SqlDataAdapter(sqlcmdSelectProducts)
            sqladpProducts.Fill(dsProducts, "Products")
            Return dsProducts
        End Function

        Public Function GetCategory(ByVal strCategoryID As String) As DataSet
            Dim sqlcmdSelectCategory As New SqlCommand("sp_Categories_SEL_byCategoryID")
            With sqlcmdSelectCategory
                .CommandType = CommandType.StoredProcedure
                With .Parameters
                    .Add("@chrCategoryID", SqlDbType.Char, 38)
                    .Item("@chrCategoryID").Value = strCategoryID
                End With
            End With
            Dim dsCategories As New DataSet()
            Dim sqlconIBuyAdventure As New SqlConnection(Connstring)
            sqlcmdSelectCategory.Connection = sqlconIBuyAdventure
            Dim sqladpCategories As New SqlDataAdapter(sqlcmdSelectCategory)
            sqladpCategories.Fill(dsCategories, "Categories")
            Return dsCategories
        End Function

        Public Function ProductsSearch(ByVal strSearch As String) As dsProduct
            Dim sqlcmdSelectProducts As New SqlCommand("sp_Products_Search")
            With sqlcmdSelectProducts
                .CommandType = CommandType.StoredProcedure
                With .Parameters
                    .Add("@strSearch", SqlDbType.Char, 38)
                    .Item("@strSearch").Value = strSearch
                End With
            End With
            Dim dsProducts As New dsProduct()
            Dim sqlconIBuyAdventure As New SqlConnection(Connstring)
            sqlcmdSelectProducts.Connection = sqlconIBuyAdventure
            Dim sqladpProducts As New SqlDataAdapter(sqlcmdSelectProducts)
            sqladpProducts.Fill(dsProducts, "Products")
            Return dsProducts
        End Function

    End Class

End Namespace