📄 5612.html
字号:
<html>
<head>
<title>Re: how to use DAO access remote database?who can help me?</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 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:linus@peregrine.com.tw">Linus</a> on September 14, 1998 at 12:34:34:<p>
In Reply to: <a href="5608.html">how to use DAO access remote database?who can help me?</a> posted by wen on September 14, 1998 at 11:20:17:<p>
You have to use Remote Data Object<br>or Remote Data Control<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<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<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 "3151",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-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -