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

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

ODBC

サンプル

Imports System.Data.Odbc
 
Module Module1
 
    Sub Main()
 
        Dim cn As OdbcConnection
        Dim cm As OdbcCommand
        Dim rs As OdbcDataReader
 
        Dim str As String
        Dim sql As String
 
        str = String.Format("DSN={0}; UID={1}; PWD={2}", _
                            "mysql", "root", "mysql")
 
        cn = New OdbcConnection
        cn.ConnectionString = str 
        cn.Open()
 
 
        sql = "select * from testtable1"
        cm = New OdbcCommand
        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) = rs(i)
            Next i
            Console.WriteLine(Join(strfld, vbTab))
        End While
 
        cn.Close()
 
        Console.Read()
 
 
    End Sub
 
End Module