|
请下载以下附件:
两个是一样的,不要重复下载
该附件包含二个文件:YHAccess.dll, TestADP.adp
YHAccess.dll 为Access开发组件,其中包含:
yhADPConnection (ADP连接管理)
yhFormResize (ACCESS窗体缩放布局管理)
yhAccessHelper (Access辅助函数)
此贴只讲解如何使用 yhADPConnection。
一、首先新建一个ADP。
二、在VBE下引用YHAccess.dll。
三、在立即窗口运行如下语句:
- CurrentProject.CloseConnection
- CurrentProject.OpenConnection "Provider=;"
复制代码
此两句的目的是清空当前ADP的数据库连接信息。
四、新建一个名为StartForm的窗体,设置如下属性:
滚动条:两者均无
记录选定器:否
导航按钮:否
分隔线:否
自动居中:是
自动调整:是
弹出方式:否
模式:否
在该窗体的事件选项卡上选择“加载”,并选择“代码生成器”,同时进入VBE,贴入如下代码:
- Option Compare Database
- Option Explicit
- ' 连接管理对象
- Public objADP As New YHAccess.yhADPConnection
- Private Function InitADP()
- '=============================================================
- ' Form_StartForm.InitADP
- '-------------------------------------------------------------
- ' 目的 : 初始化 ADP 连接
- ' 作者 : 朱亦文, 2011年2月7日
- ' 说明 :
- '=============================================================
- With objADP
- Set .Application = Application
- .Server = "(Local)" ' 数据库服务器
- .Trusted = False ' SQL Server 验证方式: True - 信任验证(Windows)
- ' False - SQL 验证
- ' 当为 False 时, 必须输入 登录ID 和 登录密码
- .UserID = "jxc" ' 登录ID
- .Password = "jXc_2008" ' 登录密码
- .Database = "jxc" ' 连接的数据库
- ' 也可以直接输入连接字符串, 例如:
- '.ConnectionString = "Provider=SQLOLEDB.1;Password=jXc_2008;Persist Security Info=True;User ID=jxc;Initial Catalog=jxc;Data Source=(Local)"
- ' 如果测试成功则当前ADP连接数据库
- If .TestConnection Then .ADPConnect
- End With
- End Function
- Private Sub Form_Load()
- '=============================================================
- ' Form_StartForm.Form_Load
- '-------------------------------------------------------------
- ' 目的 : 窗体加载
- ' 作者 : 朱亦文, 2011年2月7日
- ' 说明 : 加载时初始化 ADP 窗体
- '=============================================================
- Me.Visible = False
- InitADP
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- '=============================================================
- ' Form_StartForm.Form_Unload
- '-------------------------------------------------------------
- ' 目的 : 窗体卸载
- ' 作者 : 朱亦文, 2011年2月7日
- ' 说明 : 释放ADP连接管理对象,同时清理ADP连接信息。
- '=============================================================
- ' 当关闭当前窗体时, 释放对象, 同时清空 ADP 的连接信息.
- Set objADP = Nothing
- End Sub
复制代码
然后,关闭窗体,保存。(注意:你必须设置你自己的连接信息)
五、创建自启动宏Autoexec
在数据库窗口中,选择宏,新建宏:
操作:OpenForm
窗体名称:StartForm
窗口方式:隐藏
关闭宏设计器,并将宏命名为“Autoexec”
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|