5608.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 38 行

HTML
38 行
字号 
<html>
  <head>
    <title>how to use DAO access remote database?who can help me?</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>how to use DAO access remote database?who can help me?</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:ylj@zhuhaiinfo.net">wen</a> on September 14, 1998 at 11:20:17:<p>
hi,<br>Good everybody!<br>  I am vb beginner,I want to know how to  use DAO<br> for remote database to add,insert,delete,query <br>update etc.<br>program as follows:<p><br>Public Sub LinkTable(strDB As String, strRoDB As <br>String, strCn As String, strTdf As String, _<br>                  linkTdfName As String)<br>    Dim linkTdf As New TableDef<br>    Set dbs = OpenDatabase(strDB)<br>    linkTdf.Name = linkTdfName<br>100<br>    tempTable = UCase(linkTdf.Name)<br>    For i = 0 To dbs.TableDefs.Count - 1<br>        If UCase(dbs.TableDefs(i).Name) = tempTable Then<br>            If MsgBox(linkTdfName + " 眒 湔 婓ㄛ 岆 瘁 刉 壶 ˋ", _<br>           vbQuestion + vbYesNo) = vbYes Then<br>                dbs.TableDefs.Delete linkTdf.Name<br>                Exit For<br>            Else: MsgBox " 笭 陔 怀 □ 陔 桶 靡"<br>            linkTdfName = InputBox(" 陔 桶 靡")<br>            GoTo 100<br>            End If<br>        End If<br>    Next i<br>    Set linkTdf = dbs.CreateTableDef(linkTdfName)    ' 蝈 诿 堈 最 桶<br>    linkTdf.Connect = ";database=" + strCn<br>    linkTdf.SourceTableName = strTdf<br>    dbs.TableDefs.Append linkTdf<br>end sub<br>Public Sub rst_display(strDB As String, strRst As String, strForm As Form)<br>    Set dbs = OpenDatabase(strDB)<br>    Set rst = dbs.OpenRecordset(strRst, dbOpenDynaset)<br>    strForm!Data1.DatabaseName = dbs.Name<br>    strForm!Data1.RecordSource = rst.Name<br>    strForm!Data1.Refresh<br>    strForm!DBGrid1.ReBind<br>End Sub    <p>奻 扴 彻 最 蚚 懂 妗 珋 堈 最 桶 腔 蟀 诿ㄛ 坳 衄5 跺 统 杅ㄛ Ａ 笢strRoDB 岆 猁 溼 恀 腔 堈 最 杅 擂 踱<br>靡ㄗ 妇 嬷 缭 噤ㄘ˙strTdf 岆 蚬 杅 擂 踱 笢 腔 桶 靡˙strDB 岆 猁 蝈 诿 腔 挂 华 杅 擂 踱ㄗ 妇 嬷 缭<br>噤ㄘ˙linkTdfName 岆 挂 华 杅 擂 踱 腔 珨 跺 陔 桶 靡ㄛ 蚚 懂 膘 蕾 堈 最 桶 腔 蝈 诿˙strCn 岆 硌 隅 蟀 诿<br>陓 洘 腔 趼 睫 揹﹝ <br>I can't open remote database<br>please ask why?<br>E
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5608-->
<!--top: 5612--><li><a href="5612.html">Re: how to use DAO access remote database?who can help me?</a> <b>Linus</b> <i>12:34:34 9/14/98</i>
(<!--responses: 5612-->3)
<ul><!--insert: 5612-->
<!--top: 5622--><li><a href="5622.html">I know can use RDO access remote database,but,I ask for you that how to use DAO ways access remote database</a> <b>wen</b> <i>16:27:23 9/14/98</i>
(<!--responses: 5622-->2)
<ul><!--insert: 5622-->
<!--top: 5627--><li><a href="5627.html">Re: I know can use RDO access remote database,but,I ask for you that how to use DAO ways access remote database</a> <b>AadyLin</b> <i>17:10:13 9/14/98</i>
(<!--responses: 5627-->1)
<ul><!--insert: 5627-->
<!--top: 5661--><li><a href="5661.html">there is errors:run-time  error  &quot;3151&quot;,odbc-connection to 'yuan' failed </a> <b>wen</b> <i>16:02:33 9/15/98</i>
(<!--responses: 5661-->0)
<ul><!--insert: 5661-->
</ul><!--end: 5661-->
</ul><!--end: 5627-->
</ul><!--end: 5622-->
</ul><!--end: 5612-->
</ul><!--end: 5608-->
<br><hr size=7 width=75%><p>

</body></html>

5608.html - 源码说明

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

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

⌨️ 快捷键说明

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