Next

End Sub

Private Function InstallDB(ByVal path As String) As Boolean

‘安装数据库，调用自动批处理。

        ''''Dim CheckedDir As System.IO.Directory

        ''''If CheckedDir.Exists(“C:\Program Files\Microsoft SQL Server\MSSQL\Data”) = False Then

''''CheckedDir.CreateDirectory(“C:\Program Files\Microsoft SQL Server\MSSQL\Data”)

        ''''End If

        Try

Shell(“c:\TempDB\Restore.bat”, AppWinStyle.Hide, True)

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >>