Dim Conn As SqlConnection = UW.SQL.GetOpenedConnection

        Dim Tran As SqlTransaction = Conn.BeginTransaction

        Try

            Dim C As Int32 = UW.SQL.GetSingleValue("Select Counter From TableA Where Id = 1", Tran)

            C = C + 1

            UW.SQL.executeSQL("Update TableA Set Counter = " & C & " Where  Id = 1", Tran)

            Tran.Commit()

        Catch ex As Exception

            Tran.Rollback()

            UW.WU.DebugWriteLine(ex.ToString, True, True)

        Finally

            If Conn.State <> ConnectionState.Closed Then

                Conn.Close()

            End If

        End Try

Dim C As Int32 = UW.SQL.GetSingleValue("Select Counter From TableA Where Id = 1", Tran)

Dim C As Int32 = UW.SQL.GetSingleValue("Select Counter From TableA With(XLock) Where Id = 1", Tran)

刪除資料庫

DROP DATABASE name;

SQL版本查詢

SELECT SERVERPROPERTY('productversion')

SELECT SERVERPROPERTY ('productlevel')

SELECT SERVERPROPERTY ('edition')

with(nolock, index(IX_NTA_StayingRoomSales))

Select * From Table with(nolock, index(IX_NTA_StayingRoomSales)) Where AAAAA