设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: zhuyiwen
打印 上一主题 下一主题

请问:如何在ADP启动时,使用VBA代码判定数据库连接是否有效并重新设定数据库连接

[复制链接]
1#
发表于 2002-4-7 05:00:00 | 显示全部楼层
此例程将从 ADP 删除连接,使其处于无连接状态。
Sub MakeADPConnectionless()
     
     Application.CurrentProject.CloseConnection '关闭连接
     Application.CurrentProject.OpenConnection '将连接设置为无

End Sub

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-27 03:47 , Processed in 0.090086 second(s), 23 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表