以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何在xx.txt中设置数据源路径  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29692)
--  作者：lyfxybc
--  发布时间：2013/3/11 21:16:00
--  如何在xx.txt中设置数据源路径

如何在ip.txt中设置数据源路径，只要把数据库路径放在ip.TXT中就能打开项目。

 

 Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "坯布输入" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.ConnectionString = e.ConnectionString.Replace("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\\\Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\\\Dachang\\E\\MDB\\坯布输入.mdb;Persist Security Info=False",ip)
    End If
End If

[此贴子已经被作者于2013-3-11 21:26:13编辑过]
--  作者：jijianjsj
--  发布时间：2013/3/11 21:54:00
--  

BeforeConnectOuterDataSource事件


Dim ipFile As String = e.ProjectPath & "ip.txt"

If e.Name = "客运管理" Then

    If Filesys.FileExists(ipFile) Then

        Dim ip As String = FileSys.ReadAllText(ipFile)

        e.ConnectionString = e.ConnectionString.Replace("192.168.222.88",ip)

        \'MessabeBox.show(e.ConnectionString)

    End If

End If