Koneksi VS2008 Pada PostgreSQL Dengan NpgSQL.

Dalam membuat aplikasi Visual Studio 2008 dengan database PostgreSql menggunakan koneksi NpgSQL pertama-tama saat kita sudah membuka Form kita tambahkan Referensi NpgSQL sepeti ini :

Lalu kemudian pada form kita tambahkan komponen ListBox :

Pada View Code disini saya tampilkan script :

Imports Npgsql

Public Class Form2

    Dim Conn1 As New NpgsqlConnection()

    Dim command As IDbCommand

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim StrCol1 As String

        StrCol1 = "nnnn"

        Conn1.ConnectionString = "Server=localhost;Port=5432;" & _

                    "User Id=postgres;Password=abc123;Database=accnet"

        Conn1.Open()

        command = New NpgsqlCommand("SELECT * FROM perkiraan WHERE tahun=2009 order by noperkiraan", Conn1)

        Dim reader As IDataReader = command.ExecuteReader

        Try

            Do While reader.Read

                StrCol1 = Trim(reader.Item(0))

                Select Case Len(Trim(reader.Item(0)))

                    Case 1

                        StrCol1 = Trim(reader.Item(0)) & "    "

                    Case 2

                        StrCol1 = Trim(reader.Item(0)) & "   "

                    Case 3

                        StrCol1 = Trim(reader.Item(0)) & "  "

                    Case 4

                        StrCol1 = Trim(reader.Item(0)) & " "

                End Select

                ListBox1.Items.Add(StrCol1 & "   " & reader.Item(1))

            Loop

        Finally

            reader.Close()

        End Try

        reader.Close()

        Conn1.Close()

        ListBox1.Focus()

    End Sub

End Class

Tampak Pada View Code ada script :

Conn1.ConnectionString = "Server=localhost;Port=5432;" & _

                    "User Id=postgres;Password=abc123;Database=accnet"

Disinlah koneksi Npgsql di deklarasikan yaitu menunjukkan elemen :

• Server – spesifikasi lokasi server
• User Id – database user
• Port - default adalah 5432
• Password -  password untuk database user
• Database - nama database

Lalu kita Open dengan cara Conn1.Open() sedang untuk command disitu tampak dideklarasi dengan Type IDbCommand untuk membuat perintah “Select….” Sedangkan untuk membaca data digunakan read dengan Type IDataReader

Maka jika di Run (F5).

Ok silahkan anda mencobanya……………