adr_address.vb

来自「对现代企业来说」· VB 代码 · 共 50 行

Imports System.Data
Imports System.Data.SqlServerCe
Imports System.Data.Common

Public Class Adr_Address
    Inherits DBTable
    Public Structure Address_Type
        Public Address_ID As Integer
        Public Name As String
        Public Address As String
        Public Telephone As String
        Public Last_Edited As DateTime
        Public IsPrivate_Flag As Boolean
    End Structure

    Private DBConnStr As String
    Public Sub New(ByVal DBConnStr As String)
        MyBase.New(DBConnStr)
    End Sub

    Public Function CreateTable() As Boolean
        REM =================================================================================== 
        REM Function to return a sorted data set of first genration child Address
        REM =================================================================================== 
        Dim ErrLoc As String = ClassName + ".CreateTable"
        Dim SQL As String
        Try
            SQL = "CREATE TABLE ADR_ADDRESS ( "
            SQL &= "Address_ID INT IDENTITY(1,1) PRIMARY KEY "
            'SQL &= "Address_ID INT "
            SQL &= ",Name nvarchar(50) "
            SQL &= ",Address ntext "
            SQL &= ",Telephone ntext "
            SQL &= ",Last_Edited datetime "
            SQL &= ",IsPrivate_Flag nvarchar(100) "
            SQL &= ")"

            If Not ExecuteSQL(SQL) Then
                Return False
            End If

            Return True

        Catch ex As Exception
            ErrMsg = UnHandledError(ex.ToString(), ErrLoc, SQL)
            Return False
        End Try
    End Function
End Class