classprovider.vb

Chuong trinh tren PDA cho phep ket noi ve server va cap nhat du lieu ve PDA

Imports System.Data.SqlServerCe
Imports System.IO
Imports System.Reflection

Public Module Module1
    Public Const sMyCode As String = "X0001"
End Module

Public Class ClassProvider



    Private FileName As String = "MyDataBase.sdf"
    Private FilePath As String = ((System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) + "\"))
    Private ConnectString As String = "Data Source =" + Me.VFilePath + Me.VFileName
    Private Connection As SqlCeConnection

    Property VFileName() As String
        Get
            Return FileName
        End Get
        Set(ByVal value As String)
            FileName = value
        End Set
    End Property

    Property VFilePath() As String
        Get
            Return FilePath
        End Get
        Set(ByVal value As String)
            FilePath = value
        End Set
    End Property

    Property VConnectString() As String
        Get
            Return ConnectString
        End Get
        Set(ByVal value As String)
            ConnectString = value
        End Set
    End Property

    Property VConnection() As SqlCeConnection
        Get
            Return Connection
        End Get
        Set(ByVal value As SqlCeConnection)
            Connection = value
        End Set
    End Property

    Public Function IsConnect() As Boolean
        Dim Name As String = Me.FilePath + Me.FileName
        Try
            If (File.Exists(Name)) Then
                Return True
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function

    Public Sub Connect()
        Me.Connection = New SqlCeConnection(Me.VConnectString)
        Me.Connection.Open()
    End Sub

    Public Sub DisConnect()
        Me.Connection.Close()
    End Sub
End Class