📄 14016.html
字号:
<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:50:53:<p>
In Reply to: <a href="13621.html">便宜你了...</a> posted by 安宝 on May 31, 1999 at 15:49:38:<p>
: 请问如何将Oracle之database连上成Recordset<br>: 再进行一般的VB程式处理如:rs.edit/rs.update?<p>: A: 很抱歉 , Oracle 没有 RecordSet 这种东西 , 或许您可以用以下范例:<p>: ' Oracle DataBase Object<br>: Public OraSession As Object<br>: Public OraDatabase As Object<br>: Public OraDynaset As Object<br>: Public SQL$<br>: Public MyDyn As Object<br>: Dim UserName as String<br>: Dim Password as String<br>: Dim Connect as String<p>: UserName = {UserID}<br>: Password = {Password}<br>: DatabaseName = {DataBase Alias}<br>: Connect = UserName + "/" + Password<br>: ' 下面两行固定<br>: Set OraSession = CreateObject("OracleInProcServer.XOraSession")<br>: Set OraDatabase = OraSession.DbOpenDatabase(DatabaseName, Connect, 0&)<br>: ' 所有对资料库异动方式均透过以下两行方式处理<br>: SQL$ = "select * from {Table Name}"<br>: Set MyDyn = OraDatabase.DbCreateDynaset(SQL$, 0&)<br>: ' 如果是透过 Oradc1 显示资料方式 , 任何更新如下<br>: Set ORADC1.Recordset = MyDyn<br>: ' 如果要进行 MyDyn (如 rs) 处理 , 资料移动方式如下<br>: MyDyn.MoveFirst<br>: For i = 1 To MyDyn.RecordCount<br>: Data = MyDyn.Fields("{Fields Name}")<br>: MyDyn.MoveNext<br>: Next i<br>: ' 如果要增/删/修资料表格处理 , 需完全透过 SQL 指令<br>: SQL$ = "insert/update/delete ..."<br>: OraDatabase.DbExecuteSQL (SQL$)<br>: OraDatabase.DbExecuteSQL ("Commit")<br>: ' 这东西点破是一文不值 , 但也让我们伤了一阵子脑筋<br>: ' 便宜你了 , 可能我会被人家 @&^#$ ...<p>安宝<br>日前我已研究会用Oo4o2中Oracle提供的物件,不过还在<br>初学中,谢谢你<br>至于修改/新增仍可用Addnew,update,edit,delete<br>我在说明档中找到了相关的资料,不过未来还有一段路<br>要走,希望你能一起参与<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 14016-->
<!--top: 14045--><li><a href="14045.html">哈哈 ! 大家交换心得 , 互助一下啦 ! (无内文)</a> <b>安宝</b> <i>09:40:29 6/09/99</i>
(<!--responses: 14045-->0)
<ul><!--insert: 14045-->
</ul><!--end: 14045-->
</ul><!--end: 14016-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -