Program全般

COBOLは怖い？

Mr.T — Fri, 04 Apr 2008 12:16:00 GMT

私の職場には、現役COBOLerさんがいて毎日元気にソースを書いているのですが、

その人たちと仕事の話をしているとどうしても「うん」と云えないときがあります。

それは、「なんのためらいもなく、ソースを修正するという前提で考えている」ということです。

また、それを前提としたシステム設計になっているのも信じられません。

「あ、このコードが追加になったから」とソースを直す。もちろん、マスタテーブルはなく、プログラムへの埋め込み。
マジックナンバー、マジックコードはあたりまえ。
相応のマスタ変更や個別対応用のバッチ実行などではなく、ソース変更→プログラム実行であること。
変更によるリスクは特にないと思っている。

とてもではないですが、怖すぎます。

昔のCOBOLだとHost自体のHD容量とかにも制限があった、メモリも潤沢じゃなかった、という制限があったのはわかりますが、

それにしたって、「この処理をするときは、毎年ソースにちょっと手を加えて、確認してから実行してね」的な思想・風潮があったんでしょうか？

動くところがあったら、壊れる機会も多くなるって法則がある。（私がつくった）

ソースってのは、直したらそんだけテストしなくちゃならない、どこにも影響がないということを確かめないといけない、

そのためにどんだけ仕事をしなくちゃならないのか。

でも、私はちょっとした仕様変更もあっさり受けます。それが社内SEの強みだと思ってますしが、上のようなやつは

「必要ではないはずの仕事」です。

なぜかシステムに自分が従属してしまっているなんてのは、いやだ。

VisualBasic 2008の新機能 IFが変わった

Mr.T — Thu, 13 Mar 2008 09:51:00 GMT

Mr.Tです、こんにちは。

いや、これはすごい

やってくれたよ、こんなのをサポートしたのね。

ネタ元：http://blogs.msdn.com/vbteam/archive/2008/03/11/if-operator-a-new-and-improved-iif-sophia-salim.aspx

（注意：以下は翻訳ではないですよ）

今までC#、C++などで使えていた3項演算子である（？）は、ショートサーキット評価による演算で、
かなり便利だなぁと思われていたものです。

それが、VBでも利用できるようになりました。すばらしい。

ショートサーキット評価ってのは、簡単にいえば、

True Or (変数A = 変数B)

という式があった場合、変数A=変数Bを評価しなくても、式の結果はTrueになりますから、

わざわざ変数A=変数Bを内部で評価しませんよ、というものです。

逆にいえば、ショートサーキットであれば、Trueパートだろうが、Flaseパートだろうが、「内部で評価されてしまう」

わけですね。

関数IIFだと、ショートサーキットではありません。

使い方は、こうです。

IF（判定式,Trueパート,Falseパート)

もしくは、

IF（Trueパート、Falseパート）

いや、すごいね、3項演算子から、判定式まで省略できるように進化してしまったよ！

#っていうか、ぶっちゃけそこまでいらねー

3項演算については、もうだいたいわかっている機能なんですが、2項演算になってしまったというか、

IF（Trueパート、Falseパート）

なによ、これ？

MSDNで検索。

http://msdn2.microsoft.com/en-gb/library/bb513985(ja-jp).aspx

Boolean 引数を省略するときは、1 番目の引数に参照型または null 許容型を指定する必要があります。1 番目の引数が Nothing と評価されると、2 番目の引数の値が返されます。それ以外のすべての場合は、1 番目の引数の値が返されます。次の例は、この評価がどのように動作するのかを示します。

つまり、判定する式と値が一体化してしまったような形ですね。判定対象はNothingになります。

注意するのが、1番目の引数が参照型もしくは、Null許容型でなくちゃならないってことでしょうか。

#使い道がわからん

ネタ元のコメントには、？が使いたいならC#を使えば？とか、かいてあったり、これイイヨ！とか、賛否両論

な感じですが、私は素直に喜べる機能じゃないかと思ってます。

CustomValidatorを使って複合サーバコントロールに検証用のイベントを追加する

Mr.T — Wed, 05 Mar 2008 14:37:00 GMT

Mr.Tです、こんにちは。

ネタ元：http://www.ailight.jp/blog/kazuk/archive/2008/02/22/14491.aspx

