productvb

很好的学习用c#构件网站的asp.net代码

Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.OleDb

Namespace EComNet 

    '*******************************************************
    '
    '*******************************************************

    Public Class ProductDetails 
    
        Public ModelNumber As String
        Public ModelName As String
        Public ProductImage As String
        Public UnitCost As Decimal
        Public Description As String
        
    End Class

    '*******************************************************
    '
    '*******************************************************

    Public Class ProductVB 

        '*******************************************************
        '
        '*******************************************************

        Public Function GetProductCategories() As DataSet

            Dim myConnection As OleDbConnection = new OleDbConnection(ConfigurationSettings.AppSettings("DSN"))
            Dim myCommand As OleDbDataAdapter = new OleDbDataAdapter("Select * From Class", myConnection)

            ' Create and Fill the DataSet
            Dim myDataSet As DataSet = new DataSet()
            myCommand.Fill(myDataSet, "CategoryList")

            ' Return the DataSet
            return myDataSet
        
        End Function
       
        '*******************************************************
        '
        '*******************************************************       
       
        Public Function GetProducts(categoryID As Integer) As OleDbDataReader

            Dim myConnection As OleDbConnection = new OleDbConnection(ConfigurationSettings.AppSettings("DSN"))
            Dim myCommand As OleDbCommand = new OleDbCommand("Select * From Product Where Class_No=" & categoryID & "", myConnection)
                myConnection.Open()
            Dim Reader As OleDbDataReader = myCommand.ExecuteReader()

                return Reader
            
        End Function

        '*******************************************************
        '        
        '*******************************************************    

        Public Function GetProductDetails(productID As Integer) As ProductDetails

            Dim myConnection As OleDbConnection = new OleDbConnection(ConfigurationSettings.AppSettings("DSN"))
            Dim myCommand As OleDbCommand = new OleDbCommand("Select * From Product Where Product_No = " &   ProductID & "", myConnection)

	    Dim Reader As OleDbDataReader

            Try 
                myConnection.Open()
                Reader=myCommand.ExecuteReader(CommandBehavior.CloseConnection)
            Catch e As Exception
                throw e
            End Try
           
            Dim myProductDetails As ProductDetails = new ProductDetails()

            While Reader.Read()

             myProductDetails.ModelNumber = CStr(Reader.Item("Product_No"))
             myProductDetails.ModelName = CStr(Reader.Item("Product_Name"))
             myProductDetails.ProductImage = CStr(Reader.Item("Product_Picture"))
             myProductDetails.UnitCost = CType(Reader.Item("Product_Price"), Decimal)
             myProductDetails.Description = CStr(Reader.Item("Product_Des"))

            End While
            
            return myProductDetails
        
        End Function


        '*******************************************************
        '
        '******************************************************* 

        Public Function GetMostPopularProductsOfWeek() As DataSet

            Dim myConnection As OleDbConnection = new OleDbConnection(ConfigurationSettings.AppSettings("DSN"))
			Dim SQL As String
			    SQL="Select Top 5 Product.Product_No,Sum(Order_List.Product_Qty) as TotalNum,Product.Product_Name"
				SQL=SQL +" From Order_List,Product Where Order_List.Product_No = Product.Product_No"
				SQL=SQL +" Group By Product.Product_No,Product.Product_Name Order By Sum(Order_List.Product_Qty) DESC"

            Dim myCommand As OleDbDataAdapter = new OleDbDataAdapter(SQL, myConnection)

            Dim myDataSet As DataSet = new DataSet()
            myCommand.Fill(myDataSet, "CategoryList")

            return myDataSet
        
        End Function
        
        '*******************************************************
        '
        '*******************************************************         
        
        Public Function SearchProductDescriptions(searchString As String) As OleDbDataReader

            Dim myConnection As OleDbConnection = new OleDbConnection(ConfigurationSettings.AppSettings("DSN"))
			Dim SQL As String
			    SQL="Select * From Product Where Product_Name LIKE '%" & searchString & "%' "
				SQL=SQL + " Or Product_Des LIKE '%" & searchString & "%'"
            Dim myCommand As OleDbCommand = new OleDbCommand(SQL, myConnection)
                myConnection.Open()
            Dim Reader As OleDbDataReader = myCommand.ExecuteReader()

                return Reader
            
        End Function
        
    End Class

End Namespace