VS2008-VB/サンプル/OLEDB - プログラミングの勉強をしよう@Wiki

Top > VS2008-VB > サンプル > OLEDB

OLEDB

サンプル

Imports System.Data.OleDb
 
Module Module1
 
    Sub Main()
 
        Dim cn As OleDbConnection
        Dim cm As OleDbCommand
        Dim rs As OleDbDataReader
 
        Dim str As String
        Dim sql As String
 
        str = String.Format("Provider=IBMDADB2;DSN={0};User ID={1};Password={2}", _
                            "sample1", "db2inst1", "db2123")
 
        cn = New OleDbConnection
        cn.ConnectionString = str
        cn.Open()
 
 
        sql = "SELECT * FROM DEPARTMENT"
        cm = New OleDbCommand
        cm.Connection = cn
        cm.CommandText = sql
 
        rs = cm.ExecuteReader()
 
        While (rs.Read())
            Dim strfld(rs.FieldCount - 1) As String
            For i As Integer = 0 To rs.FieldCount - 1 Step 1
                strfld(i) = IIf(IsDBNull(rs(i)) = True, "", rs(i))
            Next i
            Console.WriteLine(Join(strfld, vbTab))
        End While
 
        cn.Close()
 
        Console.Read()
 
 
    End Sub
 
End Module