… Koneksi VB6 Ke PostgreSQL …
Menanggapi request Mas Antoni melalui komentarnya : “Ass……….., Tolong beritahu cara mengkoneksikan VB dengan PostgreSQL. Please….ya mas”, maka postingan berikut akan membahasnya.
Berikut ini spesifikasi yang saya gunakan :
- Windows XP SP2
- PostgreSQL 8.2 for Windows
- Visual Basic 6
Asumsi script berikut adalah yang digunakan untuk membuat database & tabel :
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CREATE DATABASE “Contoh”
WITH OWNER = postgres
ENCODING = ‘SQL_ASCII’
TABLESPACE = pg_default;
 
CREATE TABLE LATIHAN
(
KODE CHAR(5),
NAMA VARCHAR(50)
)
 
INSERT INTO LATIHAN VALUES (’B0001',’PRINTER’)
INSERT INTO LATIHAN VALUES (’B0002',’NOTEBOOK’)
INSERT INTO LATIHAN VALUES (’B0003',’LCD MONITOR’)
INSERT INTO LATIHAN VALUES (’B0004',’SCANNER’)
INSERT INTO LATIHAN VALUES (’B0005',’HARD DISK’)

Buka Visual Basic 6 :
- Klik menu Project > References > aktifkan Microsoft ActiveX Data Object 2.1 > OK
- Klik menu Project > Component > aktifkan Microsoft DataGrid Control 6.0 > OK > Tambahkan ke Form
Ketik Coding berikut di Visual Basic :
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
 
Private Sub Form_Load()
    Set CN = New ADODB.Connection
    CN.Open “Driver={PostgreSQL ANSI};Server=localhost;Port=5432;Database=Contoh;Uid=postgres;Pwd=password;”
    Call TampilGrid
End Sub
 
Private Sub TampilGrid()
    Set RS = New ADODB.Recordset
    RS.CursorLocation = adUseClient
    RS.Open “SELECT kode, nama FROM LATIHAN”, CN, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = RS
    DataGrid1.Refresh
End Sub
Atau dengan membuat DSN (Data Source Name) :
- Buka Control Panel > Administrative Tools > Data Sources (ODBC)
- Pada Tab User DSN > Add
- Isikan data :
Data Source = ConPostgres (sesuaikan dengan kebutuhan Anda)
Data Base = Contoh (Case Sensitive)
Server = Localhost (bisa diisi IP Address)
User Name = postgres
Password = password
Port = 5432
- Klik Save

Setelah DSN dibuat dengan nama ConPostgres, maka di VB codding koneksi diubah sebagai berikut :
CN.Open “ConPostgres”
Ok, sekian pembahasan yang saya bisa lakukan, jadi intinya ada bisa buat koneksi langsung di VB6 atau melalui pembuatan DSN di Control Panel.
Silahkan unduh sedikit tulisan tentang Postgre yang pernah saya tulis di :
- http://blog.yogaprihastomo.com/wp-content/uploads/2008/01/postgresql.pdf
Atau silahkan kunjungi situs yang menyediakan informasi mengenai berbagai macam ConnectionString aplikasi ke berbaga database :
- http://www.connectionstrings.com/