ADO连接有密码的库
时 间:2010-06-20 00:01:10
作 者:accesscx ID:6532 城市:东莞
摘 要:学习笔记
正 文:
先做一个模块:
Option Compare Database
Public Z_CnnDB_S As ADODB.Connection
Function AutoExec_SysStartRun() '起动时,打开服务数据库Data的connection连接
On Error GoTo err_1
Set Z_CnnDB_S = New ADODB.Connection
Z_CnnDB_S.CursorLocation = adUseClient
Z_CnnDB_S.Provider = "Microsoft.Jet.OLEDB.4.0"
Z_CnnDB_S.Open "Data Source=" & CurrentProject.Path & "\Document_Data.mdb;Jet OleDb:DataBase Password=123456;"
' " & CurrentProject.Path & "\Document_Data.mdb 如果库在服务器上,可以这样写" & \\srv01\test & "\Document_Data.mdb;
' 注意换成自己服务器路径,库的密码也换成自己的
err_2:
Exit Function
err_1:
MsgBox Err.Number & Err.Description
Resume err_2
End Function
调用:比如我要让子窗体ECN_L的数据源来自后台的ECN表
Private Sub Form_Load()
Dim rs1 As New ADODB.Recordset, x001 As String
x001 = "select * from ECN"
rs1.Open x001, Z_CnnDB_S, adOpenKeyset, adLockReadOnly
Set Me.ECN_L.Form.Recordset = rs1
End Sub
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)