ValidatorをASPXファイルに書いていると、やたらと行数を稼いでしまって、なんだか見難いようにも

おもってました。

今回は、今のプロジェクトで利用しているカスタムのコントロールに検証機能を追加するようにしてみたものです。

#コントロールは、プロジェクトで使用する製品CDのようなコード群をTextBox形式で扱うためのコントロールです。

入力値は必ずチェックをするものなので、基本チェックは何をしなくてもValidして欲しい、

更に、必要であれば個別にValidate処理を実装できるようにする必要がありました。

    Protected Overrides Sub CreateChildControls()
        nameTextBox = New TextBox
        nameTextBox.ID = NameTextBoxID
        nameTextBox.Width = Me.NameWidth
        nameValidator = New CustomValidator
        With nameValidator
            .ID = NameValidatorID
            .ValidationGroup = _validateGroupName
            .Text = "*"
        End With
        AddHandler nameValidator.ServerValidate, AddressOf OnServerValid
        Controls.Clear()
        Controls.Add(nameTextBox)
        Controls.Add(nameValidator)
    End Sub

    Private _targetServerValidateEventArgs As ServerValidateEventArgs
    Public Sub NameBoxValidate()
        Me.EnsureChildControls()
        _targetServerValidateEventArgs = New ServerValidateEventArgs(nameTextBox.Text, False)　...(*1)
        Me.OnTextServerValidate(Me, _targetServerValidateEventArgs)
        nameValidator.IsValid = _targetServerValidateEventArgs.IsValid
    End Sub

'サーバ上での基本Valid処理
    Private Sub OnServerValid(ByVal source As Object, ByVal events As ServerValidateEventArgs)
        If ************ Then
            events.IsValid = False
            nameValidator.ErrorMessage = Resources.****
        Else
            events.IsValid = True
            nameValidator.ErrorMessage = String.Empty
        End If
    End Sub

    Private Shared ReadOnly EventTextServerValidateKey As Object = New Object

    Public Custom Event TextServerValidate As ServerValidateEventHandler
        AddHandler(ByVal value As ServerValidateEventHandler)
            Events.AddHandler(EventTextServerValidateKey, value)
        End AddHandler

        RemoveHandler(ByVal value As ServerValidateEventHandler)
            Events.RemoveHandler(EventTextServerValidateKey, value)
        End RemoveHandler

        RaiseEvent(ByVal sender As Object, ByVal e As ServerValidateEventArgs)
            CType(Events(EventTextServerValidateKey), ServerValidateEventHandler).Invoke(Me, e)
        End RaiseEvent
    End Event

    Protected Overridable Sub OnTextServerValidate(ByVal source As Object, ByVal e As ServerValidateEventArgs)
        Dim validateHandler As ServerValidateEventHandler = CType(Events(EventTextServerValidateKey), ServerValidateEventHandler)

        EnsureChildControls()

        nameValidator.Validate()
        If EventTextServerValidateKey IsNot Nothing Then
            validateHandler(Me, e)
        End If
    End Sub

ASPX側では、

Protected Sub 個別Valid(byval sender as Object,byval e as ServerValidateEventArgs) handles CustomControl.TextServerValidate

ほにゃらら～

　ここで独自のチェックができるぞよ～

end Sub

そんなに難しいわけじゃないんですが、OnServerValidの呼び出しの際、ServerValidateEventArgsオブジェクトのパラメータを

どうするべと悩んだのはないしょです。

Clickイベントなどであれば、EventArgs.Emptyをパラメータとして渡せばよいわけですが、今回は、ServerValidateEventArgsなので、

ServerValidateEventArgs.Emptyを渡せません。

そんなら、インスタンスを渡せばええんかいな～と調べてみて、

http://msdn2.microsoft.com/en-gb/library/system.web.ui.webcontrols.servervalidateeventargs.servervalidateeventargs(ja-jp,VS.80).aspx

ここで、Valueと、IsValidを指定すればよいことがわかったので、そのまま(*1)実装。

で、渡したパラメータに対して、CustomValidatorコントロールのIsValidに結果をわたせばいいです。

検証コントロールなんかなくなってしまって、いい感じです。

チェックルーチンの書き方？

Mr.T — Fri, 29 Feb 2008 18:27:00 GMT

Mr.Tです、こんにちは。

