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”

jlf001

学习

jlf001

学习

winshao

学习

nncchh

謝謝分享!

zhuyiwen

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

点“取消”，即可

创福科技-王少峰

朱老师以下代码，如果使用者死机，断电后，就没有调用下面的代码，是不是下次打开还要输入密码呀？sqlserver 认证方式。

' 目的 : 窗体卸载

' 作者 : 朱亦文, 2011年2月7日

' 说明 : 释放ADP连接管理对象，同时清理ADP连接信息。

轻风

谢谢朱老师，远程解决。

zhuyiwen

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

zhuyiwen

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