public static function Get_Applikationnr( Dateinr : ]]>inta]]>]]> ) : ]]>inta]]>]]>;
ParametersDateinr
$END-IFNOTEMPTY$
Visual Basic
Copy Code
]]>
Public Function Get_Applikationnr(ByVal Dateinr As Integer) As Integer Try Dim connection As New SqlConnection() Dim da As New SqlDataAdapter("Select * From Office2010_Vorlage_datei where Office_Vorlage_Dateinr=" + Dateinr.ToString, connection) Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da) Dim ds As New DataSet()
Try connection.ConnectionString = Param.connectionstring connection.Open() da.Fill(ds, "docs") If ds.Tables(0).Rows.Count > 0 Then Return ds.Tables(0).Rows(0).Item(3) Else Return 0 End If Catch ex As Exception MsgBox(ex.Message) End Try CB = Nothing ds = Nothing da = Nothing connection.Close() connection = Nothing CB = Nothing ds = Nothing da = Nothing connection.Close() connection = Nothing Catch ex As Exception Return 0 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 SP2The .NET Framework does not support all versions of every platform. For a list of the supported versions, see
]]>System Requirementsa]]>]]>.