例えば、データの整合性についてのチェックルーチンを書くとき、

Private Function チェック1() as Boolean

　　整合性パターン１のチェック()

　　整合性パターン２のチェック()

　　整合性パターン３のチェック()

　　整合性パターン４のチェック()

End Function

ってかいてるんですが、

もう一つ、別のチェック２、３をかかなくちゃならないとき、

Private Function チェック2() as Boolean

　　整合性パターン１のチェック()

　　整合性パターン２のチェック()

　　整合性パターン４のチェック()

End Function

Private Function チェック３() as Boolean

　　整合性パターン１のチェック()

　　整合性パターン２のチェック()

　　整合性パターン５のチェック()

End Function

今のところ、こうやってベタに書いてます。

そういうときに、整合性パターン１のチェック、と整合性パターン２のチェック、を一つのFunctionniにまとめてみたりしたこともあったのですが、

そういう場合は、そのFunction名の名前付けに悩みます。

Private Function 整合性パターン１と２（） as Boolean

　　整合性パターン１のチェック ()

　　整合性パターン２のチェック ()

End Function

Private Function チェック1() as Boolean

　　整合性パターン１と２ ()

　　整合性パターン３のチェック()

　　整合性パターン４のチェック ()

End Function

Private Function チェック2() as Boolean

　　整合性パターン１と２()

　　整合性パターン４のチェック()

End Function

Private Function チェック３() as Boolean

　　整合性パターン１と２()

　　整合性パターン５のチェック()

End Function

なにしろ、そのまとめ方というのは、単なる同じ記述だから、というだけのもので、くくりだすにしても、適当な名前がつけられるものでは

ないからです。（連番なんてのはポイだ）

整合性パターンのチェック１と２は、互いに関係があるものではなく、単純に処理が一緒だから、まとめたというだけです。

まとめる＝ソースの量を減らせる

ではあるんですが、ある程度大きくなったソースになれば関係ないように思うんです。

それよりも大切なのは、Function名がいかに適切な名前であるかです。

くくりだすことで、チェック１～３の可読性が低くなるなら、それはやめたほうがよいのだろうと思ってます。

先ほどのようにくくりだした場合、その名前から処理が判断できそうか、というと、そんな名前がつけられるのであれば苦労はしないです。

仮につけたとしても、名前から判断できるものをつけられたためしがない。

また、チェック１～３をまとめたりするのは、あるかと思います

Private Enum Pattern

　　　チェック１
　　　チェック２
　　　チェック３

end Enum

Private Function チェック(byval pattern as Pattern) as Boolean

　　整合性パターン１ ()

　　整合性パターン２ ()

select case pattern

case Pattern.チェック１

整合性パターン３のチェック()

整合性パターン４のチェック ()

case Pattern.チェック2

整合性パターン１と２()

整合性パターン４のチェック()

case Pattern.チェック3

整合性パターン５のチェック()

End Case

End Function

ただし、チェックという名前にしてしまうとなんのチェックなのかわからなくなってしまうケースがあることと、

一つのルーチンそのものが、長くなり一覧性が失われるってところです。

とはいえ、ここの判断はケースバイケースですし、好みもあるんじゃないかと。

私なら、チェック１という名前自体に直接結びつくメソッドがあるなら、統一しません。

例えば、

更新処理（）というメソッドがあるなら、更新処理用チェック（）をつくってしまいます。

そこには更新処理用のチェック処理しかないので、その処理を追うときには、それ以外のことを考える必要がないからです。

チェックという大きなルーチンをつかってしまったりすると、その部分を変更したときに、他のチェック２，３を行う

フローに影響がないかテストしなくてはならないから、ですね。

専用ルーチンなら、そんなことはありません。専用ルーチンだけをテストすればよいわけです。

が、他のチェック内容とほぼ一緒で、数行しか違わないとかいうパターンなら、まとめてしまいます。

なので、ケースバイケースです。

蛇足ですが、チェックルーチン内で、「～の値をセット」とかいう別のことをしたらいけません。

#意味的に処理の分割ができなかったりすると、チェックルーチンと一緒に値のセットとか、プロパティ値のクリアとか
#ごちゃまぜにしてしまうのですが、それは処理を追いきれなくなります。

チェックルーチンは判断するだけにしておくことが必須だと思ってます。

