Foxtable(狐表)用户栏目专家坐堂 → 连接文本文件


  共有1653人关注过本帖树形打印复制链接

主题:连接文本文件

帅哥哟,离线,有人找我吗?
hbhb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5056 积分:13057 威望:0 精华:0 注册:2014/5/15 21:34:00
连接文本文件  发帖心情 Post By:2017/3/31 23:34:00 [只看该作者]

大师:请问连接文本文件的连接字符串怎么写?
Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\a.txt;Extended Properties=text;HDR=Yes;FMT=Delimited;Persist Security Info=False"
If Connections.TryConnect(s) = False Then
    MessageBox.Show("数据源无法连通!")
End If

以上写法为何不对?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109503 积分:557183 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/4/1 8:55:00 [只看该作者]

假设文本文件的路径为d:\a.txt

Dim s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\;Extended Properties=""text;HDR=Yes;FMT=Delimited;"";"
Output.Show(Connections.TryConnect(s))

Connections.Add("test",s)

Dim cmd As new SQLCommand
cmd.ConnectionName = "test"
cmd.CommandText = "select * from a.txt"
Dim dt As DataTable = cmd.ExecuteReader
Output.Show(dt.DataRows.Count)
[此贴子已经被作者于2017/4/1 8:55:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
hbhb
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5056 积分:13057 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2017/4/1 10:16:00 [只看该作者]

谢谢!蓝导!

 回到顶部
帅哥哟,离线,有人找我吗?
hbhb
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5056 积分:13057 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2017/4/1 10:58:00 [只看该作者]

测试了一下,还是连接不上?why?

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109503 积分:557183 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/4/1 11:04:00 [只看该作者]

我测试没有问题

 回到顶部
帅哥哟,离线,有人找我吗?
hbhb
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5056 积分:13057 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2017/4/1 11:21:00 [只看该作者]

知道了!

 回到顶部