为帮助您了解是否可以更改ACCESS的路径.

const adUseClient = 3

const adModeShareDenyWrite = 8

const adModeReadWrite = 3

const adModeRead = 1

将AdoConn视作对象access 路径，将AdoRst视作对象

Dim strFullName $

子主要（）

Dim strSql $

Dim strMsg $

将我视作整数

如果Len（strFullName）= 0那么

使用Application.FileDialog（msoFileDialogFilePicker）

.AllowMultiSelect = False

'. Filters.Add（“访问文件”，“. mdb”）

'. Filters.Add

.InitialFileName = ThisWorkbook.Path

如果. 显示然后

strFullName = .SelectedItems（1）

其他

MsgBox“请选择要打开的”

退出子

如果结束

结尾为

如果结束

如果Len（Dir（strFullName））= 0那么

MsgBox strFullName和“不存在”

退出子

如果结束

如果Len（[c2] .Value）= 0或Len（[b3] .Value）= 0那么

MsgBox“信息不完整”

退出子

如果结束

如果不是OpenConnect（strFullName，“ 695360052”），则

退出子

如果结束

strSql =“从个人信息中选择*，其中单位名称='”＆[c2] .Value＆“'和name ='”＆[b3] .Value＆“'”

如果不是RunSql（strSql），则

退出子

如果结束

使用AdoRst

如果.RecordCount <1那么

MsgBox“没有匹配的记录”

. 关闭

退出子

如果结束

做

i = i + 1

范围（“ j2”）. 值= .Fields（“单位属性”）. 值'单位属性

范围（“ n2”）. 值= .Fields（“保险类别”）. 值“受保类别”

范围（“ h3”）. 值= .Fields（“ ID号”）. 值'ID号

范围（“ q2”）. 值=. 字段（“注册时间”）. 值“时间

范围（“ q3”）. 值=. 字段（“参与时间”）. 值“参与时间”

范围（“ t3”）. 值= .Fields（“联系地址”）. 值“地址

strMsg = [b3] .Value＆“ Total”＆.RecordCount＆“ Records”

strMsg = strMsg＆“，这是”＆i＆“记录”＆vbCr

strMsg = strMsg＆“单击是显示下一条记录，单击否退出”

如果MsgBox（strMsgaccess 路径，vbYesNo）= vbNo然后

退出子

如果结束

.movenext

非.oop循环

结尾为

MsgBox“已达到最后一条记录”

设置AdoRst =否

结束子

函数OpenConnect（strFullName作为字符串，可选dbpasswd作为String =“”）作为布尔值

Dim StrConn $

出现错误时转到To ErrorHandler

如果AdoConn一无所有

设置AdoConn = CreateObject（“ ADODB.Connection”）

其他

OpenConnect = True

退出功能

如果结束

选择案例应用程序. 版本

案例“ 14.0”，“ 12.0”

StrConn =“提供程序= Microsoft.ACE.OLEDB.12.0;” ＆“数据源='”＆_

strFullName＆“'; Jet OLEDB: 密码='”＆dbpasswd＆“';”

其他情况下

StrConn =“提供程序= Microsoft.Jet.OLEDB.4.0;” ＆_

“数据源='”＆strFullName＆“'; Jet OLEDB: 密码='”＆dbpasswd＆“';”

结束选择

使用AdoConn

.CommandTimeout = 5

.ConnectionTimeout = 5

.CursorLocation = adUseClient

.Mode = adModeRead

.ConnectionString = StrConn

. 打开

结尾为

OpenConnect = True

退出功能

ErrorHandler:

MsgBox错误编号＆vbCrLf和错误说明

设置AdoRst =否

设置AdoConn =什么

结束功能

函数RunSql（sql作为字符串）为布尔值

出现错误时转到To ErrorHandler

设置AdoRst = AdoConn.Execute（sql）

RunSql = True

退出功能

ErrorHandler:

MsgBox错误编号＆vbCrLf和错误说明

结束功能

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-157569-1.html