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

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

PostgreSQL(Npgsql)

サンプル

Imports Npgsql
 
Module Module1
 
    Sub Main()
 
        Dim cn As NpgsqlConnection
        Dim cm As NpgsqlCommand
        Dim rs As NpgsqlDataReader
 
        Dim str As String
        Dim sql As String
 
        str = String.Format("Server={0};Database={1};UserID={2};Password={3};port={4};", _
                            "localhost", "testdb1", "postgres", "password", "5432")
 
        cn = New Npgsql.NpgsqlConnection
        cn.ConnectionString = str
        cn.Open()
 
 
        sql = "SELECT * FROM testtable1"
        cm = New NpgsqlCommand
        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