如何将 Microsoft Access 窗体绑定到 ADO 记录集
时 间:2016-12-14 23:30:19
作 者:gaoyunpeng ID:49516 城市:大连
摘 要:将ADO记录集直接写入窗体中,完成查询功能。
正 文:
打开单独的 ADO 连接
在某些时候,您可能需要打开和管理自己的 ADO 连接到 SQL Server。例如,您必须使用这种方法,如果您 Access 数据库 (.mdb) 或连接到您的应用程序比另一个 SQL Server 数据库的 Access 项目文件 (.adp) 中编写代码。请注意,使用这种方法时,Microsoft 建议您关闭 ADO 连接打开时不再需要。例如,您可能需要关闭该窗体的 UnLoad 事件在 ADO 连接。下面的示例演示如何打开自己的 ADO 连接到 Microsoft SQL Server 数据库以及如何将窗体绑定到它︰
- 打开示例数据库 Northwind.mdb。
- 在设计视图中打开客户窗体。
- 清除要取消绑定窗体的窗体的记录源属性。
-
将OnOpen属性的窗体设置为以下事件过程︰
Private Sub Form_Open(Cancel As Integer) Dim cn As ADODB.Connection Dim rs As ADODB.Recordset 'Create a new ADO Connection object Set cn = New ADODB.Connection 'Use the Access 10 and SQL Server OLEDB providers to 'open the Connection 'You will need to replace MySQLServer with the name 'of a valid SQL Server With cn .Provider = "Microsoft.Access.OLEDB.10.0" .Properties("Data Provider").Value = "SQLOLEDB" .Properties("Data Source").Value = "MySQLServer" .Properties("User ID").Value = "sa" .Properties("Password").Value = "" .Properties("Initial Catalog").Value = "NorthwindCS" .Open End With 'Create an instance of the ADO Recordset class, and 'set its properties Set rs = New ADODB.Recordset With rs Set .ActiveConnection = cn .Source = "Select * FROM Customers" .LockType = adLockOptimistic .CursorType = adOpenKeyset .Open End With 'Set the form's Recordset property to the ADO recordset Set Me.Recordset = rs Set rs = Nothing Set cn = Nothing End Sub
-
将以下代码添加到窗体的 UnLoad 事件︰
Private Sub Form_Unload(Cancel As Integer) 'Close the ADO connection we opened Dim cn As ADODB.Connection Set cn = Me.Recordset.ActiveConnection cn.Close Set cn = Nothing End Sub
- 保存该窗体,然后关闭它。
- 在窗体视图中打开客户窗体。
- 添加、 编辑或删除窗体中的记录。
请注意,窗体绑定到可更新记录集基于 SQL Server 数据。
资料来源:
https://support.microsoft.com/zh-cn/kb/281998
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access对子窗体数据进行批...(10.30)
- 最精简的组合框行来源数据快速输...(10.25)
- Access仿平台的多值选择器...(10.24)
- 【Access日期区间段查询】...(10.22)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
学习心得
最新文章
- Access判断多条明细的配方或订...(11.30)
- 如何让后台数据库在局域网共享时,且...(11.29)
- 【Access月初月末日期设置方法...(11.29)
- 【Access IIF函数嵌套示例...(11.26)
- Access快速开发平台--使用组...(11.25)
- Access快速开发平台--对上传...(11.22)
- Access快速开发平台企业版--...(11.18)
- 不会用多表联合查询,多表查询没结果...(11.16)
- 【案例分享】主键字段值含有不间断空...(11.16)
- Access快速开发平台--后台D...(11.14)