求毕业论文的测试部分，怎么写

有两个问题：

（1）我用VB+Access编了个照片管理系统，现在到了Access数据库压缩修复部分了，不知道怎么写，麻烦各位了，最好详细些，
（2）还有就是毕业论文的测试部分，需要的图表该怎么画，测试怎么写啊，都写些什么，希望各位指教
以下是我的代码，错误信息：实时错误
尝试打开的数据库已经被机器‘ws01’上的用户‘管理员’以排它的方式打开。当数据库可使用后请再试一次。
Set conn = Nothing
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
Dim strS As String
Dim strT As String
strS = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB源码\NEW\图书管理系统.mdb"
strT = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB源码\NEW\图书管理系统01.mdb;Jet OLEDB:Engine Type=4"
conn.Close
jro.CompactDatabase strS, strT

 MsgBox "数据库压缩成功", vbInformation + vbOKOnly, "祝贺"

17 个解决方案

#1

conn.Close 
这句话我不知道是否该放在哪个位置，或者部分，请指教，谢谢高手！！

#2

关闭数据库运行试一下

#3

我是数据库盲.顶

#4

谢谢两位的回答，哈哈

#5

谁能回答立刻加分，谢谢！

#6

（1）我用VB+Access编了个图书管理系统，现在到了Access数据库压缩修复部分了，不知道怎么写，麻烦各位了，最好详细些， 
（2）还有就是毕业论文的测试部分，需要的图表该怎么画，测试怎么写啊，都写些什么，希望各位指教 
以下是我的代码，错误信息：实时错误 
尝试打开的数据库已经被机器‘ws01’上的用户‘管理员’以排它的方式打开。当数据库可使用后请再试一次。 
Set conn = Nothing 
Dim jro As jro.JetEngine 
Set jro = New jro.JetEngine 
Dim strS As String 
Dim strT As String 
strS = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB源码\NEW\图书管理系统.mdb" 
strT = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB源码\NEW\图书管理系统01.mdb;Jet OLEDB:Engine Type=4" 
conn.Close 
jro.CompactDatabase strS, strT 

MsgBox "数据库压缩成功", vbInformation + vbOKOnly, "祝贺"

#7

conn.Close 
前面也没见到你打开连接呀？用这句话做什么？？
和前面 Set conn = Nothing 前后顺序有点冲突
通常都是先关闭后撤销对象`!

#8

conn.Close 应该放在jro.CompactDatabase strS, strT 的后面吧~
测试部分就是写你对这个系统功能的测试啊，是否成功有什么错误，还有什么可以改进的这些吧~

#9

（1）我用VB+Access编了个图书管理系统，现在到了Access数据库压缩修复部分了，不知道怎么写，麻烦各位了，最好详细些， 
（2）还有就是毕业论文的测试部分，需要的图表该怎么画，测试怎么写啊，都写些什么，希望各位指教 
以下是我的代码， 
Dim jro As jro.JetEngine 
Set jro = New jro.JetEngine 
Dim strS As String 
Dim strT As String 
strS = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB源码\NEW\图书管理系统.mdb" 
strT = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB源码\NEW\图书管理系统01.mdb;Jet OLEDB:Engine Type=4" 

jro.CompactDatabase strS, strT 

MsgBox "数据库压缩成功", vbInformation + vbOKOnly, "祝贺"


错误信息：实时错误 
尝试打开的数据库已经被机器‘ws01’上的用户‘管理员’以排它的方式打开。当数据库可使用后请再试一次。 


计算机名：ws01      图书管理系统的登录名是：‘管理员’

#10

哪位有高见请指教

#11

数据库压缩,这么简单的问题怎么没有高手回答？哎

#12

引用 7 楼 Amy_Dream 的回复:

conn.Close 
前面也没见到你打开连接呀？用这句话做什么？？ 
和前面 Set conn = Nothing 前后顺序有点冲突 
通常都是先关闭后撤销对象`! 

是

#13

没搞过数据库压缩，像你这个问题你可以去SQL专区问问那里的各位老大，也许你能立刻得到你想要的答案

#14

谢谢13楼的提醒

#15

（1）我用VB+Access编了个图书管理系统，现在到了Access数据库压缩修复部分了，不知道怎么写，麻烦各位了，最好详细些， 
（2）还有就是毕业论文的测试部分，需要的图表该怎么画，测试怎么写啊，都写些什么，希望各位指教 
以下是我的代码， 
Dim jro As jro.JetEngine 
Set jro = New jro.JetEngine 
Dim strS As String 
Dim strT As String 
strS = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB源码\NEW\图书管理系统.mdb" 
strT = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB源码\NEW\图书管理系统01.mdb;Jet OLEDB:Engine Type=4" 

jro.CompactDatabase strS, strT 

MsgBox "数据库压缩成功", vbInformation + vbOKOnly, "祝贺" 


错误信息：实时错误 
尝试打开的数据库已经被机器‘ws01’上的用户‘管理员’以排它的方式打开。当数据库可使用后请再试一次。 


计算机名：ws01      图书管理系统的登录名是：‘管理员’

#16

mark

#17

以前写的,仅供参考:
Access数据库的生成、修理压缩和版本转换 
http://blog.csdn.net/lzmtw/archive/2006/06/01/768288.aspx