整理的东西,dbhelper class

今天写的东西，有些要保留，记录下。 

vb.net 、oledb、winform--datagrid

Public   Class DBHelper Class DBHelper
    Public Conn As OleDb.OleDbConnection
    Private Cmd As OleDb.OleDbCommand

    Public Sub New()Sub New()

        Dim ConnStr As String
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        ConnStr &= Application.StartupPath
        ConnStr &= "***.mdb;Mode=Share Deny None;"

        Try
            Conn = New OleDb.OleDbConnection
        Catch ex As Exception
            Conn = New OleDb.OleDbConnection
        Finally
            Conn.ConnectionString = ConnStr
        End Try

        Try
            Cmd = New OleDb.OleDbCommand
        Catch ex As Exception
            Cmd = New OleDb.OleDbCommand
        Finally
            Cmd.Connection = Conn
            Cmd.CommandType = CommandType.Text
        End Try

    End Sub

    Public Function ExecNonQuery()Function ExecNonQuery(ByVal SqlStr As String)
        Try

            If Conn.State = ConnectionState.Open Then
                Conn.Close()
            End If

            Conn.Open()

            Cmd.CommandText = SqlStr
            Cmd.ExecuteNonQuery()

            Conn.Close()

        Catch ex As Exception
            MsgBox(ex.Message.ToString)

        End Try

    End Function
    Public Function ExecScalar()Function ExecScalar(ByVal SqlStr As String) As String

        Dim RetStr As String
        If Conn.State = ConnectionState.Open Then
            Conn.Close()
        End If

        Conn.Open()
        Cmd.CommandText = SqlStr
        RetStr = CStr(Cmd.ExecuteScalar())

        Conn.Close()

        Return RetStr

    End Function

    Public Function ExecReader()Function ExecReader(ByVal SqlStr As String) As OleDb.OleDbDataReader

        Dim RetReader As OleDb.OleDbDataReader

        Conn.Open()

        Cmd.CommandText = SqlStr
        RetReader = Cmd.ExecuteReader(CommandBehavior.CloseConnection)

        Return RetReader

    End Function

    Public Function ConfigAdapter()Function ConfigAdapter(ByVal SelCmdStr As String) As OleDb.OleDbDataAdapter

        Dim RetAdapter As New OleDb.OleDbDataAdapter

        Cmd.CommandText = SelCmdStr
        RetAdapter.SelectCommand = Cmd

        Return RetAdapter

    End Function

    Public Function FillDataTable()Function FillDataTable(ByVal SelCmdStr As String, ByVal ds As ploy, ByVal dt As String)

        Dim Adatper As New OleDb.OleDbDataAdapter

        Cmd.CommandText = SelCmdStr
        Adatper.SelectCommand = Cmd

        Try
            Adatper.Fill(ds, dt)
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try


    End Function


End Class

 

     Private   Sub ReBindDG() Sub ReBindDG(ByVal tbl As Data.DataTable)

'WINFORM DATAGRID 列头显示中文名称
        dgPloy.TableStyles.Clear()
        Dim tsp As New DataGridTableStyle
        tsp.MappingName = tbl.TableName

        Dim gsid As New DataGridTextBoxColumn
        Dim gssj As New DataGridTextBoxColumn
        Dim gsph As New DataGridTextBoxColumn
        Dim gspt As New DataGridTextBoxColumn
        Dim gspl As New DataGridTextBoxColumn
        Dim gspp As New DataGridTextBoxColumn
        Dim gspm As New DataGridTextBoxColumn

        gsid.MappingName = "ployID"
        gsid.HeaderText = "编号"
        tsp.GridColumnStyles.Add(gsid)


        gssj.MappingName = "PSubject"
        gssj.HeaderText = "活动名称"
        tsp.GridColumnStyles.Add(gssj)

        gsph.MappingName = "PHost"
        gsph.HeaderText = "主办"
        tsp.GridColumnStyles.Add(gsph)

        gspt.MappingName = "PTime"
        gspt.HeaderText = "活动时间"
        tsp.GridColumnStyles.Add(gspt)

        gspl.MappingName = "Place"
        gspl.HeaderText = "活动地点"
        tsp.GridColumnStyles.Add(gspl)

        gspp.MappingName = "Principal"
        gspp.HeaderText = "负责人"
        tsp.GridColumnStyles.Add(gspp)

        gspm.MappingName = "PMemo"
        gspm.HeaderText = "备注"
        tsp.GridColumnStyles.Add(gspm)


        tsp.AllowSorting = False
        tsp.RowHeaderWidth = 20

        dgPloy.TableStyles.Add(tsp)
    End Sub