你可以在本地设置一个本地数据库,当网络不通时使用本地数据库工作,当网络恢复后,两者同步。
不过这样做必须将数据库连接做成实时的,即用的时候连,不用的时候断开。以下是一部分代码:
'数据库是否与服务器连接'服务器连接 1
'本地连接 2
'未连接 0
Public strDataBaseCn As StringPublic Sub DataBaseCn()
'如果连接失败则连接本地数据库
On Error GoTo ErrorSub1
'数据库连接值
Dim strCn As String '首先连接服务器上的数据库
'服务器名称、用户名称、密码
strCnServer = "dataserver"
strUserID = "sa"
strPasswd = ""
'连接应用数据库
Set adoCn = New Connection
strCn = "Data Source=" & strCnServer & ";Initial Catalog=Dasher;"
adoCn.Provider = "SQLOLEDB"
adoCn.Open strCn, strUserID, strPasswd
'连接数据字典库
Set adoDataCn = New Connection
adoDataCn.Provider = "SQLOLEDB"
strCn = "Data Source=" & strCnServer & ";Initial Catalog=WordBook;"
adoDataCn.Open strCn, strUserID, strPasswd
'连接服务器成功
strDataBaseCn = "1"
Exit Sub
ErrorSub1: '如果连接出错,则连接本地数据库
'如果连接本地也不成功,则提示出错
On Error GoTo ErrorSub2
'库文件名称、密码
strCnServer = App.Path & "\Cn.MDB"
strPasswd = "" '连接应用数据库
Set adoCn = New Connection
strCn = "Data Source=" & strCnServer & ";Jet OLEDB:Database Password=;"
adoCn.Provider = "Microsoft.Jet.OLEDB.3.51"
adoCn.Open strCn, strPasswd
'库文件名称、密码
strCnServer = App.Path & "\DataCn.MDB"
strPasswd = ""
'连接数据字典库
Set adoDataCn = New Connection
adoDataCn.Provider = "Microsoft.Jet.OLEDB.3.51"
strCn = "Data Source=" & strCnServer & ";Jet OLEDB:Database Password=;"
adoDataCn.Open strCn, strPasswd
'连接本地数据库成功
strDataBaseCn = "2"
Exit Sub
ErrorSub2:
'所有连接失败
strDataBaseCn = "0"
MsgBox "服务器和本地数据库均无法连接,请与技术支持人员连接!"
End Sub
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录!
★ 支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]
不过这样做必须将数据库连接做成实时的,即用的时候连,不用的时候断开。以下是一部分代码:
'数据库是否与服务器连接'服务器连接 1
'本地连接 2
'未连接 0
Public strDataBaseCn As StringPublic Sub DataBaseCn()
'如果连接失败则连接本地数据库
On Error GoTo ErrorSub1
'数据库连接值
Dim strCn As String '首先连接服务器上的数据库
'服务器名称、用户名称、密码
strCnServer = "dataserver"
strUserID = "sa"
strPasswd = ""
'连接应用数据库
Set adoCn = New Connection
strCn = "Data Source=" & strCnServer & ";Initial Catalog=Dasher;"
adoCn.Provider = "SQLOLEDB"
adoCn.Open strCn, strUserID, strPasswd
'连接数据字典库
Set adoDataCn = New Connection
adoDataCn.Provider = "SQLOLEDB"
strCn = "Data Source=" & strCnServer & ";Initial Catalog=WordBook;"
adoDataCn.Open strCn, strUserID, strPasswd
'连接服务器成功
strDataBaseCn = "1"
Exit Sub
ErrorSub1: '如果连接出错,则连接本地数据库
'如果连接本地也不成功,则提示出错
On Error GoTo ErrorSub2
'库文件名称、密码
strCnServer = App.Path & "\Cn.MDB"
strPasswd = "" '连接应用数据库
Set adoCn = New Connection
strCn = "Data Source=" & strCnServer & ";Jet OLEDB:Database Password=;"
adoCn.Provider = "Microsoft.Jet.OLEDB.3.51"
adoCn.Open strCn, strPasswd
'库文件名称、密码
strCnServer = App.Path & "\DataCn.MDB"
strPasswd = ""
'连接数据字典库
Set adoDataCn = New Connection
adoDataCn.Provider = "Microsoft.Jet.OLEDB.3.51"
strCn = "Data Source=" & strCnServer & ";Jet OLEDB:Database Password=;"
adoDataCn.Open strCn, strPasswd
'连接本地数据库成功
strDataBaseCn = "2"
Exit Sub
ErrorSub2:
'所有连接失败
strDataBaseCn = "0"
MsgBox "服务器和本地数据库均无法连接,请与技术支持人员连接!"
End Sub
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录!
★ 支持在线检测程序升级情况,可及时获得程序更新的信息。★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]
比如,在远程库不通时我要操作本地库,当通了以后我要把对本地库已作的修改传到远程库中——不是完全覆盖,而是只涉及几个表,这又怎么做呢?
谢谢!