HomeVisual Basic技術項目 データベースから取得した値をDataTableへセット

データベースから取得した値をDataTableへセット

'インポートクラス
Imports System.Data.OleDb
'プログラムコードコード
Dim St As String
Dim Cn As New OleDbConnection
Dim Command As OleDbCommand = New OleDbCommand
Dim UserID As String = ""
Dim Password As String = ""
Dim MDBFile As String = "C:\DataSource\MDB\販売管理B.mdb"

St = "Provider=""Microsoft.Jet.OLEDB.4.0"";"
St &= "Data Source=""" & MDBFile & """;"
St &= "User ID=" & UserID & ";"
St &= "Jet OLEDB:Database Password=" & Password

Cn.ConnectionString = St
Command.Connection = Cn
Command.CommandText = "select * from 社員マスタ where 社員コード between '0001' and '0005'"

Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter
Dim DT As DataTable = New DataTable

Adapter.SelectCommand = Command
Adapter.Fill(DT)

Dim strData As String = ""

'1行目のレコードだけ取得
If dt.Rows.Count <> 0 Then
    strData += "社員コード:" + CStr(dt.Rows(0).Item(0))
    strData += ", 氏名:" + CStr(dt.Rows(0).Item(1))
    strData += ", フリガナ:" + CStr(dt.Rows(0).Item(2))
    strData += ", 所属:" + CStr(dt.Rows(0).Item(3))
    strData += ", 性別:" + CStr(dt.Rows(0).Item(4))
    strData += " 作成日:" + CStr(dt.Rows(0).Item(5))
    strData += ", 更新日:" + CStr(dt.Rows(0).Item(6))
Else
    MessageBox.Show("エラー!")
End If

MessageBox.Show(strData)



ページトップへ

データベース

サーバ

Copyright (C) MadCap. All Rights Reserved.