标题:求助:把TXT做数数据库连接
取消只看楼主
fanglanlan
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-9-23
结帖率:100%
 问题点数:0 回复次数:1 
求助:把TXT做数数据库连接
小弟在做数据库时碰到一问题,引用了Microsfot ActiveX Data Objects 2.5 Library
D盘根目录下有一个test.txt和test.xls,代码如下
      
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Activate()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.txt;Extended Properties='text;HDR=Yes;FMT=Delimited';"
  rs.Open "test.txt", cn, adOpenKeyset, adLockOptimistic
  Set MSHFlexGrid1.DataSource = rs
End Sub
运行到红色那句就提示 不是有效路径,是否连接到文件存放的服务器,
如果把D:\test.txt改为D:\test.xls, 把Extended Properties='text;改为Extended Properties='Excel;就可以运行?
谢谢各位帮帮忙呀,怎么会出现这样呢?

test.rar (1.71 KB)
搜索更多相关主题的帖子: 数据库 TXT test New txt 
2008-04-02 09:27
fanglanlan
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-9-23
得分:0 
Private Sub Form_Activate()跟Private Sub Form_Load()差不多的,但好像是先运行load的吧,很久以前试过忘了,呵呵

没事网上逗逗
2008-04-02 11:53



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-206665-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.977168 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved