productsdb.vb

来自「This is a book about vb.you could learn 」· VB 代码 · 共 57 行

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


Namespace IBuyAdventure

   Public Class ProductsDB 
   
      Dim m_ConnectionString As String
      
      Public Sub New(dsn As String)
         m_ConnectionString = dsn
      End Sub

      Public Function GetProduct(productCode As String) As DataSet

          Dim sqlConnection As New SqlConnection(m_ConnectionString)
          Dim sqlAdapter1 As New SqlDataAdapter("SELECT * FROM Products WHERE ProductCode='" _
          	& productCode & "'", sqlConnection)

          Dim products As New DataSet()
          sqlAdapter1.Fill(products, "products")

          Return Products
          
      End Function
   
      Public Function GetProducts(category As String) As DataSet

          Dim sqlConnection As New SqlConnection(m_ConnectionString)
          Dim sqlAdapter1 As New SqlDataAdapter("SELECT * FROM Products WHERE ProductType='" _
          	& category & "'", sqlConnection)

          Dim products As New DataSet()
          sqlAdapter1.Fill(products, "products")

          Return Products
          
      End Function

      Public Function GetProductCategories() As DataSet

          Dim sqlConnection As New SqlConnection(m_ConnectionString)
          Dim sqlAdapter1 As New SqlDataAdapter("SELECT Distinct ProductType FROM Products", sqlConnection)

          Dim products As New DataSet()
          sqlAdapter1.Fill(products, "products")

          Return Products
          
      End Function
   
   End Class

End Namespace