13621.html

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

HTML

31 行

<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 安宝 on May 31, 1999 at 15:49:38:<p>
In Reply to: <a href="13619.html">Re: VB与Oracle ...</a> posted by Scott on May 31, 1999 at 14:24:05:<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>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 13621-->
<!--top: 14016--><li><a href="14016.html">谢谢你</a> <b>Scott</b> <i>18:50:53 6/08/99</i>
(<!--responses: 14016-->1)
<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-->
</ul><!--end: 13621-->
<br><hr size=7 width=75%><p>

</body></html>

13621.html - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?