NK University

この文書は読取専用です。文書のソースを閲覧することは可能ですが、変更はできません。もし変更したい場合は管理者に連絡してください。
====== 簡易DBマネージャー ======
[[:powershell|一つ上へ]]

作成中。
<code powershell>
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

# sqlite3.dll を読み込む
Add-Type -Path "path\to\dll\System.Data.SQLite.dll"

# DBのファイルパス(無ければ新規作成)
$dbFile = "path\to\database\database.db"
$connStr = "Data Source=$dbFile;Version=3;"

<# --- 関数定義 Begin--- #>
function Show-Tablelist {
    param (
        [System.Data.SQLite.SQLiteConnection]$connection,
        [System.Windows.Forms.ListBox]$listbox
    )

    $cmd = $connection.CreateCommand()
    $cmd.CommandText = "SELECT name FROM sqlite_master WHERE type='table' ORDER BY name;"
    $reader = $cmd.ExecuteReader() # Readの時はOut-Nullの必要なし

    $listbox.Items.Clear()

    while ($reader.Read()) {
        $tablename = $reader["name"]
        $listbox.Items.Add($tablename)
    }
    $reader.Close()
}

<# --- 関数定義 End #>
if (-not (Test-Path $dbFile)) {
    [System.Data.SQLite.SQLiteConnection]::CreateFile($dbFile)
}

# SQLite 接続オブジェクトを作成
$conn = New-Object System.Data.SQLite.SQLiteConnection($connStr)
$conn.Open()

# コマンドオブジェクト
$cmd = $conn.CreateCommand()


# フォーム作成
$form = New-Object System.Windows.Forms.Form
$form.Text = "データベース管理"
$form.MinimumSize = New-Object System.Drawing.Size(900,600)
$form.Size = New-Object System.Drawing.Size(1200,800)

# テーブルリスト
$tableListLabel = New-Object System.Windows.Forms.Label
$tableListLabel.Text = "テーブルリスト"
$tableListLabel.Location = New-Object System.Drawing.Point(20,20)


$tableList = New-Object System.Windows.Forms.ListBox
$tableList.Location = New-Object System.Drawing.Point(20,50)
$tableList.Size = New-Object System.Drawing.Size(200,300)

Show-Tablelist -connection $conn -listbox $tableList


# --- データインポートボタン ---
$btnImport = New-Object System.Windows.Forms.Button
$btnImport.Text = "インポート"
$btnImport.Location = New-Object System.Drawing.Point(100,20)

# データインポート処理
$btnImport.Add_Click({
    $dialog = New-Object System.Windows.Forms.OpenFileDialog
    #$dialog.InitialDirectory = [Environment]::GetFolderPath("Desktop") # 初期フォルダ
    $dialog.Filter = "CSVファイル(*.csv)|*.csv|All files (*.*)|*.*"
    $dialog_result = $dialog.ShowDialog()

    if ($dialog_result -eq [System.Windows.Forms.DialogResult]::OK) {
        $filePath = $dialog.FileName
        Write-Host "選択されたファイル: $filePath"
    } else {
        [System.Windows.Forms.MessageBox]::Show("処理を中止しました。")
    }
})

# テーブル削除
$btnTbDrop = New-Object System.Windows.Forms.Button
$btnTbDrop.Location = New-Object System.Drawing.Point(200,20)
$btnTbDrop.Width = 100
$btnTbDrop.Text = "テーブル削除"

$btnTbDrop.Add_Click({
    if ( $tableList.SelectedItem -ne $null ) {
        $selected_table_name = [string]$tableList.SelectedItem
        $cmd.CommandText = "DROP TABLE IF EXISTS [$selected_table_name];"
        $cmd.ExecuteNonQuery()
        [System.Windows.Forms.MessageBox]::Show("テーブルが削除されました。", "確認")
        try {
            Show-Tablelist -connection $conn -listbox $tableList
        } catch {
            [System.Windows.Forms.MessageBox]::Show("例外が発生しました。", "警告")
        }
    } else {
        [System.Windows.Forms.MessageBox]::Show("テーブルが選択されていません。", "確認")
    }
})

# テーブルデータの削除
$btnDeleteTableData = New-Object System.Windows.Forms.Button
$btnDeleteTableData.Location = New-Object System.Drawing.Point(500,20)
$btnDeleteTableData.Width = 100
$btnDeleteTableData.Text = "テーブルデータ削除"

$btnDeleteTableData.Add_Click({
    if ($tableList.SelectedItem -ne $null) {
        $selected_table_name = $tableList.SelectedItem
        $user_result = [System.Windows.Forms.MessageBox]::Show(
            "$selected_table_name のデータを削除しますか。",
            "確認",
            [System.Windows.Forms.MessageBoxButtons]::YesNo,
            [System.Windows.Forms.MessageBoxIcon]::Question
        )
        if ($user_result -eq [System.Windows.Forms.DialogResult]::Yes){
            $cmd.CommandText = "DELETE FROM [$selected_table_name];"
            $null = $cmd.ExecuteNonQuery()
            [System.Windows.Forms.MessageBox]::Show("データを削除しました。")
        } else {
            [System.Windows.Forms.MessageBox]::Show("キャンセルしました。")
        }
    } else {
        [System.Windows.Forms.MessageBox]::Show("テーブルが選択されていません。")
    }
})

# データの表示
$dataGridArea = New-Object System.Windows.Forms.DataGridView
$dataGridArea.Location = New-Object System.Drawing.Point(400,200)
$dataGridArea.Size = New-Object System.Drawing.Size(400,400)
$dataGridArea.AutoSizeColumnsMode = "Fill"
$dataGridArea.ReadOnly = $true
$dataGridArea.Anchor = [System.Windows.Forms.AnchorStyles]::Top `
    -bor [System.Windows.Forms.AnchorStyles]::Bottom `
    -bor [System.Windows.Forms.AnchorStyles]::Left `
    -bor [System.Windows.Forms.AnchorStyles]::Right

# セルを選択したときにその値を表示する
$dataGridArea.Add_CellClick({
    param($s, $e)
    $rowIndex = $e.RowIndex
    $colIndex = $e.ColumnIndex

    if ($rowIndex -ge 0 -and $colIndex -ge 0) {
        $cellValue = $s.Rows[$rowIndex].Cells[$colIndex].Value
        [System.Windows.Forms.MessageBox]::Show("$cellValue", "セル情報")
    }
})


# コントロールを追加
$form.Controls.Add($tableListLabel)
$form.Controls.Add($btnImport)
$form.Controls.Add($tableList)
$form.Controls.Add($btnTbDrop)
$form.Controls.Add($btnDeleteTableData)
$form.Controls.Add($dataGridArea)

$form.Add_FormClosed({ $conn.Close() })

# フォームを表示
[void]$form.ShowDialog()

</code>