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