打印本文 打印本文 关闭窗口 关闭窗口
自动安装SQL Server数据库
作者:武汉SEO闵涛  文章来源:敏韬网  点击数25105  更新时间:2007/11/14 13:00:23  文章录入:mintao  责任编辑:mintao
if exists (select * from sysdevices where name=''''TruckDB'''')

       EXEC sp_dropdevice ''''TruckDB''''

Else

       EXEC sp_addumpdevice ''''disk'''',''''TruckDB'''', ''''C:\Program Files\Microsoft SQL Server\MSSQL\Data\TruckDB.mdf''''

 

restore database TruckDB

from disk=''''c:\TempDB\TruckDB''''

with replace

 

 

 

   其次,在你的工程中添加一个Installer Class:选中Project主工程,添加Installer Class,名称假定为installer1。选择instller1的代码页,添加下面的代码:

 

Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)

''''重写install方法

       

Dim file As System.IO.File

        If file.Exists("C:\Program Files\Microsoft SQL Server\MSSQL\Data\TruckDB_data.mdf") = True Then Exit Sub

        MyBase.Install(stateSaver)

 

        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")

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  下一页

打印本文 打印本文 关闭窗口 关闭窗口