areacontroller.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 57 行

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.Practices.EnterpriseLibrary.Data
Imports Microsoft.Practices.EnterpriseLibrary.Common
Imports System.Data.Common

Namespace NetShopForge.Library.Address
    Public Class AreaController

        Public Function GetProvinceList() As IDataReader

            Dim sql As String = "select * from   nsf_province"
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetSqlStringCommand(sql)
            Return db.ExecuteReader(dbCommand)

        End Function

        Public Function GetCityString(ByVal provinceID As String) As String
            If provinceID.Trim.Length = 0 Then Return ""
            Dim sql As String = "select * from  nsf_city where  father=" & provinceID
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetSqlStringCommand(sql)

            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                Dim sb As New System.Text.StringBuilder
                While reader.Read
                    sb.Append(String.Format(",{0}|{1}", reader.Item("CityID"), reader.Item("City")))
                End While
                If sb.Length > 0 Then
                    Return sb.ToString.Substring(1)
                End If
            End Using
            Return ""
        End Function

        Public Function GetAreaString(ByVal cityID As String) As String
            If cityID.Trim.Length = 0 Then Return ""
            Dim sql As String = "select * from   nsf_Area Where father=" & cityID
            Dim db As Database = DatabaseFactory.CreateDatabase
            Dim dbCommand As DbCommand = db.GetSqlStringCommand(sql)
            Using reader As IDataReader = db.ExecuteReader(dbCommand)
                Dim sb As New System.Text.StringBuilder
                While reader.Read
                    sb.Append(String.Format(",{0}|{1}", reader.Item("AreaID"), reader.Item("Area")))
                End While
                If sb.Length > 0 Then
                    Return sb.ToString.Substring(1)
                End If
            End Using
            Return ""
        End Function
    End Class
End Namespace