设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

1234下一页
返回列表 发新帖
查看: 18807|回复: 38
打印 上一主题 下一主题

ADP 连接管理组件范例

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2011-2-7 22:45:32 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请下载以下附件:




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


该附件包含二个文件: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. Private Function InitADP()
  6. '=============================================================
  7. ' Form_StartForm.InitADP
  8. '-------------------------------------------------------------
  9. ' 目的 : 初始化 ADP 连接
  10. ' 作者 : 朱亦文, 2011年2月7日
  11. ' 说明 :
  12. '=============================================================
  13. With objADP
  14.     Set .Application = Application
  15.     .Server = "(Local)" ' 数据库服务器
  16.     .Trusted = False ' SQL Server 验证方式: True - 信任验证(Windows)
  17.     ' False - SQL 验证
  18.     ' 当为 False 时, 必须输入 登录ID 和 登录密码
  19.     .UserID = "jxc" ' 登录ID
  20.     .Password = "jXc_2008" ' 登录密码
  21.     .Database = "jxc" ' 连接的数据库

  22.     ' 也可以直接输入连接字符串, 例如:
  23.     '.ConnectionString = "Provider=SQLOLEDB.1;Password=jXc_2008;Persist Security Info=True;User ID=jxc;Initial Catalog=jxc;Data Source=(Local)"

  24.     ' 如果测试成功则当前ADP连接数据库
  25.     If .TestConnection Then .ADPConnect
  26. End With
  27. End Function

  28. Private Sub Form_Load()
  29. '=============================================================
  30. ' Form_StartForm.Form_Load
  31. '-------------------------------------------------------------
  32. ' 目的 : 窗体加载
  33. ' 作者 : 朱亦文, 2011年2月7日
  34. ' 说明 : 加载时初始化 ADP 窗体
  35. '=============================================================
  36. Me.Visible = False
  37. InitADP
  38. End Sub

  39. Private Sub Form_Unload(Cancel As Integer)
  40. '=============================================================
  41. ' Form_StartForm.Form_Unload
  42. '-------------------------------------------------------------
  43. ' 目的 : 窗体卸载
  44. ' 作者 : 朱亦文, 2011年2月7日
  45. ' 说明 : 释放ADP连接管理对象,同时清理ADP连接信息。
  46. '=============================================================
  47. ' 当关闭当前窗体时, 释放对象, 同时清空 ADP 的连接信息.
  48. Set objADP = Nothing
  49. End Sub
复制代码

然后,关闭窗体,保存。(注意:你必须设置你自己的连接信息

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

本帖被以下淘专辑推荐:

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏4 分享分享 分享淘帖2 订阅订阅
2#
发表于 2011-2-8 06:48:13 | 只看该作者
好东东,学习!

点击这里给我发消息

3#
发表于 2011-2-8 12:34:27 | 只看该作者
先下载学习
4#
发表于 2011-2-8 15:52:52 | 只看该作者
先下载学习
5#
发表于 2011-2-8 16:16:36 | 只看该作者
先下载学习
6#
发表于 2011-2-8 17:26:05 | 只看该作者
朱总的东西都是好东西啊.
7#
发表于 2011-2-8 17:40:52 | 只看该作者
踩点,以后来行窃
8#
发表于 2011-2-8 17:58:42 | 只看该作者
看看
9#
发表于 2011-2-8 20:48:04 | 只看该作者
小朱哥儿出品的东东,就是要顶!!
10#
发表于 2011-2-9 08:25:15 | 只看该作者
再来下载
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-25 07:51 , Processed in 0.104313 second(s), 36 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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