求毕业论文的测试部分,怎么写
有两个问题:(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, "祝贺" --------------------编程问答-------------------- conn.Close
这句话我不知道是否该放在哪个位置,或者部分,请指教,谢谢高手!! --------------------编程问答-------------------- 关闭数据库运行试一下 --------------------编程问答-------------------- 我是数据库盲.顶 --------------------编程问答-------------------- 谢谢两位的回答,哈哈 --------------------编程问答-------------------- 谁能回答立刻加分,谢谢! --------------------编程问答-------------------- (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, "祝贺" --------------------编程问答-------------------- conn.Close
前面也没见到你打开连接呀?用这句话做什么??
和前面 Set conn = Nothing 前后顺序有点冲突
通常都是先关闭后撤销对象`!
--------------------编程问答-------------------- conn.Close 应该放在jro.CompactDatabase strS, strT 的后面吧~
测试部分就是写你对这个系统功能的测试啊,是否成功有什么错误,还有什么可以改进的这些吧~
--------------------编程问答-------------------- (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 图书管理系统的登录名是:‘管理员’ --------------------编程问答-------------------- 哪位有高见请指教 --------------------编程问答-------------------- 数据库压缩,这么简单的问题怎么没有高手回答?哎 --------------------编程问答--------------------
是 --------------------编程问答-------------------- 没搞过数据库压缩,像你这个问题你可以去SQL专区问问那里的各位老大,也许你能立刻得到你想要的答案 --------------------编程问答-------------------- 谢谢13楼的提醒 --------------------编程问答-------------------- (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 图书管理系统的登录名是:‘管理员’ --------------------编程问答-------------------- mark --------------------编程问答-------------------- 以前写的,仅供参考:
Access数据库的生成、修理压缩和版本转换
http://blog.csdn.net/lzmtw/archive/2006/06/01/768288.aspx
补充:.NET技术 , VB.NET