creatsql.bas

来自「MSN客服自动化机器人」· BAS 代码 · 共 38 行

Attribute VB_Name = "CreatSQL"
Const dataStartLine = 7
Const dataEndLine = 100

Const itemNameCol = 3
Const folderNameCol = 20
Const propertiesCol = 31
Const numberCol = 36
Const keyCol = 39
Const mustCol = 41
Const defaultCol = 44

Const OBJ_EXT = ".SQL"

Dim spgname         As String
Dim sdbname As String
Dim sfxdate         As String
Dim sver           As String
Dim sclName           As String

Dim itemValue          As String
Dim folderValue    As String
Dim numberValue          As String
Dim mustValue          As String
Dim propertiesValue          As String
Dim keyValue          As String
Dim defaultValue      As String

Dim result           As Boolean
    
Public sfileName As String

'--------------------------------------------------------------------------------
'SQL暥嶌惉(偝偔偣偄)
'--------------------------------------------------------------------------------
Sub CreatSQL()

    '弶婜