用VB实现根据脚本文件来创建测试SqlServer数据库

 

'读取文本文件
Public Function ReadFile(ByVal strFile As String) As String
On Error GoTo aaaa
    Open strFile For Input As #1
        ReadFile = StrConv(InputB$(LOF(1), #1), vbUnicode)
    Close #1
Exit Function
aaaa:
    ReadFile = ""
End Function

'获得程序所在目录
Public Function GetApp() As String
    GetApp = App.Path
    If Right$(GetApp, 1) <> "/" Then GetApp = GetApp & "/"
End Function

'根据脚本文件来创建测试数据

'读数据库脚本文件
sql = ReadFile(GetApp & "Data.sql")

'根据每个SQL的分割标记一一执行数据库创建操作
s = Split(sql, "+_________+")
For i = 0 To UBound(s)
 If Trim(s(i)) <> "" Then cnMain.Execute s(i)
Next
MsgBox "创建测试数据成功！", vbInformation