当您的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 |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-29 19:15 , Processed in 0.313988 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.