PGlabo

« [ASP.NET|Access] Access に接続 | メイン | [VB.NET] DataSet内のデータの取り出し方 »

2005年10月14日

[VB.NET|Access] DataGrid に表示

Imports System.Data.OleDb

'*** Form1
    Dim Conn As OleDbConnection
    Dim DA As OleDbDataAdapter
    Dim DS As DataSet
    Dim strSQL As String
    Dim DBPath As String
    Dim TableName As String



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

        Try '--- DB接続 Try

            '1行おきの背景色を設定する

            DataGrid1.AlternatingBackColor = Color.FromArgb(120, 255, 255)

            'DB接続設定

            DBPath = "C:\YAMADA\テストDB.mdb"

            TableName = "ユーザーマスタ"

            strSQL = "SELECT * FROM UserMst"

            'DB接続

            Call JetConn.DB_Connect(Conn, DA, DS, strSQL, DBPath, TableName)

            'データグリッドにテーブルを表示する

            DataGrid1.SetDataBinding(DS, TableName)

            'オブジェクトの開放

            Call JetConn.DB_Cut(Conn, DA, DS)

        Catch '--- DB接続 Catch

            'オブジェクトの開放

            Call JetConn.DB_Cut(Conn, DA, DS)

            MessageBox.Show("値を取得できませんでした。", "エラータイトル")

        End Try

    End Sub

 '*** JetConn.vb
   '-----------------------------------------
    ' ■ DB_Connect ■　DB接続
    '    Conn       = コネクションオブジェクト
    '    DA         = データアダプタオブジェクト
    '    DS         = データセットオブジェクト
    '    strSQL     = SQL文
    '    mdbPath    = Accessパス
    '    TableName  = データセットに設定するテーブル名
    '-----------------------------------------
    Public Sub DB_Connect( _
        ByRef Conn As OleDbConnection, _
        ByRef DA As OleDbDataAdapter, _
        ByRef DS As DataSet, _
        ByVal strSQL As String, _
        ByVal mdbPath As String, _
        ByVal TableName As String)

        Conn = New OleDbConnection( _

                   "Provider=Microsoft.Jet.OLEDB.4.0; " & _

                   "Data Source=" & mdbPath)

        DA = New OleDbDataAdapter(strSQL, Conn)

        DS = New DataSet

        DA.Fill(DS, TableName)

    End Sub



    '-----------------------------------------

    ' ■ DB_Connect ■　DB切断

    '    Conn       = コネクションオブジェクト

    '    DA         = データアダプタオブジェクト

    '    DS         = データセットオブジェクト

    '-----------------------------------------

    Public Sub DB_Cut( _

        ByRef Conn As OleDbConnection, _

        ByRef DA As OleDbDataAdapter, _

        ByRef DS As DataSet)

        If Not DS Is Nothing Then DS.Dispose()

        If Not DA Is Nothing Then DA.Dispose()

        If Not Conn Is Nothing Then Conn.Dispose()

    End Sub

2005 / 10 / 14