ordersdb.vb

This is a book about vb.you could learn this from this book

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

Namespace IBuyAdventure

   Public Class OrdersDB

      Dim m_ConnectionString As String

      Public Sub New(dsn As String)
         m_ConnectionString = dsn
      End Sub
      
      Public Function GetOrdersForCustomer(customerName As String) As DataSet

          Dim sqlConnection As New SqlConnection(m_ConnectionString)
          Dim sqlAdapter1 As New SqlDataAdapter("SELECT * FROM Orders WHERE CustomerName='" _
          		& customerName & "'", sqlConnection)

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

          Return products
          
      End Function
   
      Public Sub AddNewOrder(customerName As String, ordered As String, orderValue As Double)

          Dim insertStatement As String = "INSERT INTO Orders(CustomerName, Ordered, TotalValue)" _
          		& " values ('" & customerName & "', '" & ordered & "' , '" & orderValue & "')"

          Dim sqlConnection As New SqlConnection( m_ConnectionString)
          Dim myCommand As New SqlCommand(insertStatement, sqlConnection)

          myCommand.Connection.Open()
          myCommand.ExecuteNonQuery()
          myCommand.Connection.Close()
      
      End Sub

      Public Sub DeleteOrdersForCustomer(customerName As String)
      
          Dim updateStatement As String = "Delete Orders where customerName ='" & customerName & "'"

          Dim sqlConnection As New SqlConnection( m_ConnectionString)
          Dim myCommand As New SqlCommand(updateStatement, sqlConnection)

          myCommand.Connection.Open()
          myCommand.ExecuteNonQuery()
          myCommand.Connection.Close()

      End Sub

   End Class

End Namespace