如何在数据备份时用ACCESS源码实现对数据库的关闭

liangjing

我在做一个数据备份和恢复的模块, 在做备份老是提示这个数据库已经打开了, 要求关闭这个数据库,  但我已经写了源码来关闭数据库,

但是还是报同样的提示,  我的关于关闭数据库源码如下:

   Dim dbYY As ADODB.Connection
   set dbyy=  CurrentProject.Connection

   dbyy.close
   Set dbYY = Nothing

  请给予指正!!

andymark

试试

Dim dbYY As new ADODB.Connection

liangjing

还是不行!

andymark

把例子发上来，光看上面的语句判断不了

liangjing

例子如下:

fan0217

应该使用:CloseCurrentDatabase

以下示例通过 Automation 从其他应用程序打开一个 Microsoft Access 数据库，在其中创建一个新窗体并保存它，然后关闭该数据库。

可以将这段代码添加到任何能够作为 COM 组件的应用程序的 Visual Basic 模块中。例如，可从 Microsoft Excel 或 Microsoft Visual Basic 中运行下面的代码。

当指向 Application 对象的变量超出范围时，它所表示的 Microsoft Access 实例也将关闭。所以，必须在模块级说明这个变量。

1. ' Enter following in Declarations section of module.
   
   
2. Dim appAccess As Access.Application
   
   
3. 
   
   
4. Sub CreateForm()
   
   
5.     Const strConPathToSamples = "C:\Program Files\Microsoft Office\Office11\Samples"
   
   
6. 
   
   
7.     Dim frm As Form, strDB As String
   
   
8. 
   
   
9.     ' Initialize string to database path.
   
   
10.     strDB = strConPathToSamples & "Northwind.mdb"

复制代码

1. 
   
   
2.     ' Create new instance of Microsoft Access.
   
   
3.     Set appAccess = CreateObject("Access.Application")

复制代码

1. 
   
   
2.     ' Open database in Microsoft Access window.
   
   
3.     appAccess.OpenCurrentDatabase strDB

复制代码

1. 
   
   
2.     ' Create new form.
   
   
3.     Set frm = appAccess.CreateForm

复制代码

1. 
   
   
2.     ' Save new form.
   
   
3.     appAccess.DoCmd.Save , "NewForm1"

复制代码

1. 
   
   
2.     ' Close currently open database.
   
   
3.     appAccess.[b]CloseCurrentDatabase[/b]

复制代码

1. 
   
   
2.     Set AppAccess = Nothing
   
   
3. End Sub

复制代码

andymark

分开前后端,只备份后端

nxjswt

还可以在专做一个新的恢复数据库，用于恢复

liangjing

还是不行! 关了数据库后就啥活都不干了!

fan0217

建议你将数据库拆分,只备份后台就可以了.