Go homepage(回首页) Upload pictures (上传图片) Write articles (发文字帖)
The author:(作者)归海一刀published in(发表于) 2014/2/1 0:20:24 如何自动发布MS,SQL,SERVER数据库_[SQL,Server教程]
当您的MIS系统开发好以后,您如何尽快的分发您的数据库呢? 下面我将提供VB代码的具体实现:
Option Explicit
’define the sql connectDim oSQLServer As SQLDMO.SQLServerDim oCurrentDB As SQLDMO.DatabaseDim oCurrentTable As SQLDMO.TableDim oTestIdx As SQLDMO.Index
’sqlDmo is Connected Yes or NoPublic sName As StringPrivate IsConnected As Boolean
’connect to local database serverPublic 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 serverPublic 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 = rstringEnd Function
’delete the exists databasePublic Function DelDataBase(ByVal dbName As String) As Boolean Dim rstring rstring = oSQLServer.DetachDB(dbName) DelDataBase = TrueEnd 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.CloseEnd Sub
Public Function startServer() oSQLServer.Start TrueEnd FunctionPublic Sub stopserver() oSQLServer.StopEnd Sub
Public Property Get Name() As Variant Name = sNameEnd Property
Public Property Let Name(ByVal vNewValue As Variant) sName = vNewValue
End Property
赞