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

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

SQLServer

サンプル

Imports System.Data.SqlClient
 
Module Module1
 
    Sub Main()
 
        Dim cn As SqlConnection
        Dim cm As SqlCommand
        Dim rs As SqlDataReader
 
        Dim str As String
        Dim sql As String
 
        str = String.Format("Data Source={0};Initial Catalog={1};User ID={2};Password={3}", _
                            "localhost", "testdb", "sa", "password")
 
        cn = New SqlConnection
        cn.ConnectionString = str
        cn.Open()
 
 
        sql = "SELECT * FROM testtbl1"
        cm = New SqlCommand
        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