如何自动发布MS SQL SERVER数据库?

原创 2003年04月02日 08:58:00

 

'程序编写: 陈林茂

‘编写日期:2003-01-01

当您的MIS系统开发好以后,您如何尽快的分发您的数据库呢?

下面我将提供VB代码的具体实现:

Option Explicit


'define the sql connect
Dim oSQLServer As SQLDMO.SQLServer
Dim oCurrentDB As SQLDMO.Database
Dim oCurrentTable As SQLDMO.Table
Dim oTestIdx As SQLDMO.Index

'sqlDmo is Connected Yes or No
Public sName As String
Private IsConnected As Boolean

'connect to local database server
Public Function ConnectDmo() As Boolean
   On Error GoTo HandleError
   'If we're connected, then disconnect and clear lists.
   If IsConnected = True Then
        oSQLServer.DisConnect
        IsConnected = False
   End If
   'Begin connect to sqlserver or msde
   'Attempt a connection, then fill the properties stuff.
    oSQLServer.ApplicationName = "SQL-DMO Index Test"
    oSQLServer.LoginSecure = True
   
    'connect
    oSQLServer.Connect "(local)", "sa", ""
   
    IsConnected = True
    ConnectDmo = True
  
HandleError:
    'connect failth
    If IsConnected = False Then
      IsConnected = False
      ConnectDmo = False
    End If
   
End Function

'add a exists database to server
Public Function AddDataBase(ByVal dbName As String, ByVal DBPath As String, ByVal rstr As String) As Boolean
   Dim rstring
   'rstring = oSQLServer.AttachDBWithSingleFile(dbName, DBPath)
   rstring = oSQLServer.AttachDB(dbName, DBPath)
   AddDataBase = True
  
  
   rstr = rstring
End Function

'delete the exists database
Public Function DelDataBase(ByVal dbName As String) As Boolean
  Dim rstring
  rstring = oSQLServer.DetachDB(dbName)
  DelDataBase = True
End Function

Private Sub UserControl_Initialize()
  On Error GoTo merror
    Set oSQLServer = New SQLDMO.SQLServer
    oSQLServer.LoginTimeout = 15
    oSQLServer.ODBCPrefix = False
    Name = "msdeconn1"
merror:
End Sub

Public Function isDBexists(ByVal dbName As String) As Boolean
  Dim oDB As SQLDMO.Database
  Dim rc As Boolean
  'reconnect to database
  oSQLServer.DisConnect
  oSQLServer.ReConnect
 
  rc = False
  For Each oDB In oSQLServer.Databases
    If oDB.SystemObject = False Then
        If Trim(UCase(oDB.Name)) = Trim(UCase(dbName)) Then
          rc = True
        End If
    End If
  Next oDB
 
  'set the return value
  isDBexists = rc
 
End Function

Private Sub UserControl_Terminate()
  'end connect the database
  oSQLServer.Close
End Sub

Public Function startServer()
  oSQLServer.Start True
End Function

Public Sub stopserver()
  oSQLServer.Stop
End Sub

 

Public Property Get Name() As Variant
  Name = sName
End Property

Public Property Let Name(ByVal vNewValue As Variant)
  sName = vNewValue

End Property

MS SQL Server分析数据库的I/O性能

本文介绍了如何通过MS SQL Server提供的一些动态管理视图和函数分析磁盘I/O性能。...
  • dotnetstudio
  • dotnetstudio
  • 2014年05月21日 15:06
  • 2141

MS SQL数据批量备份还原(适用于MS SQL 2005+)

我们知道通过Sql代理,可以实现数据库的定时备份功能;当数据库里的数据库很多时,备份一个数据库需要建立对应的定时作业,相对来说比较麻烦; 还好,微软自带的osql工具,比较实用,通过在命令行里里输...
  • a497785609
  • a497785609
  • 2015年03月10日 14:32
  • 2066

MS SQL Server 存储过程学习(2)数据库存储过程详解

MS SQL Server 存储过程详解  存储过程的优缺点   ◆优点:   执行速度更快。存储过程只在创造时进行编译,而一般SQL语句每执行一次就编译一次,所以使用存储过程执行速度更快。 ...
  • szzhuyike
  • szzhuyike
  • 2013年02月06日 15:48
  • 1355

SQL Server 2008 数据库同步的两种方式(发布、订阅)

数据库发布订阅份为两个步骤:1、发布。2、订阅。首先在数据源数据库服务器上对需要同步的数据进行发布,然后在目标数据库服务器上对上述发布进行订阅。发布可以发布一张表的部分数据,也可以对整张表进行发布。下...
  • xgf415
  • xgf415
  • 2016年07月25日 16:36
  • 1988

国内SqlServer最牛人编写的MS SqlServer Sql 脚本优化规范及范例

/*==========================代码格式规范=====================*/   /* 1.T-SQL脚本有必要的缩进和换行,代码层次结构清晰, 一行的最...
  • Lance_Zhang_SH
  • Lance_Zhang_SH
  • 2015年10月13日 10:26
  • 1877

MS SQL Server 数据类型详解

本文转载自:http://blog.csdn.net/iamduoluo/article/details/6329199
  • xjh2011xjh
  • xjh2011xjh
  • 2014年05月13日 20:47
  • 1004

SQL Server 2008 R2的发布订阅配置实践

纸上得来终觉浅,绝知此事要躬行。搞技术尤其如此,看别人配置SQL SERVER的复制,发布-订阅、镜像、日志传送者方面的文章,感觉挺简单,好像轻轻松松的,但是当你自己去实践的时候,你会发现还真不是...
  • hliq5399
  • hliq5399
  • 2016年03月21日 13:27
  • 3350

Sql2008 r2 使用ftp 发布和订阅方式同步数据

Sql2008 r2使用发布和订阅方式同步数据 由于很多图片 本篇没有图片 详情可以进入下载页  http://download.csdn.net/download/yefighter/760374...
  • yefighter
  • yefighter
  • 2014年07月07日 15:16
  • 2366

SQL SERVER 2008 数据库文件恢复方法

 方法1:***成功案例*** --把备份的数据库数据文件(*.mdf)和日志文件(*.ldf)都拷贝到服务器的一个目录下,然后打开SL Server uery (查询分析器)进行操作。 -...
  • u013597888
  • u013597888
  • 2015年08月02日 10:00
  • 1772

无法升级数据库,因为此版本的SQLServer不支持该数据库的非发布版本(539)“解决方案

转载自点击打开链接 无法升级数据库....因为此版本的SQLServer不支持该数据库的非发布版本(539)“解决方案 2015-06-19      0 个评论    ...
  • daisyleedq
  • daisyleedq
  • 2016年05月18日 00:51
  • 1964
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何自动发布MS SQL SERVER数据库?
举报原因:
原因补充:

(最多只允许输入30个字)