ADP 连接管理组件范例

zhuyiwen

请下载以下附件：




两个是一样的，不要重复下载


该附件包含二个文件：YHAccess.dll, TestADP.adp

YHAccess.dll 为Access开发组件，其中包含：
yhADPConnection （ADP连接管理）
yhFormResize （ACCESS窗体缩放布局管理）
yhAccessHelper （Access辅助函数）

此贴只讲解如何使用 yhADPConnection。

一、首先新建一个ADP。
二、在VBE下引用YHAccess.dll。
三、在立即窗口运行如下语句：

1. CurrentProject.CloseConnection
   
2. CurrentProject.OpenConnection "Provider=;"

复制代码

此两句的目的是清空当前ADP的数据库连接信息。

四、新建一个名为StartForm的窗体，设置如下属性：
滚动条：两者均无
记录选定器：否
导航按钮：否
分隔线：否
自动居中：是
自动调整：是
弹出方式：否
模式：否

在该窗体的事件选项卡上选择“加载”，并选择“代码生成器”，同时进入VBE，贴入如下代码：

1. Option Compare Database
   
2. Option Explicit
   
3. ' 连接管理对象
   
4. Public objADP As New YHAccess.yhADPConnection
   
5. 
   
6. Private Function InitADP()
   
7. '=============================================================
   
8. ' Form_StartForm.InitADP
   
9. '-------------------------------------------------------------
   
10. ' 目的 : 初始化 ADP 连接
    
11. ' 作者 : 朱亦文, 2011年2月7日
    
12. ' 说明 :
    
13. '=============================================================
    
14. With objADP
    
15.     Set .Application = Application
    
16.     .Server = "(Local)" ' 数据库服务器
    
17.     .Trusted = False ' SQL Server 验证方式: True - 信任验证(Windows)
    
18.     ' False - SQL 验证
    
19.     ' 当为 False 时, 必须输入 登录ID 和 登录密码
    
20.     .UserID = "jxc" ' 登录ID
    
21.     .Password = "jXc_2008" ' 登录密码
    
22.     .Database = "jxc" ' 连接的数据库
    
23. 
    
24.     ' 也可以直接输入连接字符串, 例如:
    
25.     '.ConnectionString = "Provider=SQLOLEDB.1;Password=jXc_2008;Persist Security Info=True;User ID=jxc;Initial Catalog=jxc;Data Source=(Local)"
    
26. 
    
27.     ' 如果测试成功则当前ADP连接数据库
    
28.     If .TestConnection Then .ADPConnect
    
29. End With
    
30. End Function
    
31. 
    
32. Private Sub Form_Load()
    
33. '=============================================================
    
34. ' Form_StartForm.Form_Load
    
35. '-------------------------------------------------------------
    
36. ' 目的 : 窗体加载
    
37. ' 作者 : 朱亦文, 2011年2月7日
    
38. ' 说明 : 加载时初始化 ADP 窗体
    
39. '=============================================================
    
40. Me.Visible = False
    
41. InitADP
    
42. End Sub
    
43. 
    
44. Private Sub Form_Unload(Cancel As Integer)
    
45. '=============================================================
    
46. ' Form_StartForm.Form_Unload
    
47. '-------------------------------------------------------------
    
48. ' 目的 : 窗体卸载
    
49. ' 作者 : 朱亦文, 2011年2月7日
    
50. ' 说明 : 释放ADP连接管理对象，同时清理ADP连接信息。
    
51. '=============================================================
    
52. ' 当关闭当前窗体时, 释放对象, 同时清空 ADP 的连接信息.
    
53. Set objADP = Nothing
    
54. End Sub

复制代码

然后，关闭窗体，保存。（注意：你必须设置你自己的连接信息）

五、创建自启动宏Autoexec
在数据库窗口中，选择宏，新建宏：
操作：OpenForm
窗体名称：StartForm
窗口方式：隐藏
关闭宏设计器，并将宏命名为“Autoexec”

zhuyiwen

轻风 发表于 2011-7-16 11:59
这个是为什么

请说明环境、条件及使用方法

zhuyiwen

回复 轻风 的帖子

你把这一句

1. Public objADP As New YHAccess.yhADPConnection

复制代码

改成

1. Public objADP As  YHAccess.yhADPConnection

复制代码

修改 InitADP

1. Private Function InitADP()
   
2.     If objADP Is Nothing Then
   
3.         Set objADP = New YHAccess.yhADPConnection
   
4.     End If
   
5. 
   
6.     ... 接原来的代码
   
7. 
   
8. End Function

复制代码

这样试试

zhuyiwen

这只能说明在Access2010下无法使用这个组件
你的Access2010是32位还是64位？

zhuyiwen

64 Access 2010 未能通过，XP 32 Access 2010 可以通过

zhuyiwen

创福科技-王少峰 发表于 2012-3-13 23:44
朱老师以下代码，如果使用者死机，断电后，就没有调用下面的代码，是不是下次打开还要输入密码呀？sqlserve ...

点“取消”，即可