VB中SQLDMO的应用

sor = Windows.Forms.Cursors.Default()
Application.DoEvents()
Dim mouseCur As Cursor
Me.Cursor = Windows.Forms.Cursors.WaitCursor
bkps.SQLBackup(oSQLServer)
ProgressBar1.Value = 100
Application.DoEvents()
bkps = Nothing
Me.Cursor = Windows.Forms.Cursors.Default()
MsgBox("数据库备份完成", MsgBoxStyle.Information, "系统消息")
End Sub

''显示进度

Private Sub bkps_PercentComplete(ByVal Message As String, ByVal Percent As Integer) Handles bkps.PercentComplete
ProgressBar1.Value = ProgressBar1.Maximum * (Percent / 100)
End Sub

自动发布MS SQL SERVER数据库

当您的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

Publ