Search Source

Custom Search

Koneksi Database ( For Beginner)

Untuk melakukan koneksi kedatabase ada beberapa cara, bisa lewat contorl objek atau pun lewat penulisan code. Yang akan dibahas disini ialah membuat koneksi dengan penulisan code.

Database yang akan kita gunakan sebagai contoh ialah menggunakan Database MsSQLServer (untuk yang pake Ms Access boleh aja, cuman nanti beda dikit dalam hal koneksi via databasenya).

Code: Select all

Maaf nih kalo artikelnya bisa dibilang basi, ya tapi gak apa2 lah
ini sengaja saya buat untuk para newbie yang pengen belajar database
dengan menggunakan visual basic.

Untuk melakukan koneksi kedatabase ada beberapa cara, bisa lewat contorl objek
atau pun lewat penulisan code. Yang akan dibahas disini ialah membuat koneksi dengan penulisan code.

Database yang akan kita gunakan sebagai contoh ialah menggunakan Database MsSQLServer (untuk yang pake Ms Access boleh aja, cuman nanti beda dikit dalam hal koneksi via databasenya).

Ok, kita mulai saja. Buat project baru dengan nama Project1.vbp. Selanjutnya anda tambahkan refensi database ke dalam project, dengan cara memilih menu: 
 Project » References



Seperti yang terlihat pada gambar diatas ada beberapa component database yang tersedia mulai dari versi 2.0 s/d 2.8. Supaya contoh ini berjalan lancar maka sebagai contoh kita gunakan yang versi 2.1 (Microsoft ActiveX Data Objects 2.1 Library) saya berasumsi bahwa versi ini hampir ada pada semua sistem operasi windows.

Anda tandai yang versi 2.1 kemudian tekan tombol OK. Cara tadi bertujuan untuk memasukan fungsi-fungsi atau referensi yang ada kaitanya dengan pengolahan database sekaligus sebagai jembatan antara database dengan aplikasi yang kita buat.

Setelah selesai menambahkan referensi ADODB selanjutnya kita tinggal menulis beberapa perintah untuk melakukan koneksinya. Sebelum masuk ke pengkodean sebaiknya kita belajar terlebih dahulu bagaimana membuat connection string dengan visual basic.

Pilih menu View » Data View Window



Klik kanan pada item "Data Link", kemudian pilih "Add a Data Link", maka akan muncul dialog Data Link Properties



Karena kali ini kita menggunakan Database SQL Server, maka provider yang kita gunakan adalah "Microsoft OleDB Provider For SQL Server" atau gunakan SqlServer provider.

Apabila kita menggunakan database ms access maka provider yang digunakan adalah "Microsoft Jet x.x.OLEDB Provider", Selanjutnya kita pilih pada TAB Connection.



Setelah selesai mengisikan informasi server dan database pada dialog connection anda bisa mengklik tombol Test Connection untuk mencoba apakah informasi yang kita masukan valid atau invalid. Jika tidak ada masalah pada tahapan ini selanjutnya kita tinggal mengkilik tombol OK untuk mengakhirinya.

Dan pada Data View Explorer akan bertambah satu item Data Link yang kita buat.



Selanjutnya klik icon Data Environment yang diberi tanda lingkaran merah, kemudian Drag Table Categories dan Drop Ke Data Enviroment yang tersedia.



Nah kita bisa gunakan Connection String diatas untuk melakukan koneksi kedatabase.
kita bisa melakukan hal sama untuk melakukan koneksi database yang lain seperti database Oracle, MySql dan lain-lain.

Hal ini sangat mudah dilakukan tanpa harus menghapalnya. jadi sangat mudah dan gampang kan kalo dah tau caranya. (memang programming itu mengasikkan coy...@!img16@)

Dan sekarang kita coba terapkan kedalam codenya, lihat potongan syntax dibawah ini:

Pada General Declaration kita buat satu variable dengan type ADODB Connection

	

Dim DBA As New ADODB.Connection

Function OpenDatabase() As Boolean
On Error GoTo Salah
    ' Nah ini connection string yang kita hasilkan dari proses diatas, yang _
      disisipkan kedalam parameter.

    DBA.Open "Provider=SQLOLEDB.1;Password=12345;Persist Security Info=True;" & _
     "User ID=AJIE;Initial Catalog=Northwind;Data Source=VBBEGO_SERVER;" & _
     "Workstation ID=AJIE"
    OpenDatabase = True
Salah:
End Function

Private Sub Form_Load()
If OpenDatabase=False Then
   Msgbox "Membuka Database Gagal",16
   End
Else
   Msgbox "Database berhasil dibuka",64
End if
End Sub




Nah potongan source code diatas digunakan untuk melakukan koneksi kedatabase, kalo udah terhubung seperti itu kita bila melakukan perintah-perintah apa saja. seperti menghapus, menampilkan dan mengedit data.

Dalah hal mengelola data kita bisa menggunakan beberapa perintah SQL(Structure Query Language). Kalo anda belum hapal secara menyeluruh tentang perintah-perintah yang ada di SQL jangan khawatir, soalnya kita kali ini akan memanfaatkan fasilitas SQL BUILDER yang ada di visual basic jadi gak usah dihafal @!img1@

sebagai contoh kita akan menampilkan data dari DATABASE Northwind pada table Categories.

Perintah dasarnya seperti ini:
SELECT * FROM Categories 

Apabila menggunakan SQL BUILDER, langkah2 yang perlu dilakukan adalah sebagai berikut:

1. Klik kanan pada table Categoris
2. Pilih Menu Properties
3. Pada Dialog Categoris Properties pilih option SQL Statement
4. Clikc tombol SQL Builder



Maka akan tampil form baru untuk medesign Query, pilih satu atau lebih table yang ada pada Data View Explorer, dengan cara Drag & Drop ke SQL Builder.



Kita bisa melakukan perintah SQL pada form ini, seperti DELETE, INSERT INTO atau UPDATE. anda bisa mencoba hal-hal yang lain pada form ini.

Nah pada kotak text SQL Script kita bisa melihat script SQL yang dihasilkan oleh SQL Builder. Kita bisa gunakan ini untuk menyisipkan kedalam syntax kita.

Lihat contoh berikut ini:

	

Private Sub Command1_Click()
Dim RC As New ADODB.Recordset
RC.Open "SELECT CategoryID, CategoryName, Description FROM Categories", _
         DBA, adOpenStatic, adLockOptimistic
If Not RC.EOF Then
   While Not RC.EOF

        MsgBox RC.Fields("CategoryID") & " - " & RC.Fields("CategoryName")
        RC.MoveNext
   Wend
End If
RC.Close
Set RC = Nothing
End Sub

atau bisa menggunakan perintah Execute, untuk menjalankan Query Update Dan Delete

Private Sub Command2_Click()
   DBA.Execute "UPDATE Categories Set CategoryName = 'vbBeGo'," & _
               "Description = 'Visual Basic Programming' Where (CategoryID = 1)"
End Sub




Kalo masih kesulitan menggunakan SQL Builder Visual Basic, kalian bisa menggunakan SQL Builder Ms.Access @!img1@

Kayaknya sampe sini dulu, maap kalo masih ada yang kurang. lainkali kita bahas lagi lebih lanjut tentang database.

Semoga artikel yang dibuat ada manfaatnya, hatur nuhun ka sadayana.
VIVA PROGRAMMER INDONESIA