Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› DAOADOADP链接表DBMS › 查看内容

用代码复制.mdf文件到MSDE数据库服务器

2015-4-20 12:22| 发布者: admin| 查看: 1396| 评论: 7|原作者: zhuyiwen|来自: www.office-cn.net

摘要: Public Function sCopyMDF(sSvrName As String, sUID As String, sPWD As String, sMDFName As String) As String '******************************************************************** '这个函数将检查MSDE ...

Public Function sCopyMDF(sSvrName As String, sUID As String, sPWD As String, sMDFName As String) As String

'********************************************************************
'这个函数将检查MSDE服务器上是否存在 DemoDatabase 数据库，如果不存在，则
'本函数将把ADP项目中所用的 adp1sql1.mdf 文件复制到MSDE的数据目录，并建立引用
'
'输入:
' sSvrName 数据库服务器名
' sUID       用户名
' sPWD       口令
' sMDFName MSDE上数据文件名
'
'输出:
' 解释复制结果
'
'引用:
' SQLDMO
' Scripting Runtime
'********************************************************************
Dim FSO As Scripting.FileSystemObject
Dim osvr As SQLDMO.SQLServer
Dim strMessage As String
Dim db As Variant
Dim fDataBaseFlag As Boolean
Dim x

On Error GoTo sCopyMDFTrap

'在 FSO.Copyfile 中所使用的驱动器名称，以及 oSvr.AttachDBWithSingleFile
'中程序匹配的位置和终端用户机器上的MSDE服务器

'初始化返回值
sCopyMDF = ""
fDataBaseFlag = False

Set FSO = CreateObject("Scripting.FileSystemObject")
Set osvr = CreateObject("SQLDMO.SQLServer")

'登录数据库
osvr.Connect sSvrName, sUID, sPWD

x = osvr.Databases.Count  '如果失败 DMO 需要初始化

'通过在本地MSDE服务器轮询，检查本地MSDE服务器上是否存在 DemoDatabase 数据库
'实例
For Each db In osvr.Databases

      If db.Name = "DemoDatabase" Then '数据库存在
         fDataBaseFlag = True
         Exit For '退出循环
      End If

Next

If Not fDataBaseFlag Then '没有名为 DemoDatabase 的数据库
      '复制文件到MSDE的数据目录
      FSO.CopyFile Application.CurrentProject.Path & "\" & sMDFName, _
         osvr.Databases("master").PrimaryFilePath & sMDFName, True
      '匹配数据库
      strMessage = osvr.AttachDBWithSingleFile("DemoDatabase", _
         osvr.Databases("master").PrimaryFilePath & sMDFName)
      '返回结果
      sCopyMDF = "已复制 " & sMDFName & " 到 MSDE 数据文件目录"
Else
      sCopyMDF = "在MSDE服务器上已经存在 " & sMDFName
End If

ExitCopyMDF:
osvr.Disconnect
Set osvr = Nothing
Exit Function

sCopyMDFTrap:

If Err.Number = -2147216399 Then  'DMO 需要初始化
      Resume Next
Else
      sCopyMDF = Err.Description
End If
Resume ExitCopyMDF
Exit Function

End Function

1、用于ADP项目发布时，安装SQL Server数据库。
2、当SQL Server崩溃后，只要SQL Server的数据库.mdf文件未损坏，即可用本例程序恢复。　

收藏分享邀请

上一篇：用代码启动MSDE服务器下一篇：Access中，用ADP基于窗体控件参数查询，两步到位，绝对简单！！

发表评论

帐号		自动登录	找回密码
密码			注册

用代码复制.mdf文件到MSDE数据库服务器

最新评论

相关分类