sample

Imports Microsoft.VisualBasic

Imports System.Data

Imports System.Data.SqlClient

Imports Npgsql

Imports NpgsqlTypes

Partial Public Class Udf 

 Public Shared Function eipConnectionString() As String

        '資料庫連線字串

        Dim connString As String = ConfigurationManager.ConnectionStrings("researchConnectionString").ConnectionString

        Return connString

    End Function

    Public Shared Function checkid(ByVal iNumber As String) As String

        '(0:預約 1:未審核 2:審核過  3:第一階段)

        Dim tempValue As String = String.Empty

        Select Case iNumber

            Case "President"

                'A0_經營理念

                tempValue = " Wang"

                Exit Select

           

        End Select

        Return tempValue

    End Function