SQLServerでDataTableの内容を一度のSQLでデータベースに更新する

DataTable の内容をデータベースに登録、または更新したい場合がある。
しかし、DataTable の行をループしながら行毎に INSERT 文や UPDATE 文を発行すると IO 負荷が高くなり、パフォーマンスが悪化する。
そこで、SQL Server のユーザー定義テーブル型を使用することにより一括での更新が可能となる。

前提条件：SQL Server 2008 以降

IO負荷が高い例

Sub Test(ByVal dt As DataTable)

Dim con As New SqlConnection("connection string")

Dim cmd As New SqlCommand

Dim sql As New StringBuilder

con.Open()

cmd.Connection = con

cmd.Parameters.Clear()

'データテーブルの行分だけループしている悪い例

For i As Integer = 0 To dt.Rows.Count - 1

sql.AppendLine("INSERT INTO dbo.T_TEST ")

sql.AppendLine("( ")

sql.AppendLine(" CODE ")

sql.AppendLine(") VALUES ( ")

sql.AppendLine(" @Code ")

sql.AppendLine("); ")

'パラメータの作成

Dim param = New SqlParameter("@Code", SqlDbType.Int, ParameterDirection.Input)

param.Value = dt.Rows(i).Item(0).ToString()

'パラメータを渡します。

cmd.Parameters.Add(param)

'プロシージャの実行

cmd.CommandType = CommandType.Text

cmd.CommandText = sql.ToString()

cmd.ExecuteNonQuery

Next i

End Sub

まずは、悪例としてデータテーブルのレコードを 1 件ずつ INSERT していく方法。
上記の方法だと件数が少なければ問題が無いように感じるが、１万件を超えてくるとそのパフォーマンスの悪さが目立ってくる。
１万件のデータをループして INSERT すると１万回の IO 処理となり、オーバーヘッドが大きくなる。
しかし、次の方法で INSERT すると１回の IO 処理で済む為、更新するデータ量は変わらないがかなりのパフォーマンス改善が見込まれる。

DataTableをパラメータとして渡す

DataTable をパラメータとして渡す為には、SQL Server 側にユーザー定義テーブル型を作成しておく必要がある。

CREATE TYPE TestTableType AS TABLE

(

TestCode int NOT NULL

)

テーブルの定義と同様に括弧の中にフィールド定義を記述する。
テーブルで定義できるフィールドはTableTypeでも定義可能。

続いて、プログラム側の処理。

Sub Test(ByVal dt As DataTable)

Dim con As New SqlConnection("connection string")

Dim cmd As New SqlCommand

Dim sql As New StringBuilder

con.Open()

cmd.Connection = con

cmd.Parameters.Clear()

sql.AppendLine("INSERT INTO dbo.T_TEST ")

sql.AppendLine(" ( ")

sql.AppendLine(" CODE ")

sql.AppendLine(" ) ")

sql.AppendLine(" SELECT TestCode ")

sql.AppendLine(" FROM @TestTable ")

sql.AppendLine(" WHERE TestCode = @Code ")

sql.AppendLine("); ")

'パラメータの作成

Dim params(1) As SqlParameters

params(0) = New SqlParameter("@Code", SqlDbType.Int, ParameterDirection.Input)

params(0).Value = 1

params(1) = New SqlParameter("@TestTable", SqlDbType.Structured, ParameterDirection.Input) 'TypeにSqlDbType.Structuredを渡します。

params(1).TypeName = "TestTableType" 'テーブルタイプの名称を渡します。

params(1).Value = dt '編集したデータテーブルを渡します。

'パラメータ配列を渡します。

cmd.Parameters.AddRange(params)

'プロシージャの実行

cmd.CommandType = CommandType.StoredProcedure

cmd.CommandText = sql.ToString()

cmd.ExecuteNonQuery

End Sub

ユーザー定義テーブル型を使用することで DataTable をテーブルのように渡すことができる為、一括で SELECT して INSERT または UPDATE が可能となる。

<注意事項>

DataTable のフィールドはユーザー定義テーブル型のフィールドと一致している必要がある。
ユーザー定義テーブル型を渡す場合は、SqlDbType.Structured で渡す。