なんか、すんごいベーシックな話ですが...

値と参照を知らない（Clearメソッドで、失敗する）

Mr.T — Wed, 20 Feb 2008 13:14:00 GMT

Mr.Tです、こんにちは。

こことか、こことか、みたときに、そういやなぁ...と思った。

Private _srcParameter As New List(Of String)
Private _dstParameter As New List(Of String)

Sub Main()

    Dim targetParameter As New List(Of String)

    targetParameter.Add("朝日のあたる家")
    targetParameter.Add("グインサーガ")
    targetParameter.Add("伊集院大介の冒険")
    _srcParameter = targetParameter

    TitlePrint(_srcParameter)

    targetParameter.Clear()

    targetParameter.Add("おにぎり")
    targetParameter.Add("のりまき")
    targetParameter.Add("こーんすたーち")
    _dstParameter = targetParameter

    ItemPrint(_dstParameter)

    Console.WriteLine("=====================================")

    For Each sItem As String In _srcParameter
        Console.WriteLine("手元にある本:" & sItem)
    Next

    For Each sitem As String In _dstParameter
        Console.WriteLine("買い物リスト:" & sitem)
    Next

End Sub

Private Sub TitlePrint(ByVal sList As List(Of String))
    For Each sItem As String In sList
        Console.WriteLine("手元にある本:" & sItem)
    Next
End Sub

Private Sub ItemPrint(ByVal sList As List(Of String))
    For Each sitem As String In sList
        Console.WriteLine("買い物リスト:" & sitem)
    Next
End Sub

あれぇ、どうしてだろうと思った時、それが値なのか、参照なのか、を意識していない。

TreeNodeのLevelとDepth

Mr.T — Fri, 08 Feb 2008 11:51:00 GMT

Mr.Tです、こんにちは。

現在作成しているWebアプリケーションではTreeViewを頻繁に利用しているが、

そのときノードの深さを知りたいなと思い、たしかそんなプロパティがあったはず（でも、度忘れ）で、MSDNを調べてみた。

TreeViewのノードのプロパティ一覧から...あったよLevelプロパティ。

うん、感覚的にLevelってのはわかりやすかったので、素直に以下のページへ。

http://msdn2.microsoft.com/ja-jp/library/system.windows.forms.treenode.level(vs.80).aspx

Level プロパティの場合、ルートノードは入れ子の最初のレベルと見なされ、0 が返されます。

よしよしと、Treeview.Levelと打とうとしたら、アレレ...インテリセンスがきかへん。

あれ？と思って前のページを見直すと、System.Windows.Forms名前空間であるのに気がついた。

いや、そうじゃないんだ、System.Web.UI.WebControls 名前空間を調べないと。

で、同じように、検索してLevelプロパティを探す。

ない...

いや、おかしい、絶対あるはずと更に一覧を眺めると、Depthプロパティ...ナニ...？

http://msdn2.microsoft.com/ja-jp/library/system.web.ui.webcontrols.treenode.depth(VS.80).aspx

Depth プロパティを使用して、ノードの深さを確認します。深さは、ノードとルートノードの間の階層構造のレベル数を表します。たとえば、ルートノードの深さは 0 です。ルートノードの子ノードの深さは 1 です。以下同様です。

統一してないのね、こういうの。

ええ、開発チームが違うんでしょ。わかってますよ。

感覚的には、Levelがわかりやすいと思ったけど、Depthの方が日本語に近いのかな（深さとレベル）

でも、これって「ふいんき（変換できない）」 VS 「雰囲気」な的違いじゃね？と思ったりするのは、私だけでしょうか。

#いや違う。違うはずだ。違う...よね？

壮絶な間違い

Mr.T(mrt@wankuma.com) — Tue, 18 Dec 2007 15:12:00 GMT

Mr.Tです、こんにちは。

マジックナンバー、マジックワードをプログラム上から消そうというときには、Const定義やリソースを利用する。

Private Const MaxSelectionNo as Integer = 10

Me._errorMessage = Resources.MyResource.InvalidInputLength '入力長がおかしい

さて。

1)文字列は、リソースに入れることができる。

　メッセージとか、タイトルとかCaptionも...

2)Const宣言の10をリソースに突っ込もうとして、IDEで怒られる。

