以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]动态链接外部数据源(已解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63952)

--  作者:yyzlxc
--  发布时间:2015/2/2 9:17:00
--  [求助]动态链接外部数据源(已解决)
在项目属性的BeforeConnectOuterDataSource事件中, 直接加入如下代码,可以链接到指定的外部数据源。



图片点击可在新窗口打开查看此主题相关图片如下:捕获2.png
图片点击可在新窗口打开查看


但是,在项目文件目录下创建一个LJ.txt的文本文件,在该文件中输入"Provider=SQLOLEDB.1;Password=yy3024;Persist Security Info=True;User ID=sa;Initial Catalog=JGXT20150125;Data Source=NBYY001-PC"(不含双引号),在项目属性的BeforeConnectOuterDataSource事件中,换成如下代码,却不能链接到指定的外部数据源,问题在哪里,请各位老师指教。谢谢。

Dim LJFile As String = e.ProjectPath & "LJ.txt"
If e.Name = "jg" Then \'数据源名称
    If FileSys.DirectoryExists(LJFile) Then \'判断文件存在
        Dim LJ As String = FileSys.ReadAllText(LJFile) \'读取内容
        e.C
    End If
End If


补一张截图


图片点击可在新窗口打开查看此主题相关图片如下:捕获3.png
图片点击可在新窗口打开查看



[此贴子已经被作者于2015-2-2 10:44:34编辑过]

--  作者:Bin
--  发布时间:2015/2/2 9:19:00
--  
Dim LJ As String = FileSys.ReadAllText(LJFile).Trim()

试试看

--  作者:yyzlxc
--  发布时间:2015/2/2 9:27:00
--  
谢谢Bin老师的回复,好像还是不行,请指教,谢谢!!
--  作者:Bin
--  发布时间:2015/2/2 9:28:00
--  
晕,你代码搞错了.  把LJ引号去掉. 你这样等于是 字符串 LJ 而不是变量
--  作者:yyzlxc
--  发布时间:2015/2/2 9:33:00
--  
去掉引号后照旧,不能链接到指定外部数据源。
--  作者:Bin
--  发布时间:2015/2/2 9:35:00
--  
是 e.c=LJ 这里去掉

还是不行,说明你记事本里面的内容不争气

--  作者:Bin
--  发布时间:2015/2/2 9:35:00
--  
是 e.c=LJ 这里去掉

还是不行,说明你记事本里面的内容不正确
--  作者:yyzlxc
--  发布时间:2015/2/2 9:42:00
--  
回Bin老师:是按您指定的位置去掉引号的,记事本里面的内容如下,请指教,谢谢!!

Provider=SQLOLEDB.1;Password=
yy3024;Persist Security Info=True;User ID=sa;Initial Catalog=JGXT20150125;Data Source=NBYY001-PC
--  作者:Bin
--  发布时间:2015/2/2 9:44:00
--  
你直接复制这段字符串作为连接可以正常运作吗?
--  作者:Bin
--  发布时间:2015/2/2 9:44:00
--  
你弹出一下LJ看看,是不是你文件路径不对,根本没进入IF条件