📄 9010.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

💻 HTML

字号:

<html>
  <head>
    <title>OLE与资料库</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>OLE与资料库</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:yehu@tpts6.seed.net.tw">yeong huann</a> on January 09, 1999 at 16:43:04:<p>
以下是我的程式片段 (请各位高手予以指导)<br>   <br>Set mydb = Workspaces(0).CreateDatabase(App.Path & "\" &_ Me.Text1.Text, dbLangGeneral, dbEncrypt)<br>  Set newtable = mydb.CreateTableDef(Me.Text1.Text)<br>    With newtable<br>      .Fields.Append .CreateField("序号", dbInteger, 4)<br>      .Fields.Append .CreateField("图档路径", dbText, 50)<br>      .Fields.Append .CreateField("图示", dbLongBinary)'该栏位将会写入OLE元件连结的资料(AUTOCAD图档)<br>      .Fields.Append .CreateField("建立日期", dbDate)<br>    End With<br>           .<br>           . <br>           .    <p>Private Sub Command1_Click()<br>If Me.Text1.Text = "" Then<br>MsgBox "你尚未选定图档", 64<br>GoTo exit_add_data<br>Else<br>End If<br>Dim mydb As Database<br>Dim myset As Recordset<p>Set mydb = Workspaces(0).OpenDatabase(App.Path & "\" & Me.Text2.Text_ & ".mdb")<br>Set myset = mydb.OpenRecordset(Me.Text2.Text, dbOpenTable)<br>myset.AddNew<br>myset![序号] = Me.Text3.Text<br>myset![图档路径] = Me.Text1.Text<br>myset![图示] =  <<------------------------(请问OLE的栏位该如何写_入)          <br>myset![建立日期] = Date<br>myset.Update<p>Set myset = Nothing<br>Set mydb = Nothing<br>Data1.Refresh<p>exit_add_data:<p>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 9010-->
<!--top: 9057--><li><a href="9057.html">Re: OLE与资料库</a> <b>阿晴</b> <i>17:58:28 1/11/99</i>
(<!--responses: 9057-->0)
<ul><!--insert: 9057-->
</ul><!--end: 9057-->
</ul><!--end: 9010-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -