初始化

Database/Sqlite/DataParam.vb

@@ -0,0 +1,106 @@
+Imports System.Text
+
+Namespace Database.Sqlite
+    Public Class DataParam
+        Enum DataTypeEnum
+            Varchar
+            Nchar
+            Blob
+            Bit
+            Datetime
+            [Decimal]
+            Real
+            UniqueIdentifier
+            Int
+            [Integer]
+            TinyInt
+            [Single]
+            Nvarchar
+            SmallInt
+            SmallUint
+            Uint
+            UnsignedInteger
+        End Enum
+
+        ''' <summary>
+        ''' 列名
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property ColumnName() As String
+
+        ''' <summary>
+        ''' 当前值
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property Value() As String
+
+
+        ''' <summary>
+        ''' 默认值
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property DefaultValue() As String
+
+        ''' <summary>
+        ''' 数据类型
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property DataType() As DataTypeEnum
+
+        ''' <summary>
+        ''' 数据类型长度
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property DataTypeLength() As Integer
+
+
+        ''' <summary>
+        ''' 是否允许为空
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property IsNull() As Boolean = True
+
+        ''' <summary>
+        ''' 是否自动增长
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property IsAutoIncrement() As Boolean
+
+        ''' <summary>
+        ''' 是否为主键
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property IsPrimaryKey() As Boolean
+
+        ''' <summary>
+        ''' 是否为唯一值
+        ''' </summary>
+        ''' <returns></returns>
+        Public Property IsUnique() As Boolean
+
+
+        Public Function ToAddColString() As String
+            Dim sb As New StringBuilder
+            sb.Append($"`{ColumnName}`")
+
+            Select Case DataType
+                Case DataTypeEnum.Varchar, DataTypeEnum.Nchar, DataTypeEnum.Nvarchar
+                    sb.Append($" {DataType}({DataTypeLength}) ")
+                Case DataTypeEnum.Int,DataTypeEnum.Integer
+                    sb.Append($" {DataType}")
+                Case Else
+                    sb.Append($" {DataType}")
+            End Select
+
+            If IsAutoIncrement Then sb.Append($" AUTOINCREMENT")
+
+            sb.Append(IIf(IsNull, " Default Null", " Not Null"))
+
+            If IsPrimaryKey Then
+                sb.Append($" PRIMARY KEY")
+            End If
+
+            Return sb.ToString()
+        End Function
+    End Class
+End Namespace

Database/Sqlite/SqliteCmdHelper.vb

@@ -0,0 +1,20 @@
+Namespace Database.Sqlite
+    Public Class SqliteCmdHelper
+        Inherits DbCmdHelper
+
+        Sub New()
+            FiledSuffix = "["c
+            FiledPrefix = "]"c
+        End Sub
+
+        ''' <summary>
+        ''' 查询指定数据表的信息
+        ''' </summary>
+        ''' <param name="tableName"></param>
+        ''' <returns></returns>
+        Public Overrides Function SearchTableInfo(tableName As String) As String
+            Return $"select * from sqlite_master where tbl_name = '{tableName}';"
+        End Function
+
+    End Class
+End Namespace