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

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

DB2

サンプル

Imports IBM.Data.DB2
 
Module Module1
 
    Sub Main()
        Dim conn As DB2Connection
        Dim comm As DB2Command
        Dim reader As DB2DataReader
 
        Dim str As String
        Dim sql As String
 
        str = String.Format("Server={0}:{1};Database={2};UID={3};PWD={4};", _
                            "192.168.10.13", "50000", "sample", "db2inst1", "db2123")
 
        conn = New DB2Connection(str)
        conn.Open()
 
        sql = "SELECT * FROM DEPARTMENT"
        comm = New DB2Command
        comm.Connection = conn
        comm.CommandText = sql
        reader = comm.ExecuteReader()
 
        Do While reader.Read
            Dim strfld(reader.FieldCount - 1) As String
            For i As Integer = 0 To reader.FieldCount - 1 Step 1
                strfld(i) = IIf(IsDBNull(reader(i)), "", reader(i))
            Next i
            Console.WriteLine(Join(strfld, vbTab))
        Loop
 
        conn.Close()
 
        Console.Read()
 
    End Sub
 
End Module
 
 

結果

サンプルリスト