ああ、Constはビルド時に値がセットされるから、こういう使い方はできないよな。そうそう...

3)Const定義している定数や、判定値をリソースに突っ込み始める

　マジックナンバー、マジックナンバー...

4)（作業中）手をとめた。

　あれ、こうしてると、全く、Constっていらなくね？

5)Constについて、MSDNで調べ始める

　んなこた、わかってるんだよ、　MSDN！もちっとガイドライン的な話はねーのかよ！

6)ResourceについてもMSDNで調べてみる。なんだか、おかしいと気がついてきた

　Constってリソース定義に置き換えられたっけ？多言語対応...必要ないし...

7)元に戻し始める

　おかしーとおもったんだよなー。そりゃ、メッセージはいいんだけど、マジックナンバーはやっぱConstだなー。

8)しばらく時間がたって、1)に戻る。

配列とCSVデータの有効利用：Memo

Mr.T(mrt@wankuma.com) — Thu, 22 Nov 2007 11:09:00 GMT

Mr.Tです、こんにちは。

~~CSVファイルでは、どのフィールドが、どういう属性を持ったもなのか（文字なのか、数値なのか、Boolなのか）~~

~~という構造はわからない。~~

~~そのためプログラム上で、判断する必要が出てくるわけだが、~~その際のことをまとめてみた。

CSVファイルではなく、CSVとしてのデータをすでにもらっている場合でのMemoです。

#VB.NET .NETFramework2.0での話

１）読み込んだファイルの内容を、改行で区切る

　Splitが有効ではあるが、これを使うと配列になってしまう。
　その先、更にカンマやタブなどで分解するときにSplitが必要になるため、配列でのループが2重で発生する。
　そのため文字列の切り出しで行ってもいいだろう。

　改行については、改行文字に注意。CrLｆだったり、Crだったり、Lfだったりする可能性があるが、相手がなんなのか
　わからん場合は、明示的に、

　Allrecords = Allrecords.Replace(ControlChars.CrLf, ControlChars.Lf)
　Allrecords = Allrecords.Replace(ControlChars.Cr, ControlChars.Lf)

　とでもしておくと、迷わずに済む。

#このコストはあんまり気にしてない
#置換の順番には、注意。Crを先に置換すると、CrlfがLfLfになっちまう

２）レコードをいれておくなら、Classでもつくっとけ。

　単純にPrivateなClassをつくってもそれまでなような気がする。（DataTableとかでもいいんだろうけど）

　で、その際には、Enumで配列データの添え字に対する定義をつくっておこう。

    Private Enum CSVField As Integer
        PlaceCode = 0
        AllocationCode
        AddressCode
        AllocationBudge
    End Enum

こうすりゃ、クラスのフィールドやプロパティにセットするときも名前が同じにしとけば間違えにくいと思う。

Dim item as CSVitem = new CSVItem

        item.PlaceCode = targetAry(EnumBudgeCSVField.PlaceCode)
        item.AllocationCode = targetAry(EnumBudgeCSVField.AllocationCode)
        item.AddressCode = targetAry(EnumBudgeCSVField.AddressCode)

　CSVの変更があった場合やレイアウトの変更があった場合でも、修正部分は減る。

３）配列の上限は、Enumからとっておけばイイんじゃね？

　例えばデータチェックでは、配列の上限がいくらになるかで判定するだろう。

        If [Enum].GetValues(GetType(EnumBudgeCSVField)).GetUpperBound(0) <> targetAry.GetUpperBound(0) Then
            Me._errorMessage = "データが正しく設定されていません" & ControlChars.CrLf & _
                                    "原始データ=>:" & recordData
            Return false
        End If

　最大値つーことで、Enumの一番最後の要素で判断するのは危険。CSVに変更があったときに、忘れがちなとこだと思う。

４）DBに入れるときは、そのままInsertにできるような部分構文吐き出す、ToStringみたいなメソッドがあると、楽な場合もある。

　別にToStringでなくてもいいんだろうが、まあToSQLStringでもいいだろうし、GetSQLStringでもいい。

　　Insert構文は、Insert into TableName(fields1,) values( **,**,'**',...)とこんな感じだから、value以下のデータが
　　さっくり取り出せるなら、簡単じゃないか。

５）CSVデータは、List構造や、Stackとか、Queueとかつかっとけ。

