# Re: 再次请教 Scott 无法开启'score2.txt'档案

Posted by Scott on June 09, 1999 at 21:23:02:

In Reply to: 再次请教 Scott 无法开启'score2.txt'档案 posted by 皮皮 on June 09, 1999 at 13:50:12:

:
: 谢谢Scott拔刀相助,请问无法开启'score2.txt'档案的问题
: .
: .
: .

: db.TableDefs.Append td
: db.Execute "select * into 皮皮 from temp"
: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
: Run 至此出现
: microsoft jet资料库引擎无法开启'score2.txt'档案
: 他已经被其他的使用者独占的开启,或者您需要有检查资料的权限
: .
: .

: 2.db.Execute "drop table temp"
: 3.db.Close
: 4.Set db = Nothing

:
: 若去掉 2.3.4程式可RUN,
: But Use Access not open table
: 亦出现
: microsoft jet资料库引擎无法开启'score2.txt'档案
: 他已经被其他的使用者独占的开启,或者您需要有检查资料的权限

: 谢谢您的解答

皮皮
对不起!我记得以前好似也遇到过,但想不起来了
我要以下简易的程式试过,均没有问题,或许你先
确认你有权限读取此档案(因为我试过再先开启以下
的D5600文字档后再执行以下之程式,依然可以产
生ppp之资料表)
<程式>
Option Explicit
Dim db As Database, rs As Recordset, td As TableDef
Private Sub Command1_Click()
Set db = DBEngine.Workspaces(0).OpenDatabase("c:\tram\databases\eng.mdb")
Set td = db.CreateTableDef("pp")
td.Connect = "Text;HDR=No;database=c:\tram\download"
td.SourceTableName = "d5600"
db.TableDefs.Append td
db.Execute "select * into ppp from pp"
db.Execute "drop table pp"
Set db = Nothing
End Sub

Follow Ups:

- 再次请教 Scott 无法开启'score2.txt'档案 皮皮 10:01:59 6/10/99 (0)