14014.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 23 行

HTML
23 行
字号 
<html>
  <head>
    <title>再试试看</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>再试试看</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:r29910@email.sps.mot.com">Scott</a> on June 08, 1999 at 18:38:22:<p>
In Reply to: <a href="14010.html">Re: 再次请教Scott Lee</a> posted by 皮皮 on June 08, 1999 at 17:25:52:<p>
: 请问Scott Lee<p>: Set Database = DBEngine.Workspaces(0).OpenDatabase("c:\plus", False, False, "text;hdr=no/yes")<br>: Set Recordset = Database.OpenRecordset("score2")<br>: Set Database = DBEngine.Workspaces(0).OpenDatabase("c:\plus\kk.MDB")<br>: Set td = Database.CreateTableDef("temp")<br>: td.Connect = "text;HDR=No/Yes;database=c:\plus\kk.mdb"<br>: td.SourceName = "score2"<br>: 请问为何RUN 至此 <br>: 出现'物件不支援此属性或方法<br>: Database.TableDefs.Append td<p>: <br>: : 谢谢您:<p>皮皮<br>请你将以下的程式copy至你的程式中<br>1.专案/设定引用项目/Microsoft DAO 3.51 Library(选取)<br>2.Check你的文字档旁有否schema.ini档<br><schema.ini内容><br>[score2]<br>format=fixedlength<br>col1=a char width 8<br>col2=b char width 2<br>col3=c char width 4<br>col4=d char width 2<br>col5=e char width 16<br>col6=f char width 2<br>col7=g char width 4<br>col8=h char width 35<br>以上之a~h为栏位名称<br>3.<程式部份><br>  option explicit<br>  dim db as database,rs as recordset,td as tabledef<p>  private sub commond1_click()<br>  Set db = DBEngine.Workspaces(0).OpenDatabase("c:\plus\kk.mdb")<br>  Set td = db.CreateTableDef("temp")<br>  td.Connect = "Text;HDR=No;Database=c:\plus"<br>  td.SourceTableName = "score2"<br>  db.TableDefs.Append td (此时之temp资料表无法修改)<br>  db.execute "select * into 皮皮 from temp"<br>  db.execute "drop table temp"<br>如此你即可在kk.mdb中看到"皮皮"之资料表(可进行修改)<br>  db.close<br>  set db=nothing<br>  end sub
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 14014-->
</ul><!--end: 14014-->
<br><hr size=7 width=75%><p>

</body></html>

14014.html - 源码说明

本页面展示了「VB技巧问答10000例,是一个教程」中的 14014.html 源码文件，采用 HTML 编程语言编写，共 23 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?