ユーザー定義テーブル型を作成しておく必要はあるが、こちらの方法であれば実行速度が圧倒的に速く、パフォーマンス改善が期待できる。
デメリットとしては、ループせずに一括で更新する為、プログレスバーなどで進捗を表示することができない。

.net(VB、C#)でLINQを利用してCSVファイルを読み込む

LINQでCSVファイルを読み込む

.NETには、CSVファイルを読み取る際に便利なクラス(TextFieldParser)が「VB.NET」のライブラリに存在する。

このクラスを利用してCSVファイルをLINQで簡潔に扱えるようにする。

まず、CSVファイルへのコンテキストを生成する為のTextFieldクラスを作成する。

このクラスのContextメソッドでコンテキストを生成することでロジックを意識することなくCSVファイルの読み込みが可能になる。

Imports System.Text

Imports System.IO

Imports Microsoft.VisualBasic.FileIO

Public Class TextField

' 指定されたCSVファイルへのコンテキストを生成する

Public Shared Function Context(path As String,

Optional separator As String = ",",

Optional myEncoding As Encoding = Nothing) As IEnumerable(Of String())

Dim results As New List(Of String())

Using stream As Stream = New FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read)

Using parser As New TextFieldParser(stream, If(myEncoding, Encoding.UTF8), True, False)

parser.TextFieldType = FieldType.Delimited

parser.Delimiters = New String() {separator}

parser.HasFieldsEnclosedInQuotes = True

parser.TrimWhiteSpace = True

While parser.EndOfData = False

Dim fields As String() = parser.ReadFields()

results.Add(fields)

End While

End Using

Return results

End Function

End Class

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.IO;

using Microsoft.VisualBasic.FileIO;

namespace CS_CSVtoLINQ

