classprovider.vb

来自「Chuong trinh tren PDA cho phep ket noi v」· VB 代码 · 共 75 行

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