productvb.vb

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

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

Namespace EComNet 


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

    Public Class ProductVB 

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

        Public Function GetClass() As DataSet

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

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

            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 OleDbDataReader

            Dim myConnection As OleDbConnection = new OleDbConnection(ConfigurationSettings.AppSettings("DSN"))
            Dim myCommand As OleDbCommand = new OleDbCommand("Select * From Product Where Product_No = " &   ProductID & "", myConnection)
                myConnection.Open()
	        Dim Reader As OleDbDataReader=myCommand.ExecuteReader()
                
				return Reader
        
        End Function


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

        Public Function GetMostPopularProducts() 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, "Popular")

            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