月: 2009年12月

投稿日:

VB2005 DataViewの使い方

    Dim cn As SqlClient.SqlConnection

    Sub Test1()

        Dim cmd As New SqlClient.SqlCommand
        Try
            Dim strSQL As String = “stTest1”
            cmd.Connection = cn
            cmd.CommandText = strSQL
            cmd.CommandType = CommandType.StoredProcedure

            Dim da As New SqlClient.SqlDataAdapter
            da.SelectCommand = cmd

            Dim dt As New DataTable
            dt.Locale = System.Globalization.CultureInfo.InvariantCulture

            da.Fill(dt)

            ‘(1) 1行で設定する方法
            ‘Dim view As DataView = New DataView(dt, “Name1 like ‘%abc%'”, “Name1, Value1 DESC”, DataViewRowState.CurrentRows)

           ‘(2) 個別にプロパティーを設定する方法
            dt.TableName = “Table1” ‘なぜかこれが必要
            Dim view As DataView = New DataView
            With view
                .Table = dt
                .AllowDelete = False
                .AllowEdit = False
                .AllowNew = False
                .RowFilter = “Name1 like ‘%abc%'”
                .RowStateFilter = DataViewRowState.CurrentRows
                .Sort = “Name1, Value1 DESC” ‘Name1の昇順，Value1の降順にソート
            End With

            ‘DataGridViewに表示
            DataGridView1.DataSource = view

            ‘RowFilterを設定し直せばDataGridViewの内容も変わる

        Finally
            cmd.Dispose()
        End Try

    End Sub

参考：
DataView.RowFilter プロパティ (MSDN)

投稿日:

VB2005 バージョン情報の取得

バージョン情報にはいろいろ種類があってややこしい

1. 通常のEXEファイルのバージョン情報
(1)アセンブリバージョン
(2)ファイルバージョン
(3)製品バージョン

これらは，プロジェクトのプロパティー – アプリケーション – アセンブリ情報
で設定する．
ファイルバージョンと製品バージョンは，どちらもファイルバージョンで設定した値が入るようだ．

2. ClickOnceで発行したときのバージョン情報
プロジェクトのプロパティー – 発行 – 発行するバージョン
で設定する．

1. 通常のEXEファイルのバージョン情報の取得方法

        ‘(1)アセンブリバージョンの取得
        Dim strFormat As String = “Version {0}.{1:00}.{2:00}.{3:000}”
        Dim strVer As String = System.String.Format(strFormat, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)

        ‘ファイルバージョンと製品バージョンの取得
        ‘実行ファイルのパスを取得
        Dim FilePath As String = System.Reflection.Assembly.GetExecutingAssembly().Location
        ‘バージョン情報を取得
        Dim ver As System.Diagnostics.FileVersionInfo = System.Diagnostics.FileVersionInfo.GetVersionInfo(FilePath)
        ‘(2)ファイルバージョン
        Dim strFileVer As String = ver.FileVersion
        ‘(3)製品バージョン
        Dim strProductVer As String = ver.ProductVersion

2. ClickOnceで発行したときのバージョン情報の取得方法

        Dim strVer As String = String.Empty
        ‘ClickOnceでインストールされている場合のみ取得
        If System.Deployment.Application.ApplicationDeployment.IsNetworkDeployed Then
            Dim Ver1 As Version = System.Deployment.Application.ApplicationDeployment.CurrentDeployment.CurrentVersion
            strVer = Ver1.Major.ToString() + “.”
            strVer += Ver1.Minor.ToString() + “.”
            strVer += Ver1.Build.ToString() + “.”
            strVer += Ver1.Revision.ToString()
        End If

※ ClickOnceで発行したときのバージョン情報は開発環境から実行した場合は取得できないので，実際に発行したアプリを実行して確認する．

投稿日:

モグリエ

布団を顔の上まで掛けても顔に接触しない寝具

寝るとき顔が寒くて困っていたがこれはすばらしい．
暖かくてもう最高．

無駄にデカい気もするし，途中で目が覚めたときに何も見えないので今何時かわからないという欠点も無いではないけど，それを補って余りある快適さだ．

我が家のモグリエ

http://www.moglie.org/