　2)でつくったクラスを List (of T）とか、 Stack(of T)とか、Queue（of T）で利用すれば扱いが楽だろう。

６）データにカンマとかある？そんなのは、格納クラスでつくりこんでしまえ。

　データにカンマが存在する場合とか、""とかで文字列は囲ってあるとか、色々やりたいなら、やはり２）とかのクラスつくろうよ。

データベースを読み取り専用にする（SQLServer 2005）

Mr.T(mrt@wankuma.com) — Tue, 20 Nov 2007 18:43:00 GMT

Mr.Tです、こんにちは。

とりあえず、Googleで、網羅的に転がっている情報を見てみる。

検索語：SQLServer 読み取り専用

あきこさんのBlogが一番にHIT。http://blogs.sqlpassj.org/akiko/archive/2006/08/23/18453.aspx

まずは、ここで読んでみると、Oracleとの比較うんちゃらと書いてある。

で、まずは基本の部分がわからん場合は、そこからが出発点とする。

ファイルグループの指定が、必要だというが、ファイルグループとはなんぞということであれば、それを調べる。

そこで、きちんと原点に返る。Ｇｏｏｇｌｅで調べても同じソースにであえることもあるが、知識がない場合は

それが正しいものなのかどうかすら、判断できない。だから、「より正しいだろう原点」を覚えておくことがまず必要だ。

SQLServer 2005 ヘルプをF1キーで起動。

検索語：Alter DataBase

http://msdn2.microsoft.com/ja-JP/library/ms189563.aspx

ファイルグループってのは、

各データベースには、1 つのプライマリファイルグループがあります。プライマリファイルグループには、プライマリデータファイル、および他のファイルグループに配置されていないセカンダリファイルが含まれます。ユーザー定義のファイルグループを作成して、データベースの管理、データの割り当て、および配置をしやすくするために、データファイルをグループ化できます。

通常、GUIでつくるときは、プライマリだけになっているが、セカンダリという形で、複数のデータファイル(ｎｄｆファイル)を
作れる。

更に読むと、Blogにあるようにファイルグループに対して読み取り専用とすることができることがわかる。

ここで、重要なのは、参照という項目にある、関連項目のチェックだ。

ここにある情報では、知識をすべて補完できるわけではなく、他の情報にまたがっている場合が多い。

なので、そこのリンク先から派生していろいろと見てみること。

で、その中の、「ファイルグループのデザイン」

http://msdn2.microsoft.com/ja-JP/library/ms189126.aspx

ここにくると、「読み取り専用のファイルグループと圧縮」というのがある。かなり、近い情報と思われるので、ここをクリック。

はいはい、セカンダリグループでないと読み取り専用にできないってことがわかった。

で、最初に戻って、Alter DataBaseで読み取り専用の指定場所をしらべると

<filegroup_updatability_option>::=

ファイルグループに読み取り専用、または読み取り/書き込みのプロパティを設定します。

READ_ONLY | READONLY

ファイルグループが読み取り専用であることを指定します。この中のオブジェクトを更新することはできません。プライマリファイルグループを読み取り専用にすることはできません。この状態を変更するには、データベースに対する排他的アクセスが必要になります。詳細については、SINGLE_USER 句を参照してください。
読み取り専用データベースのデータを変更することはできないため、次のようになります。

システム起動時に自動復旧がスキップされます。
データベースの縮小が不可能になります。
読み取り専用データベースでは、ロックは発生しません。これにより、クエリのパフォーマンスが向上することがあります。

メモ :
キーワード READONLY は、将来のバージョンの Microsoft SQL Server では削除される予定です。新しい開発作業では READONLY の使用は避け、現在 READONLY を使用しているアプリケーションは修正するようにしてください。代わりに、READ_ONLY を使用してください。

で、プライマリファイルグループでは読み取り専用にできない、とその前に書いてあったけど、排他的アクセスができれば、可能って

書いてある。というので、Single_User句を調べる。

<db_user_access_option> ::=

データベースへのユーザーアクセスを制御します。

SINGLE_USER

一度に 1 人のユーザーだけがデータベースにアクセスできます。SINGLE_USER が指定されており、他のユーザーがデータベースに接続している場合には、指定したデータベースからすべてのユーザーが接続解除するまで、ALTER DATABASE ステートメントはブロックされます。この動作を無効にする場合は、WITH <termination> 句を参照してください。
このオプションを設定したユーザーがログオフしても、データベースは SINGLE_USER モードのままです。そのユーザーがログオフした時点で、他のユーザーが 1 人だけデータベースに接続できます。
データベースを SINGLE_USER に設定する前に、AUTO_UPDATE_STATISTICS_ASYNC オプションが OFF に設定されていることを確認します。ON に設定されている場合、統計の更新に使用されるバックグラウンドスレッドによってデータベースへの接続が使用されるため、シングルユーザーモードでデータベースにアクセスできなくなります。このオプションの状態を表示するには、sys.databases カタログビューの is_auto_update_stats_async_on 列にクエリを実行します。このオプションが ON に設定されている場合、次の作業を行います。

AUTO_UPDATE_STATISTICS_ASYNC を OFF に設定します。
sys.dm_exec_background_job_queue 動的管理ビューにクエリを実行することにより、アクティブな非同期の統計ジョブがあるかどうかを確認します。
アクティブなジョブがある場合、それらのジョブが完了するまで待機するか、KILL STATS JOB を使用して手動でジョブを終了します。

RESTRICTED_USER

RESTRICTED_USER モードでは、db_owner 固定データベースロールと、dbcreator 固定サーバーロールおよび sysadmin 固定サーバーロールのメンバだけが、データベースに接続できます。ただし、接続ユーザー数に制限はありません。データベースに対するすべての接続は、ALTER DATABASE ステートメントの終了句で指定したタイムフレーム内に接続解除されます。データベースが RESTRICTED_USER 状態に移行すると、許可されていないユーザーによる接続の試行は拒否されます。

MULTI_USER

データベースに接続するための適切な権限を持つすべてのユーザーが許可されます。

このオプションの状態を確認するには、sys.databases カタログビューの user_access 列、または DATABASEPROPERTYEX 関数の UserAccess プロパティを調べてください。

さらに、SingleUserにするには、With句が必要らしいので、

WITH <termination>::=

ある状態から別の状態にデータベースが遷移する場合に、未完了のトランザクションがいつロールバックされるかを指定します。データベースにロックが存在した場合に終了句を省略すると、ALTER DATABASE ステートメントが無限に待機します。指定できる終了句は 1 つだけで、SET 句の後に指定します。
メモ :
すべてのデータベースオプションで WITH <termination> 句が使用できるわけではありません。詳細については、「解説」の「オプションの設定」にある表を参照してください。

ROLLBACK AFTER integer [SECONDS] | ROLLBACK IMMEDIATE

指定した秒数の後、または直ちにロールバックするかどうかを指定します。

NO_WAIT

要求されたデータベースの状態またはオプションの変更がすぐに完了しない場合、トランザクションがコミットまたはロールバックするのを待機せずに、要求が失敗します。

ちょっとくじけそうになるが、プライマリファイルグループを読み取り専用にするなら、色々としなくてはならないらしい。

SingleUserモードにするには、

１）AUTO_UPDATE_STATISTICS_ASYNC オプションがOFFかどうか調べる

Use master

select is_auto_update_stats_async_on from sys.databases

しかし、これで返ってくるのは、ON,OFFと思いきや0という数値。あわてず騒がす、sys.databasesをHELPで検索。

http://msdn2.microsoft.com/ja-jp/library/ms178534.aspx

ここで、

1 = AUTO_UPDATE_STATISTICS_ASYNC は ON です。
0 = AUTO_UPDATE_STATISTICS_ASYNC は OFF です。

というくだりを発見できるので、OKとの判断がくだせる。

さらに、WITH句を指定しないといけないのだが、トランザクションが仮にあった場合に、どうするかということなので、

すぐにロールバックしてOKなら、IMMEDIATEを利用すればいいみたいだ。

さらに、Single_Userモードにしたら、元の状態にもどさないといけないので、その元がなんなのかを調べる。

select user_access from sys.databases

ユーザーアクセス設定です。
0 = MULTI_USER が指定されています。
1 = SINGLE_USER が指定されています。
2 = RESTRICTED_USER が指定されています。

これで、MULTI_USERが指定されていることがわかったので、ようやく

alter database データベース名

set SINGLE_USER

with rollback IMMEDIATE

alter database データベース名

set READ_ONLY

with IMMEDIATE

alter database データベース名

set MULTI_USER

ということで、ようやくデータベースを読み取り専用にできたわけだ。

実は、alter databaseのドキュメントには、サンプルがのってあって、きちんと読み取り専用にするケースがかいてあった。

#それにしても、このT-SQLコマンドのドキュメントにある文法記述って、なんだかわかりにくいなぁと思うのは私だけ？

#サンプルみないと、うまく理解できません。

アルゴリズム(3)

Mr.T(mrt@wankuma.com) — Wed, 14 Nov 2007 15:35:00 GMT

Mr.Tです、こんにちは。

前回の続アルゴリズムの続きです。

前回は、ここまででした。

While (登った距離 <= 10)
日にち = 日にち + 1

（ループの中）

End While

これに、登った距離が+3mであることを追記していきます。

While (登った距離 <= 10)
日にち = 日にち + 1

登った距離 = 登った距離 + 3

（ループの中）

End While

更に、登った距離が10mを超えたかどうかを判断します。

ループの条件でも判断していますが、これはあくまでも、ループの処理を続けるためのもので
あることに注意してください。
ここがアルゴリズムと、実際のソースとの断絶のうちの一つです。

このループ処理は、あくまでも同じ処理を続けるためのものでしかなく、
それゆえ、

While (登った距離 <= 10)

End While

というループ条件でなくてもよいのです。

例えば、

Loop

として、無限ループにしておいて、ループ内で条件一致のときに処理をループを抜けるとしてもなんら問題ありません。

しかし、登った距離が10m以下であれば処理が続くという条件を無視する必要もないですので、あえてここではこの
条件を使っています。

While (登った距離 <= 10)
   日にち = 日にち + 1
登った距離 = 登った距離 + 3
if 登った距離>10 then
   console.writeline("答えは、{0}日です",日にち.toString)
   exit while
end if

（ループの中）

End While

最後に、こえてなければ、2mずり落ちます。

While (登った距離 <= 10)
   日にち = 日にち + 1

登った距離 = 登った距離 + 3

if 登った距離>10 then
   console.writeline("答えは、{0}日です",日にち.toString)
   exit while
end if

登った距離 = 登った距離 -2

End While

で、大切な初期条件。

日にちは、いつから始まるのか？
登った距離は、どこからはじまるのか？

日にちは、初期条件から1日目から始まると、あります。
ところが、ソレに習って日にち=1と書いて

日にち = 1
While (登った距離 <= 10)
   日にち = 日にち + 1 (1)

登った距離 = 登った距離 + 3

if 登った距離>10 then
   console.writeline("答えは、{0}日です",日にち.toString)
   exit while
end if
登った距離 = 登った距離 -2

(3)

End While

こうやっちゃうと正しい答えが出てきません。
そもそも、(1)では最初、日にち=１とならなければいけないからです。

なぜ、こうなったのかといえば、日にちがカウントされるのは、一番最初の日だけ条件が違うからに他なりません。
日にちが+1になるのに、毛虫が登って落ちてからであるのに、最初の日だけは、登って落ちなくてもすでに1であるためです。

これは、日にち =1,2,3,...という処理を日にち=日にち+１としてしまったから、と言い換えても同じです。
日にち=1では、2,3,4,...となってしまいます。

そのため日にち=0と与えてやらなくてはなりません。

もし、仮に日にち=1と初期値をあたえるのであれば、(1)の式は、(3)に移しておかないといけません。
しかし、その場合、元々考えていた処理の流れではなくなってしまいます。

アルゴリズムを実装する場合は、条件が変わってしまうケースがあります。

ここがアルゴリズムと、実際のソースとの断絶のもう一つです。

正しいソースは以下の通りです。

日にち = 0
登った距離 = 0
While (登った距離 <= 10)
   日にち = 日にち + 1

登った距離 = 登った距離 + 3

if 登った距離>10 then
   console.writeline("答えは、{0}日です",日にち.toString)
   exit while
end if

登った距離 = 登った距離 -2

End While

一応、プログラムの本当の初心者に対して、とか考えてみたエントリなんですが、やっぱりアルゴリズムを勉強させる方法ってのは
なかなかないですねぇ。