ModMain.Set_EDK_Status Method ModMain.Set_EDK_Status Method EDKB12WS.ModMain.Set_EDK_Status Method Set_EDK_Status Method topic_00000000000003AA EDKB12WS.ModMain.Set_EDK_Status EDKB12WS.ModMain.Set_EDK_Status ModMain.Set_EDK_Status EDKB12WS.ModMain.ModMain.Set_EDK_Status EDKB12WS.ModMain.Set_EDK_Status EDKB12WS (in EDKB12WS.exe) ModMain.Set_EDK_Status Method EDKB12WS.ModMain topic_00000000000003AA
ModMain.Set_EDK_Status Method

Assembly: EDKB12WS (in EDKB12WS.exe)
Visual Basic
Private Shared Function Set_EDK_Status( _
  ByVal rowid As ]]>Integera]]>]]>, _
  ByVal status As ]]>Integera]]>]]> _
) As ]]>DataTablea]]>]]>
C#
private static ]]>DataTablea]]>]]> Set_EDK_Status(
  ]]>inta]]>]]> rowid,
  ]]>inta]]>]]> status
)
C++
private:
static ]]>DataTablea]]>]]>^ Set_EDK_Status(
  ]]>inta]]>]]> rowid,
  ]]>inta]]>]]> status
)
JScript
private static function Set_EDK_Status(
   rowid : ]]>inta]]>]]>,
   status : ]]>inta]]>]]>
) : ]]>DataTablea]]>]]>;
Parametersrowid status
$END-IFNOTEMPTY$
Visual Basic Copy CodeCopy Code ]]>
Private Function Set_EDK_Status(ByVal rowid As Integer, ByVal status As Integer) As System.Data.DataTable
   If Param.DebugMode Then
       DivFnkt.InsertJournale("EDKB12: Start Set_EDK_Status", clsDivFnkt.Enum_InfoTyp.Information)
   End If

   Dim scmCmdToExecute As SqlCommand = New SqlCommand()
   scmCmdToExecute.CommandText = "sp_edkb12"
   scmCmdToExecute.CommandType = CommandType.StoredProcedure
   Dim dtToReturn As System.Data.DataTable = New System.Data.DataTable()
   Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
   Try
       scmCmdToExecute.Connection = Globals.conn.scoDBConnection
       scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
       scmCmdToExecute.Parameters.Add(New SqlParameter("@rowid", SqlDbType.Int, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, rowid))
       scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, status))
       sdaAdapter.Fill(dtToReturn)
       Return dtToReturn
   Catch ex As Exception
       DivFnkt.InsertJournale("EDKB12::Fehler:: Set_EDK_Status::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)
       If Param.DebugMode Then
           DivFnkt.InsertJournale("EDKB12: Ende Set_EDK_Status (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information)
       End If
   Finally
       scmCmdToExecute.Dispose()
       sdaAdapter.Dispose()
       If status = 2 Then Send_Message(False, 2)
       If status = 3 Then Send_Message(True, 3)
   End Try
End Function
Windows 8, Windows Server 2012, Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows XP SP2 x64 Edition, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2 The .NET Framework does not support all versions of every platform. For a list of the supported versions, see ]]>System Requirementsa]]>]]>.
.NET Framework Supported in: 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0
 .NET Compact Framework Supported in: 3.5, 2.0, 1.0
 XNA Framework Supported in: 3.0, 2.0, 1.0
Reference ModMain ClassModMain Class
ModMain ModMain MembersModMain ModMain Members