• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

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

sqlserver 搞代码 3年前 (2018-06-16) 87次浏览 已收录 0个评论

 

‘程序编写: 陈林茂

‘编写日期:2003-01-01

http://www.gaodaima.com/35814.html如何自动发布MS SQL SERVER数据库?_sqlserver

当您的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数据库?_sqlserver》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址