clsmyfavourite.vb

嵌入式系统的发展异常迅速

Imports System.Data.SqlServerCe
Imports System.Data.SqlServerCe.SqlCeException
Imports System.Xml
Imports System.Reflection
Imports System.io
Imports System.text
Public Class clsMyFavourite
    'This class will used to fetch information from the database
    Public Function Request(ByVal sRequest As String, Optional ByVal iId As Integer = -1) As SqlCeDataReader
        Dim sSql As String
        Dim Reader As SqlCeDataReader
        Dim oDBAccess As New DBAccess
        Select Case sRequest.ToUpper
            Case "LIST"
                sSql = "Select Id, Caption, URL, Remarks, CONVERT(nvarchar(10), UpdatedOn, 101) As UpdatedOn From MyFavourite"
                sSql &= " Order By Caption"
            Case "MYFAVOURITE"
                sSql = "Select Id, Caption, URL, Remarks, CONVERT(nvarchar(10), UpdatedOn, 101) As UpdatedOn From MyFavourite"
                If iId <> -1 Then
                    sSql &= " Where Id=" & iId & ""
                End If
        End Select
        Reader = oDBAccess.OpenResultSet(sSql)
        oDBAccess = Nothing
        Return Reader
    End Function

End Class
Public Class clsMyFavouritetrn
    '//This class will handel Insert, Update and delete operation
    Public Function Apply(ByVal sSql As String)
        Dim oDBAccess As New DBAccess
        oDBAccess.ExecuteSQL(sSql)
    End Function
    Public Property GetFavId() As Integer
        Get
            Dim oDBAccess As New DBAccess
            Dim Reader As SqlCeDataReader
            Dim Id As Integer
            Reader = oDBAccess.OpenResultSet("Select Max(Id) As Id From MyFavourite")
            oDBAccess = Nothing
            Id = 0
            While Reader.Read
                Id = Reader.Item("Id")
            End While
            Reader.Close()
            If Id = 0 Then
                Id = 1
            Else
                Id += 1
            End If
            Return Id
        End Get
        Set(ByVal Value As Integer)

        End Set
    End Property
End Class