求助:把TXT做数数据库连接
小弟在做数据库时碰到一问题,引用了Microsfot ActiveX Data Objects 2.5 LibraryD盘根目录下有一个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)