14081.html
来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 27 行
HTML
27 行
<html>
<head>
<title>Re: 再次请教 Scott 无法开启'score2.txt'档案</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 再次请教 Scott 无法开启'score2.txt'档案</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by Scott on June 09, 1999 at 21:23:02:<p>
In Reply to: <a href="14060.html">再次请教 Scott 无法开启'score2.txt'档案</a> posted by 皮皮 on June 09, 1999 at 13:50:12:<p>
: <br>: 谢谢Scott拔刀相助,请问无法开启'score2.txt'档案的问题<br>: .<br>: .<br>: .<p>: db.TableDefs.Append td<br>: db.Execute "select * into 皮皮 from temp"<br>: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^<br>: Run 至此出现<br>: microsoft jet资料库引擎无法开启'score2.txt'档案<br>: 他已经被其他的使用者独占的开启,或者您需要有检查资料的权限<br>: .<br>: .<p>: 2.db.Execute "drop table temp"<br>: 3.db.Close<br>: 4.Set db = Nothing<p>: <br>: 若去掉 2.3.4程式可RUN,<br>: But Use Access not open table<br>: 亦出现<br>: microsoft jet资料库引擎无法开启'score2.txt'档案<br>: 他已经被其他的使用者独占的开启,或者您需要有检查资料的权限<p>: 谢谢您的解答<p>皮皮<br>对不起!我记得以前好似也遇到过,但想不起来了<br>我要以下简易的程式试过,均没有问题,或许你先<br>确认你有权限读取此档案(因为我试过再先开启以下<br>的D5600文字档后再执行以下之程式,依然可以产<br>生ppp之资料表)<br><程式><br>Option Explicit<br>Dim db As Database, rs As Recordset, td As TableDef<br>Private Sub Command1_Click()<br>Set db = DBEngine.Workspaces(0).OpenDatabase("c:\tram\databases\eng.mdb")<br>Set td = db.CreateTableDef("pp")<br>td.Connect = "Text;HDR=No;database=c:\tram\download"<br>td.SourceTableName = "d5600"<br>db.TableDefs.Append td<br>db.Execute "select * into ppp from pp"<br>db.Execute "drop table pp"<br>Set db = Nothing<br>End Sub<p><p><br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 14081-->
<!--top: 14100--><li><a href="14100.html">再次请教 Scott 无法开启'score2.txt'档案</a> <b>皮皮</b> <i>10:01:59 6/10/99</i>
(<!--responses: 14100-->0)
<ul><!--insert: 14100-->
</ul><!--end: 14100-->
</ul><!--end: 14081-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?