{

public class TextField

{

// 指定されたCSVファイルへのコンテキストを生成する

public static IEnumerable<string[]> Context(string path,

string separator = ",",

Encoding encoding = null)

{

using (Stream stream = new FileStream(path, FileMode.Open, FileAccess.Read, FileShare.Read))

{

using (TextFieldParser parser = new TextFieldParser(stream, encoding ?? Encoding.UTF8, true, false))

{

parser.TextFieldType = FieldType.Delimited;

parser.Delimiters = new[] { separator };

parser.HasFieldsEnclosedInQuotes = true;

parser.TrimWhiteSpace = true;

while (parser.EndOfData == false)

{

string[] fields = parser.ReadFields();

yield return fields;

}

次は、実際にTextFieldクラスを利用してコンテキストを生成し、CSVファイルへアクセスしてLINQにより入力した条件に一致するレコードデータを表示するコードを記述する。

尚、AsParallel()メソッドを呼び出すことで条件判定をマルチスレッド化できるので、データ量が多い場合は、並列化による高速化が期待できる。

Imports System.Text

Imports System.IO

Module Module1

Sub Main()

' 検索条件に使用するIDの入力を求める

Console.WriteLine("IDを入力")

Dim input As String = Console.ReadLine()

' 入力された値から終了判定

If input.ToUpper = "END" OrElse input.ToUpper = "EXIT" Then

' "END"、または"EXIT"が入力された場合は終了

Exit Do

End If

' 指定したCSVファイルへのコンテキストを生成

Dim context As IEnumerable(Of String()) = TextField.Context("CSV\\SAMPLE001.csv", ",", Encoding.GetEncoding("Shift_JIS"))

' 取得したコンテキストを入力されたIDをキーに検索

Dim results As IEnumerable(Of String) =

From fields In context.AsParallel()

Where fields(0).Equals(input)

Select String.Format("{0}：{1}", fields(1), fields(2))

' 検索結果を出力

For Each result As String In results

Console.WriteLine(result)

Console.WriteLine("---END---")

Loop

End Sub

End Module

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

namespace CS_CSVtoLINQ

{

class Program

{

static void Main(string[] args)

{

while (true)

{

// 検索条件に使用するIDの入力を求める

Console.WriteLine("IDを入力");

string input = Console.ReadLine();

// 入力された値から終了判定

if (input.ToUpper().Equals("END") || input.ToUpper().Equals("EXIT"))

{

// "END"、または"EXIT"が入力された場合は終了

break;

}

// 指定したCSVファイルへのコンテキストを生成

IEnumerable<string[]> context = TextField.Context("CSV\\SAMPLE001.csv", ",", Encoding.GetEncoding("Shift_JIS"));

// 取得したコンテキストを入力されたIDをキーに検索

IEnumerable<string> results =

from fields in context.AsParallel()

where fields[0].Equals(input)

select String.Format("{0}：{1}", fields[1], fields[2]);

// 検索結果を出力

foreach (string result in results)

{

Console.WriteLine(result);

}

Console.WriteLine("---END---");

}

複数ファイルを跨いで検索する場合は以下のように記述することができる。

※全てのファイルレイアウトが同じ場合

Imports System.Text

Imports System.IO

Module Module1

Sub Main()

' 検索条件に使用するIDの入力を求める

Console.WriteLine("IDを入力")

Dim input As String = Console.ReadLine()

' 入力された値から終了判定

If input.ToUpper = "END" OrElse input.ToUpper = "EXIT" Then

' "END"、または"EXIT"が入力された場合は終了

Exit Do

End If

' 指定したCSVファイルへのコンテキストを生成して、入力されたIDをキーに検索

Dim results As IEnumerable(Of String) =

From path In Directory.GetFiles("CSV", "*.csv", SearchOption.AllDirectories).AsParallel()

From fields In TextField.Context(path, ",", Encoding.GetEncoding("Shift_JIS"))

Where fields(0).Equals(input)

Select String.Format("{0}：{1}", fields(1), fields(2))

' 検索結果を出力

For Each result As String In results

Console.WriteLine(result)

Console.WriteLine("---END---")

Loop

End Sub

End Module

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.IO;

namespace CS_CSVtoLINQ

{

class Program

{

static void Main(string[] args)

{

while (true)

{

// 検索条件に使用するIDの入力を求める

Console.WriteLine("IDを入力");

string input = Console.ReadLine();

// 入力された値から終了判定

if (input.ToUpper().Equals("END") || input.ToUpper().Equals("EXIT"))

{

// "END"、または"EXIT"が入力された場合は終了

break;

}

// 指定したCSVファイルへのコンテキストを生成して、入力されたIDをキーに検索

IEnumerable<string> results =

from path in Directory.GetFiles("CSV", "*.csv", SearchOption.AllDirectories).AsParallel()

from fields in TextField.Context(path, ",", Encoding.GetEncoding("Shift_JIS"))

where fields[0].Equals(input)

select String.Format("{0}：{1}", fields[1], fields[2]);

// 検索結果を出力

foreach (string result in results)

{

Console.WriteLine(result);

}

Console.WriteLine("---END---");

}

.net(VB、C#)でWindowの列挙を行う

API関数のEnumWindowsを使うことで、全てのウィンドウのハンドル(HWND)を取得する事ができる。

EnumWindowsを呼び出すと、コールバックメソッドが呼び出され、存在する個々のウィンドウのHWNDが渡される。

以下の例では、EnumWindows()でウィンドウを列挙し、コールバックメソッド内ではIsWindowVisible()を使って可視ウィンドウかどうかを調べている。

また、個々の可視ウィンドウについて、GetWindowText()を使ってウィンドウのキャプションを、GetWindowThreadProcessId()とProcess.GetProcessByIdを使ってプロセス情報を取得・表示している。

Module Module1
Public Class Sample
''' <summary>
''' ウィンドウを列挙します。
''' </summary>
''' <param name="lpEnumFunc">コールバック関数</param>
''' <param name="lParam">アプリケーション定義の値</param>
''' <returns></returns>
''' <remarks></remarks>
<System.Runtime.InteropServices.DllImport("user32.dll")>
Public Shared Function EnumWindows(ByVal lpEnumFunc As EnumWinProc, ByVal lParam As IntPtr) As Boolean
End Function
''' <summary>
''' EnumWindowsから呼び出されるコールバック関数EnumWinProcのデリゲート
''' </summary>
''' <param name="hWnd">ウィンドウのハンドル</param>
''' <param name="lParam">アプリケーション定義の値</param>
''' <returns></returns>
''' <remarks></remarks>
Public Delegate Function EnumWinProc(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean
''' <summary>
''' ウィンドウハンドルからキャプションを取得します。
''' </summary>
''' <param name="hWnd">ウィンドウのハンドル</param>
''' <param name="lpString">キャプション</param>
''' <param name="nMaxCount">キャプションの最大桁数</param>
''' <returns></returns>
''' <remarks></remarks>
<System.Runtime.InteropServices.DllImport("user32.dll", CharSet:=System.Runtime.InteropServices.CharSet.Auto)>
Public Shared Function GetWindowText(ByVal hWnd As IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal nMaxCount As Integer) As Integer
End Function
''' <summary>
''' ウィンドウハンドルからプロセスＩＤを取得します。
''' </summary>
''' <param name="hWnd">ウィンドウのハンドル</param>
''' <param name="lpdwProcessId">プロセスＩＤ</param>
''' <returns></returns>
''' <remarks></remarks>
<System.Runtime.InteropServices.DllImport("user32.dll")>
Public Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, <System.Runtime.InteropServices.Out()> ByRef lpdwProcessId As Integer) As Integer
End Function
''' <summary>
''' ウィンドウが可視かどうかを調べます。
''' </summary>
''' <param name="hWnd">ウィンドウのハンドル</param>
''' <returns></returns>
''' <remarks></remarks>
<System.Runtime.InteropServices.DllImport("user32.dll")>
Public Shared Function IsWindowVisible(ByVal hWnd As IntPtr) As Boolean
End Function
End Class
Sub Main()
' ウィンドウの列挙を開始
Sample.EnumWindows(AddressOf EnumerateWindow, IntPtr.Zero)
Console.ReadLine()
End Sub
' ウィンドウを列挙するためのコールバックメソッド
Private Function EnumerateWindow(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean
' ウィンドウが可視かどうか調べる
If Sample.IsWindowVisible(hWnd) Then
' キャプションとプロセスＩＤを表示
PrintCaptionAndProcess(hWnd)
End If
' ウィンドウの列挙を継続するにはTrueを返す必要がある
Return True
End Function
' ウィンドウのキャプションとプロセス名を表示する
Private Sub PrintCaptionAndProcess(ByVal hWnd As IntPtr)
' ウィンドウハンドルからプロセスIDを取得
Dim processId As Integer
Sample.GetWindowThreadProcessId(hWnd, processId)
' プロセスIDからProcessクラスのインスタンスを取得
Dim p As Process = Process.GetProcessById(processId)
' プロセス名を表示
Console.Write("'{0}' ", p.ProcessName)
' ウィンドウのキャプションを取得・表示
Dim caption As New System.Text.StringBuilder(&H1000)
Sample.GetWindowText(hWnd, caption, caption.Capacity)
Console.WriteLine("({0})", caption)
End Sub
End Module

100

101

102

103

104

Module Module1

Public Class Sample

''' <summary>

''' ウィンドウを列挙します。

''' </summary>

''' <param name="lpEnumFunc">コールバック関数</param>

''' <param name="lParam">アプリケーション定義の値</param>

''' <returns></returns>

''' <remarks></remarks>

<System.Runtime.InteropServices.DllImport("user32.dll")>

Public Shared Function EnumWindows(ByVal lpEnumFunc As EnumWinProc, ByVal lParam As IntPtr) As Boolean

End Function

''' <summary>

''' EnumWindowsから呼び出されるコールバック関数EnumWinProcのデリゲート

''' </summary>

''' <param name="hWnd">ウィンドウのハンドル</param>

''' <param name="lParam">アプリケーション定義の値</param>

''' <returns></returns>

''' <remarks></remarks>

Public Delegate Function EnumWinProc(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean

''' <summary>

''' ウィンドウハンドルからキャプションを取得します。

''' </summary>

''' <param name="hWnd">ウィンドウのハンドル</param>

''' <param name="lpString">キャプション</param>

''' <param name="nMaxCount">キャプションの最大桁数</param>

''' <returns></returns>

''' <remarks></remarks>

<System.Runtime.InteropServices.DllImport("user32.dll", CharSet:=System.Runtime.InteropServices.CharSet.Auto)>

Public Shared Function GetWindowText(ByVal hWnd As IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal nMaxCount As Integer) As Integer

End Function

''' <summary>

''' ウィンドウハンドルからプロセスＩＤを取得します。

''' </summary>

''' <param name="hWnd">ウィンドウのハンドル</param>

''' <param name="lpdwProcessId">プロセスＩＤ</param>

''' <returns></returns>

''' <remarks></remarks>

<System.Runtime.InteropServices.DllImport("user32.dll")>

Public Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, <System.Runtime.InteropServices.Out()> ByRef lpdwProcessId As Integer) As Integer

End Function

''' <summary>

''' ウィンドウが可視かどうかを調べます。

''' </summary>

''' <param name="hWnd">ウィンドウのハンドル</param>

''' <returns></returns>

''' <remarks></remarks>

<System.Runtime.InteropServices.DllImport("user32.dll")>

Public Shared Function IsWindowVisible(ByVal hWnd As IntPtr) As Boolean

End Function

End Class

Sub Main()

' ウィンドウの列挙を開始

Sample.EnumWindows(AddressOf EnumerateWindow, IntPtr.Zero)

Console.ReadLine()

End Sub

' ウィンドウを列挙するためのコールバックメソッド

Private Function EnumerateWindow(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean

' ウィンドウが可視かどうか調べる

If Sample.IsWindowVisible(hWnd) Then

' キャプションとプロセスＩＤを表示

PrintCaptionAndProcess(hWnd)

End If

' ウィンドウの列挙を継続するにはTrueを返す必要がある

Return True

End Function

' ウィンドウのキャプションとプロセス名を表示する

Private Sub PrintCaptionAndProcess(ByVal hWnd As IntPtr)

' ウィンドウハンドルからプロセスIDを取得

Dim processId As Integer

Sample.GetWindowThreadProcessId(hWnd, processId)

' プロセスIDからProcessクラスのインスタンスを取得

Dim p As Process = Process.GetProcessById(processId)

' プロセス名を表示

Console.Write("'{0}' ", p.ProcessName)

' ウィンドウのキャプションを取得・表示

Dim caption As New System.Text.StringBuilder(&H1000)

Sample.GetWindowText(hWnd, caption, caption.Capacity)

Console.WriteLine("({0})", caption)

End Sub

End Module

using System;
using System.Diagnostics;
using System.Runtime.InteropServices;
using System.Text;
namespace CS_EnumWindowsTest
{
class Sample
{
/// <summary>
/// ウィンドウを列挙します。
/// </summary>
/// <param name="lpEnumFunc">コールバック関数</param>
/// <param name="lParam">アプリケーション定義の値</param>
/// <returns></returns>
[System.Runtime.InteropServices.DllImport("user32.dll")]
public static extern bool EnumWindows(EnumWinProc lpEnumFunc, IntPtr lParam);
/// <summary>
/// EnumWindowsから呼び出されるコールバック関数EnumWinProcのデリゲート
/// </summary>
/// <param name="hWnd">ウィンドウのハンドル</param>
/// <param name="lParam">アプリケーション定義の値</param>
/// <returns></returns>
public delegate bool EnumWinProc(IntPtr hWnd, IntPtr lParam);
/// <summary>
/// ウィンドウハンドルからキャプションを取得します
/// </summary>
/// <param name="hWnd">ウィンドウのハンドル</param>
/// <param name="lpString">キャプション</param>
/// <param name="nMaxCount">キャプションの最大桁数</param>
/// <returns></returns>
[System.Runtime.InteropServices.DllImport("user32.dll")]
public static extern int GetWindowText(IntPtr hWnd, StringBuilder lpString, int nMaxCount);
/// <summary>
/// ウィンドウハンドルからプロセスＩＤを取得します。
/// </summary>
/// <param name="hWnd">ウィンドウのハンドル</param>
/// <param name="lpdwProcessId">プロセスＩＤ</param>
/// <returns></returns>
[System.Runtime.InteropServices.DllImport("user32.dll")]
public static extern int GetWindowThreadProcessId(IntPtr hWnd, out int lpdwProcessId);
/// <summary>
/// ウィンドウが可視かどうかを調べます。
/// </summary>
/// <param name="hWnd">ウィンドウのハンドル</param>
/// <returns></returns>
[System.Runtime.InteropServices.DllImport("user32.dll")]
public static extern bool IsWindowVisible(IntPtr hWnd);
}
class Program
{
static void Main(string[] args)
{
// ウィンドウの列挙を開始
Sample.EnumWindows(EnumerateWindow, IntPtr.Zero);
Console.ReadLine();
}
private static bool EnumerateWindow(IntPtr hWnd, IntPtr lParam)
{
// ウィンドウが可視かどうか調べる
if (Sample.IsWindowVisible(hWnd))
{
// キャプションとプロセスＩＤを表示
PrintCaptionAndProcess(hWnd);
}
// ウィンドウの列挙を継続するにはTrueを返す必要がある
return true;
}
private static void PrintCaptionAndProcess(IntPtr hWnd)
{
// ウィンドウハンドルからプロセスIDを取得
int processId;
Sample.GetWindowThreadProcessId(hWnd, out processId);
// プロセスIDからProcessクラスのインスタンスを取得
Process p = Process.GetProcessById(processId);
// プロセス名を表示
Console.Write("'{0}' ", p.ProcessName);
// ウィンドウのキャプションを取得・表示
StringBuilder caption = new StringBuilder(0x1000);
Sample.GetWindowText(hWnd, caption, caption.Capacity);
Console.WriteLine("({0})", caption);
}
}
}

100

101

102

using System;

using System.Diagnostics;

using System.Runtime.InteropServices;

using System.Text;

namespace CS_EnumWindowsTest

{

class Sample

{

/// <summary>

/// ウィンドウを列挙します。

/// </summary>

/// <param name="lpEnumFunc">コールバック関数</param>

/// <param name="lParam">アプリケーション定義の値</param>

/// <returns></returns>

[System.Runtime.InteropServices.DllImport("user32.dll")]

public static extern bool EnumWindows(EnumWinProc lpEnumFunc, IntPtr lParam);

/// <summary>

/// EnumWindowsから呼び出されるコールバック関数EnumWinProcのデリゲート

/// </summary>

/// <param name="hWnd">ウィンドウのハンドル</param>

/// <param name="lParam">アプリケーション定義の値</param>

/// <returns></returns>

public delegate bool EnumWinProc(IntPtr hWnd, IntPtr lParam);

/// <summary>

/// ウィンドウハンドルからキャプションを取得します

/// </summary>

/// <param name="hWnd">ウィンドウのハンドル</param>

/// <param name="lpString">キャプション</param>

/// <param name="nMaxCount">キャプションの最大桁数</param>

/// <returns></returns>

[System.Runtime.InteropServices.DllImport("user32.dll")]

public static extern int GetWindowText(IntPtr hWnd, StringBuilder lpString, int nMaxCount);

/// <summary>

/// ウィンドウハンドルからプロセスＩＤを取得します。

/// </summary>

/// <param name="hWnd">ウィンドウのハンドル</param>

/// <param name="lpdwProcessId">プロセスＩＤ</param>

/// <returns></returns>

[System.Runtime.InteropServices.DllImport("user32.dll")]

public static extern int GetWindowThreadProcessId(IntPtr hWnd, out int lpdwProcessId);

/// <summary>

/// ウィンドウが可視かどうかを調べます。

/// </summary>

/// <param name="hWnd">ウィンドウのハンドル</param>

/// <returns></returns>

[System.Runtime.InteropServices.DllImport("user32.dll")]

public static extern bool IsWindowVisible(IntPtr hWnd);

}

class Program

{

static void Main(string[] args)

{

// ウィンドウの列挙を開始

Sample.EnumWindows(EnumerateWindow, IntPtr.Zero);

Console.ReadLine();

}

private static bool EnumerateWindow(IntPtr hWnd, IntPtr lParam)

{

// ウィンドウが可視かどうか調べる

if (Sample.IsWindowVisible(hWnd))

{

// キャプションとプロセスＩＤを表示

PrintCaptionAndProcess(hWnd);

}

// ウィンドウの列挙を継続するにはTrueを返す必要がある

return true;

}

private static void PrintCaptionAndProcess(IntPtr hWnd)

{

// ウィンドウハンドルからプロセスIDを取得

int processId;

Sample.GetWindowThreadProcessId(hWnd, out processId);

// プロセスIDからProcessクラスのインスタンスを取得

Process p = Process.GetProcessById(processId);

// プロセス名を表示

Console.Write("'{0}' ", p.ProcessName);

// ウィンドウのキャプションを取得・表示

StringBuilder caption = new StringBuilder(0x1000);

Sample.GetWindowText(hWnd, caption, caption.Capacity);

Console.WriteLine("({0})", caption);

}

.net(VB、C#)でコンピューター名を取得する

.netでプログラムを実行中のコンピューター名を取得するには、以下の方法がある。

Environment.MachineName プロパティ

ローカルコンピュータの NetBIOS 名を取得する。

(NetBIOS名はすべて大文字で、小文字は大文字に自動変換される。)

＜必要条件＞

名前空間: System
アセンブリ: mscorlib (mscorlib.dll 内)

＜構文＞

1	public static string MachineName { get; }

'宣言

Public Shared ReadOnly Property MachineName As String

'使用

Dim value As String

value = Environment.MachineName

＜解説＞

コンピュータの名前は、システムの起動時に、名前がレジストリから読み込まれた時点で確定される。

コンピュータがクラスタ内のノードである場合は、ノード名が返される。

＜例＞

実行しているコンピュータの名前を表示するコード例を次に示す。

using System;

class Sample

{

public static void Main()

{

Console.WriteLine();

Console.WriteLine("MachineName: {0}", Environment.MachineName);

}

Imports System

Class Sample

Public Shared Sub Main()

Console.WriteLine()

Console.WriteLine("MachineName: {0}", Environment.MachineName)

End Sub 'Main

End Class 'Sample

My.Computer.Name プロパティ(VBのみ)

コンピュータ名を取得する。

戻り値にコンピュータの名前を格納した String を返す。

＜必要条件＞

名前空間: Microsoft.VisualBasic.Devices
クラス: Computer、ServerComputer
アセンブリ: Visual Basic ランタイムライブラリ (Microsoft.VisualBasic.dll 内)

＜構文＞

'宣言

Public ReadOnly Property Name As String

'使用

Dim value As String = My.Computer.Name

＜解説＞

My.Computer.Name プロパティは、MachineName プロパティと同様の機能を提供する。

＜例＞

実行しているコンピュータの名前を表示するコード例を次に示す。

1	MsgBox("Computer name: " & My.Computer.Name)

.Net(VB、C#)のWPFで要素の行・列のサイズを動的に変更する

<Grid>要素の行・列のサイズを動的に変更したい場合、<Grid>要素の子に<GridSplitter>要素を配置する。

<Window x:Class="WPFSample.Window1"

xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"

Title="GridSplitter" Height="300" Width="300">

<Grid>

<Grid.RowDefinitions>

</Grid.RowDefinitions>

<Grid.ColumnDefinitions>

</Grid.ColumnDefinitions>

</Grid>

</Window>

尚、<GridSplitter>要素を利用する場合、以下のような注意点がある。

<GridSplitter>要素自体、<Grid>要素のセルを1つ占有する為、<GridSplitter>要素を配置するための行・列を「auto」指定で作成しておく必要がある。

<GridSplitter>要素は、デフォルトの状態では幅も高さも「0」で不可視となる為、見えるサイズに調整する必要がある。
（HorizontalAlignment属性に「Stretch」を指定して、上下分割の場合はGrid.ColumnSpanとHeight、左右分割の場合はGrid.RowSpanとWidthにそれぞれ値を指定する）

「特定の1行だけ列幅を変えたい」というようなことは1つの<Grid>要素内では行えない為、<Grid>要素を入れ子にして内側の<Grid>要素だけに<GridSplitter>要素を追加するなどの工夫が必要になる。

REONTOSANTA

Collection of personal knowledge

カテゴリー: .Net(VB、C#)

SQLServerでDataTableの内容を一度のSQLでデータベースに更新する

IO負荷が高い例

DataTableをパラメータとして渡す

<注意事項>

.net(VB、C#)でLINQを利用してCSVファイルを読み込む

LINQでCSVファイルを読み込む

.net(VB、C#)でWindowの列挙を行う

.net(VB、C#)でコンピューター名を取得する

Environment.MachineName プロパティ

My.Computer.Name プロパティ(VBのみ)

.Net(VB、C#)のWPFで要素の行・列のサイズを動的に変更する

IO負荷が高い例

DataTableをパラメータとして渡す

<注意事項>

Share:

LINQでCSVファイルを読み込む

Share:

Share:

Environment.MachineName プロパティ

My.Computer.Name プロパティ(VBのみ)

Share:

Share: