Click here to Skip to main content
15,884,298 members
Articles / Programming Languages / Visual Basic

Object-Oriented database design with the DatabaseObjects library

Rate me:
Please Sign up or sign in to vote.
4.00/5 (6 votes)
31 Jan 20076 min read 109.4K   3.9K   64  
Demonstrates creating object-oriented database systems with the DatabaseObjects library.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><!-- InstanceBegin template="/templates/function.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>Database Objects</title>
<!-- InstanceEndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->
<link href="default.css" rel="stylesheet" type="text/css">
</head>

<body>
<h1>

<h1><!-- InstanceBeginEditable name="heading" -->DatabaseObjects	<!-- InstanceEndEditable --></h1>
<h3><!-- InstanceBeginEditable name="subheader" -->ObjectByOrdinalFirst(<span class="keyword">ByVal</span>    objCollection <span class="keyword">As</span> IDatabaseObjects) <span class="keyword">As</span> IDatabaseObject<!-- InstanceEndEditable --><br>
</h3>
</h1>

<!-- InstanceBeginEditable name="text" -->
<p>ObjectByOrdinalFirst returns the first object in the collection sorted by
  the collection's <a href="IDatabaseObjects_OrderBy.htm">IDatabaseObjects_OrderBy</a>.
  It differs from ObjectByOrdinal in that it only loads the first record from
  the database table not the entire table.</p>
<!-- InstanceEndEditable --><font face="Courier New, Courier, mono">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="#f6f6f6"><pre><!-- InstanceBeginEditable name="example" --><span class="keyword">
Dim</span> objDefaultSupplier<span class="keyword"><font face="Courier New, Courier, mono"> As</font></span><font face="Courier New, Courier, mono"> Supplier</font>
<span class="comment">
'<font face="Courier New, Courier, mono">ObjectByOrdinalFirst is ideal for loading </font>default ob<font face="Courier New, Courier, mono">jects</font></span>
<span class="keyword"><font face="Courier New, Courier, mono">Set</font></span><font face="Courier New, Courier, mono"> objDefaultSupplier = DBO.ObjectByOrdinalFirst(objGlobalSuppliersInstance)</font>

<!-- InstanceEndEditable --></pre></td>
  </tr>
</table>
</font>

<p>&nbsp;</p>
<p align="center"><font size="1">�  Hi Integrity Systems 2005. All rights reserved.</font></p>
</body>

<!-- InstanceEnd --></html>

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here


Written By
United States United States
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions