MadCap開発サイトへようこそ

データベースから取得した値を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)

プログラム

• Java
• Visual Basic
• C#
• アセンブリ
• PHP
• Flex

データベース

• DB2
• MySQL

サーバ

• Windows