主题：[求助]设置外部数据源是提示错误

提示这个，说明你 【服务器名称】写错。

照着设置一次

http://www.foxtable.com/webhelp/scr/2348.htm

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=714469&ID=104284&skin=1

如果还提示错误，把端口号加上，如 192.168.1.108,1433

设置ip那里不重要。重要是，你防火墙开放了端口、安全组（或者路由器）开放了端口，输入服务器地址的时候，带上端口号。

BeforeConnectOuterDataSource 事件写代码

If e.Name = "数据源名称" Then
    If Network.Ping("192.168.1.100",1000) = False  Then '如果服务器IP无法接通
        e.ConnectionString = "你的access数据源的连接字符串" 
    End If
End If

If e.Name = "CWGL" Then
    If Network.Ping("111.111.11.111",1000) = False  Then '如果服务器IP无法接通
        e.ConnectionString = "你的access数据源的连接字符串" 
    End If
End If

文本txt存放这个字符

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[数据源]ABCD.accdb;Persist Security Info=False

然后写代码

Dim ljFile As String = e.ProjectPath &  "ljzhc.txt"

If e.Name = "CWGL" Then
If Filesys.FileExists(ljFile) Then
Dim  ljzhc As  String = FileSys.ReadAllText(ljFile,Encoding.Default) 
    If Network.Ping("111.111.11.111",1000) = False  Then 
         e.ConnectionString = ljzhc.replace("[数据源]", e.projectpath)

    End If
End If
End If