PostgreSQL to VB

Tutorial kali ini kita akan membahas bagaimana mengolah data menggunakan database PostgreSQl dengan Visual Basic... Seperti gambar diatas...

Componen: Datagrid..
Buat Database: lihat gambar dibawah ini...

 setelah database penjualan di buat, maka untuk membuat table pada PostgreSQL, ikuti langkah dibawah ini..
Connect to database penjualan
==============================

Buat table
===============================

untuk dapat di akses dengan visual basic, kita harus menghubungkan database penjualan ke dalam Driver ODBC, seperti gambar dibawah ini:

Buat DSN

Ok .. kembali ke Visual basic..
isikan source code di bawah ini:

Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset


Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set CN = New ADODB.Connection
'cara pertama
CN.Open "Driver={PostgreSQL ANSI};Server=localhost;Port=5432;Database=penjualan;Uid=postgres;Pwd=mahmud;"
'cara ke dua
'CN.Open "DSN=inventory;" & _
"UID=postgres;" & _
"PWD=mahmud;" & _
"database=penjualan"
TData
End Sub

Private Sub TData()
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.Open "SELECT * from Pelanggan", CN, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = RS
DataGrid1.Refresh
End Sub

=================================================================================