eventquery.vb

来自「This program is designed for a menu orde」· VB 代码 · 共 96 行

Imports System.Data 'for DataTable
Imports System.Data.SqlClient '新增命名空間 for SQL Server

Public Class EventQuery

    Dim TableName As String = "WinApEvents"
    Dim conn As SqlConnection
    Dim cmd As SqlCommand
    Dim da As SqlDataAdapter
    Dim dr As SqlDataReader

    Dim errorMsg As String
    Dim ConnString As String

#Region "資料庫初始化"

    ''' <summary>
    ''' 資料庫初始化
    ''' </summary>
    Public Sub InitDB()
        ConnString = DBAddress.SQLConnectionString()
        conn = New SqlConnection(ConnString)
        conn.Open()
    End Sub

#End Region

    Private Sub EventQuery_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadDefaultValue()
    End Sub


#Region "載入表單控制項相關預設值"

    ''' <summary>
    ''' 載入表單控制項相關預設值
    ''' </summary>
    Public Sub LoadDefaultValue()

        Dim selectCmd As String = ""

        selectCmd = "Select TOP 100 * from WinApEvents order by EventTime DESC"

        Dim DV As DataView = QueryData(selectCmd).DefaultView

        StatusBar1.Text = "目前共找到資料筆數[" + DV.Count.ToString() + "]"

        '改變欄位名稱-中文化
        DV.Table.Columns(0).ColumnName = "事件編號"
        DV.Table.Columns(1).ColumnName = "事件觸發時間"
        DV.Table.Columns(2).ColumnName = "事件類型"
        DV.Table.Columns(3).ColumnName = "使用者編號"
        DV.Table.Columns(4).ColumnName = "執行動作"
        DV.Table.Columns(5).ColumnName = "來源"
        DV.Table.Columns(6).ColumnName = "細節說明"

        DataGrid1.DataSource = DV

    End Sub

#End Region

#Region "查詢事件相關資料"

    ''' <summary>
    ''' 查詢事件相關資料
    ''' </summary>        
    Public Function QueryData(ByVal selectCmd As String) As DataTable

        InitDB()
        Dim DT As DataTable = New DataTable()

        Try

            da = New SqlDataAdapter(selectCmd, conn)
            da.Fill(DT)

            da.Dispose()
            conn.Close()

            Return DT

        Catch ex As Exception

            errorMsg = ex.Message
            da.Dispose()
            conn.Close()
            Return DT

        End Try

    End Function

#End Region

End Class