ACCESS如何用VBA代码获取SQL SERVER本机及局域网服务器名称?

Dim cn As New ADODBConnection
Dim strCn As String
Dim strSQL As String
Dim rs As New ADODBRecordset
 
Stpath = ThisWorkbookPath & ApplicationPathSeparator & "SPSDIaccdb" '设定access文件路径
cnProvider = "MicrosoftACEOLEDB120"
strCn = "Data Source =" & Stpath & ";Jet OLEDB:Database Password=" & ""
cnOpen (strCn)
strSQL = "SELECT  FROM table"
rsOpen strSQL, cn, adOpenStatic

这是用vba连接access的，可以修改strSQL ，这个是sql语句，sql语句是有查询数据源和服务器的。你通过查询可以用list控件显示出来就行了

excel VBA createobject("ExcelApplication")– 服务器执行失败(来自HRESULT的异常：0x80080005
CreateObject(ExcelApplication)出错解决方法
使用excel VBA createobject("ExcelApplication")
我收到以下错误：
服务器执行失败(来自HRESULT的异常：0x80080005
在我的本地机器上工作正常 在客户电脑不正常
尝试过以下方法
>
1)运行dcomcnfg打开组件服务
2)展开组件服务“ – >”电脑“ – >”我的电脑“ – >” DCOM配置“
3)找到“Microsoft Excel应用程序”
4)打开属性对话框的权限
5)点击“安全”标签,
6)“启动和激活权限,配置权限,添加权限 – 在管理员用户(此用户),交互式用户和启动用户下运行身份
7)启动和激活权限访问权限配置权限=>添加完全控制的IIS_IUSRS网络服务

VBALINK下载(网络版)
>你自己的是同一个机子开2个程序连吧，打个比方就是2个程序在同一个局域网里面，所以能够互相联机。
但是你个你同学是2台电脑吧，VBA LINK只能在局域网里面联机，而你们2台主机不在同一局域网里面所以不能连接，所以双方都要下载VNN这个虚拟网卡，并进行VNN连接。然后再开模拟器就可以联机了。

---