Bissmillah…
Semoga tulisan ini bermaanfaat
Berawal sebuah ke ingin tauan tentang Visual basic akhirnya googling ke sana kemari dan banyak sekali yang membahas ini tapi banyak yang saya bingungkan tentang koneksi visual basic 6 ke database Postgrsql, tapi akhirnya dapat pencerahan juga dari teman satu kantor saya, ternyata membuat koneksi antara visual basic 6 dengan Postgresql tidak terlalu susah
pertama :
Download dulu PSQL ODbc Disini
Install PSQL ODBC (Seperti biasa instalasinya tinggal di next, next dan next hehehhehe…)
Setting ODBC lewat Start -> Control Panet -> Administrative tools -> Data Source (ODBC)
Tampilan nya seperti gambar di bawah ini
Isikan Seuai Database dan username sama passwordnya serta jangan lupa servernya di isi.. disini server kita pakai localhost
Kedua :
Buat File di desktop buat file .txt juga bisa, kemudian rubah extensi dengan .udl
dan buka file tersebut
Isikan use data source nya sms, soalnya kita tadi pakai data sournya sms, coba dengan test connection kalau sukses berarti berhasil
setelah selesai file yang ber extensikan udl tadi buka dengan notepad
dan isinya
” Provider=MSDASQL.1;Persist Security Info=False;User ID=postgres;Data Source=sms “
Ini nanti di gunakan untuk jimat dalam membuat koneksi ke vb.. hehehhe
Ketiga :
Ini nih Source COde nya di VB
Global koneksi As New ADODB.Connection
Sub main()
With koneksi
.ConnectionString = “Provider=MSDASQL.1;Persist Security Info=False;User ID=postgres;Data Source=sms”
.CursorLocation = adUseClient
.Open
End With
End Sub
”Di gunakan untuk buka koneksi
Sub koneksi_open(Pstr_conn)
If koneksi.State = 0 Then
koneksi.Open Pstr_conn
koneksi.CursorLocation = adUseClient
End If
End Sub
”Di gunakan untuk Tutup koneksi
Sub koneksi_close()
If koneksi.State = 1 Then
koneksi.Close
End If
End Sub
Sebenernya conection stringnya pakai ini juga bisa…. Lebih Simple
ConnectionString = “DSN=sms”
Terimkasih Semoga Bermanfaat
Di sini Saya Juga Masih belajar, sekedar share yang saya tahu….
