You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

146 lines
6.6 KiB

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML xmlns:MSHelp="http://msdn.microsoft.com/mshelp" DIR="LTR"><HEAD>
<meta name="GENERATOR" content="VBdocman .NET - documentation generator; http://www.vbdocman.com">
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=UTF-8">
<TITLE>clsLizenzschluessel.UpdateAllWLizenzkaufnrLogic -Methode</TITLE>
<xml>
<MSHelp:TOCTitle Title="clsLizenzschluessel.UpdateAllWLizenzkaufnrLogic -Methode"/>
<MSHelp:RLTitle Title="clsLizenzschluessel.UpdateAllWLizenzkaufnrLogic -Methode"/>
<MSHelp:Keyword Index="A" Term="topic_00000000000005C9"/>
<MSHelp:Keyword Index="K" Term="clsLizenzschluessel.UpdateAllWLizenzkaufnrLogic -Methode"/>
<MSHelp:Keyword Index="K" Term="Vertragsverwaltung.TKB.VV.DB.clsLizenzschluessel.UpdateAllWLizenzkaufnrLogic -Methode"/>
<MSHelp:Keyword Index="F" Term="Vertragsverwaltung.TKB.VV.DB.clsLizenzschluessel.UpdateAllWLizenzkaufnrLogic"/>
<MSHelp:Keyword Index="F" Term="clsLizenzschluessel.UpdateAllWLizenzkaufnrLogic"/>
<MSHelp:Keyword Index="F" Term="Vertragsverwaltung.TKB.VV.DB.clsLizenzschluessel.clsLizenzschluessel.UpdateAllWLizenzkaufnrLogic"/>
<MSHelp:Attr Name="DevLang" Value="VB"/>
<MSHelp:Attr Name="DevLangVers" Value="kbLangVB"/>
<MSHelp:Attr Name="DocSet" Value="Visual Basic"/>
<MSHelp:Attr Name="DocSet" Value="Visual Studio"/>
<MSHelp:Attr Name="DocSet" Value="VSM"/>
<MSHelp:Attr Name="Product" Value="VB"/>
<MSHelp:Attr Name="ProductVers" Value="kbVBp700"/>
<MSHelp:Attr Name="Product" Value="VSA"/>
<MSHelp:Attr Name="ProductVers" Value="kbVSA"/>
<MSHelp:Attr Name="Technology" Value="ManagedCode"/>
<MSHelp:Attr Name="TechnologyVers" Value="kbManagedCode"/>
<MSHelp:Attr Name="TopicType" Value="kbSyntax"/>
<MSHelp:Attr Name="TargetOS" Value="Windows"/>
<MSHelp:Attr Name="Locale" Value="kbEnglish"/>
</xml>
<META name="rtfFileName" content="">
<META NAME="save" CONTENT="history">
<!--CSS_START-->
<SCRIPT SRC="MSHelp/scripts/dtuelink.js"></SCRIPT>
<!--CSS_END-->
<SCRIPT language="JavaScript">
function indent(level) {
for (i=1; i<=level; i++) {
document.write("&nbsp;&nbsp;&nbsp;");
}
}
</SCRIPT>
</HEAD>
<body topmargin=0 id="bodyID" class = "dtBODY"><!--NONSCROLLING BANNER START-->
<div id="nsbanner">
<div id="bannerrow1">
<TABLE CLASS="bannerparthead" CELLSPACING=0>
<TR ID="hdr">
<TD CLASS="runninghead" nowrap>Vertragsverwaltung-Klassenbibliothek</TD>
<TD CLASS="product" nowrap>&nbsp;</TD>
</TR>
</TABLE>
</div>
<div id="TitleRow">
<H1 class="dtH1"><A NAME="topic_00000000000005C9"></A>clsLizenzschluessel.UpdateAllWLizenzkaufnrLogic -Methode</H1>
</div></div>
<!--NONSCROLLING BANNER END-->
<DIV id="nstext" valign="bottom"><!---->
<P>Purpose: Update method for updating one or more rows using the Foreign Key 'Lizenzkaufnr.
This method will Update one or more existing rows in the database. It will reset the field 'Lizenzkaufnr' in
all rows which have as value for this field the value as set in property 'iLizenzkaufnrOld' to
the value as set in property 'iLizenzkaufnr'.</P>
<PRE class="syntax"><SPAN class="lang">[Visual&nbsp;Basic]
</SPAN><B>Public Function UpdateAllWLizenzkaufnrLogic() As <a href="ms-help://MS.NETFrameworkSDKv1.1/cpref/html/frlrfSystemBooleanClassTopic.htm">Boolean</a></B></PRE>
<H4 class="dtH4">Rückgabewert</H4>
<P>True if succeeded, otherwise an Exception is thrown.</P>
<H4 class="dtH4">Hinweise</H4>
<P>Properties needed for this method:
&lt;UL&gt;
&lt;LI&gt;iLizenzkaufnr. May be SqlInt32.Null&lt;/LI&gt;
&lt;LI&gt;iLizenzkaufnrOld. May be SqlInt32.Null&lt;/LI&gt;
&lt;/UL&gt;
Properties set after a succesful call of this method:
&lt;UL&gt;
&lt;LI&gt;iErrorCode&lt;/LI&gt;
&lt;/UL&gt;</P>
<H4 class="dtH4">Quellcode</H4>
<pre class="code"><SPAN class="lang">[Visual&nbsp;Basic]</SPAN>
Public Function UpdateAllWLizenzkaufnrLogic() As Boolean&nbsp;<br> Dim scmCmdToExecute As SqlCommand = New SqlCommand()&nbsp;<br> scmCmdToExecute.CommandText = &quot;dbo.[pr_Lizenzschluessel_UpdateAllWLizenzkaufnrLogic]&quot;&nbsp;<br> scmCmdToExecute.CommandType = CommandType.StoredProcedure&nbsp;<br>&nbsp;<br> ' // Use base class' connection object&nbsp;<br> scmCmdToExecute.Connection = m_scoMainConnection&nbsp;<br>&nbsp;<br> Try&nbsp;<br> scmCmdToExecute.Parameters.Add(new SqlParameter(&quot;@iLizenzkaufnr&quot;, SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, &quot;&quot;, DataRowVersion.Proposed, m_iLizenzkaufnr))&nbsp;<br> scmCmdToExecute.Parameters.Add(new SqlParameter(&quot;@iLizenzkaufnrOld&quot;, SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, &quot;&quot;, DataRowVersion.Proposed, m_iLizenzkaufnrOld))&nbsp;<br> scmCmdToExecute.Parameters.Add(new SqlParameter(&quot;@iErrorCode&quot;, SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, &quot;&quot;, DataRowVersion.Proposed, m_iErrorCode))&nbsp;<br>&nbsp;<br> If m_bMainConnectionIsCreatedLocal Then&nbsp;<br> ' // Open connection.&nbsp;<br> m_scoMainConnection.Open()&nbsp;<br> Else&nbsp;<br> If m_cpMainConnectionProvider.bIsTransactionPending Then&nbsp;<br> scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction&nbsp;<br> End If&nbsp;<br> End If&nbsp;<br>&nbsp;<br> ' // Execute query.&nbsp;<br> m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()&nbsp;<br> m_iLizenzkaufnr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item(&quot;@iLizenzkaufnr&quot;).Value, Integer))&nbsp;<br>&nbsp;<br> If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then&nbsp;<br> ' // Throw error.&nbsp;<br> Throw New Exception(&quot;Stored Procedure 'pr_Lizenzschluessel_UpdateAllWLizenzkaufnrLogic' reported the ErrorCode: &quot; &amp; m_iErrorCode.ToString())&nbsp;<br> End If&nbsp;<br>&nbsp;<br> Return True&nbsp;<br> Catch ex As Exception&nbsp;<br> ' // some error occured. Bubble it to caller and encapsulate Exception object&nbsp;<br> Throw New Exception(&quot;clsLizenzschluessel::UpdateAllWLizenzkaufnrLogic::Error occured.&quot;, ex)&nbsp;<br> Finally&nbsp;<br> If m_bMainConnectionIsCreatedLocal Then&nbsp;<br> ' // Close connection.&nbsp;<br> m_scoMainConnection.Close()&nbsp;<br> End If&nbsp;<br> scmCmdToExecute.Dispose()&nbsp;<br> End Try&nbsp;<br> End Function
</pre>
<H4 class="dtH4">Forderungen</H4>
<P><b class="le">Plattformen:&nbsp;</b>Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition</P>
<H4 class="dtH4">Siehe auch</H4>
<p>
<a href="topic_00000000000005BC.html">clsLizenzschluessel</a>
</p>
<DIV CLASS="footer">
<HR>
Generated by VBdocman .NET
<p>
</div></div>
</BODY>
</HTML>