|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><!-- InstanceBegin template="/templates/interface.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 --><!-- InstanceParam name="remarks2" type="boolean" value="false" -->
<link href="default.css" rel="stylesheet" type="text/css">
</head>
<body>
<h1>
<h1><!-- InstanceBeginEditable name="heading" -->IDatabaseObject<!-- InstanceEndEditable --></h1>
<h3><!-- InstanceBeginEditable name="subheader" -->IDatabaseObject_Load(<span class="keyword">ByVal</span> objFields <span class="keyword">As
SQLFieldValues</span>)<!-- InstanceEndEditable --><br>
</h3>
</h1>
<!-- InstanceBeginEditable name="text" -->
<p>This subroutine should copy the database fields from objFields to the object's
variables. objFields is populated with all of the fields from the
associated record.</p>
<!-- InstanceEndEditable -->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#EAEBFF"><font size="-1">This interface function/property is
utilised by the following functions:<br>
<b><!-- InstanceBeginEditable name="utilisedby" -->Object, ObjectItem, ObjectByKey,
ObjectByOrdinal, ObjectsSearch, ObjectFromRecordset, ObjectFromFieldValues.
<!-- InstanceEndEditable --></b></font></td>
</tr>
</table><br>
<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">
Private Sub </span>IDatabaseObject_Load(<span class="keyword">ByVal</span> objFields <span class="keyword">As</span> Dbo.SQLFieldValues)
<span class="comment">
'Copy the fields from the products table into the object's variables</span>
pstrName = objFields("ProductName")
pcurUnitPrice = objFields("UnitPrice")
pintUnitsOnOrder = objFields("UnitsOnOrder")
<span class="keyword">End Sub</span>
<!-- InstanceEndEditable --></pre></td>
</tr>
</table>
</font>
<p></p>
<!-- InstanceBeginEditable name="remarks" -->
<p> </p>
<!-- InstanceEndEditable -->
<p> </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.
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
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.