|
<!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_Save <span class="keyword">As </span>Dbo.SQLFieldValues<!-- InstanceEndEditable --><br>
</h3>
</h1>
<!-- InstanceBeginEditable name="text" -->
<p>This function should return an SQLFieldValues object populated with the
fields to be written to the database. The first argument of the SQLFieldValues.Add
function is the database field name, the second is the field's value.</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" -->ObjectSave
<!-- 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" --><p><span class="keyword">
Private Function</span> IDatabaseObject_Save() <span class="keyword">As </span>Dbo.SQLFieldValues
<span class="comment">'Copy all of the relevant field values from the object <font face="Courier New, Courier, mono">to an
'SQLFieldValues object for saving to</font> the database</span>
<span class="keyword">Dim</span> objFields <span class="keyword">As</span> SQLFieldValues
<span class="keyword">Set</span> objFields =<span class="keyword"> New</span> SQLFieldValues
objFields.Add "ProductName", pstrName
objFields.Add "UnitPrice", pcurUnitPrice
objFields.Add "UnitsOnOrder", pintUnitsOnOrder
<span class="keyword">Set</span> IDatabaseObject_Save = objFields
<span class="keyword">End Function</span>
</p><!-- 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.