以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数据源 动态 配合  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77879)
--  作者：yifan3429
--  发布时间：2015/11/27 1:10:00
--  数据源 动态 配合
If e.Name = "STD数据库" Then
    Dim IP As String = e.User.ExtendedValues("IP") \'获得用户输入的IP
    If IP > "" \'如果用户自己输入了IP
        \'则用用户输入的IP替换原来的IP
        e.ConnectionString = e.ConnectionString.Replace("192.168.0.188", IP)
    End If
End If


上面的代码是需要客户自我输入IP  如何配合我下面的外部数据库的链接地址使用



外部数据原地址

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\\\192.168.0.188\\新建文件夹\\琢玥网站\\STD数据库.mdb;Persist Security Info=False
--  作者：大红袍
--  发布时间：2015/11/27 1:17:00
--  

没什么问题吧？只要你数据源设置成下面就行。

 

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\\\192.168.0.188\\新建文件夹\\琢玥网站\\STD数据库.mdb;Persist Security Info=False
--  作者：yifan3429
--  发布时间：2015/11/27 1:19:00
--  
If e.Name = "STD数据库" Then
    Dim IP As String = e.User.ExtendedValues("IP") \'获得用户输入的IP
    If IP > "" \'如果用户自己输入了IP
        \'则用用户输入的IP替换原来的IP
        e.ConnectionString = e.ConnectionString.Replace("192.168.0.188", IP)
    End If
End If


这句会弹出没有实例对象的错误
--  作者：Hyphen
--  发布时间：2015/11/27 9:02:00
--  

测试没有问题，做个例子上来