BindingSource + BindingNavigator + DataGridView

Mungkin masih jarang yang mengkombinasikan BindingSource, BindingNavigator, dan DataGridView, padahal cara ini dapat mempermudah pembuatan aplikasi database.
Masing-masing kontrol memiliki fungsi sendiri-sendiri, DataGridView sebagai tampilan tabelnya, BindingNavigator sebagai tombol-tombol navigasi, dan BindingSource sebagai penghubungnya.

Menyimpan DataGridView

Seperti diketahui secara umum bahwa data yang ditampilkan di kontrol DataGridView tidak ter-link / terhubung langsung dengan data yang ada di databasenya.
Berikut ini contoh bagaimana menyimpan data di DataGridView ke databasenya sehingga saling terhubung.

Mengenal LINQ

LINQ adalah fitur baru yang ditambahkan sejak pada Visual Basic 2008 (9.0) yang berguna untuk lebih mempermudah dalam proses pembuatan aplikasi.

Pengacakan Nomer Undian

Anda pasti pernah melihat acara kuis di TV yang seringkali melakukan pengacakan serangkaian nomer undian untuk mendapatkan pemenangnya.
Berikut ini contoh source code VB yang prosesnya mirip dengan hal tersebut.

Koneksi VB .NET dengan MySQL

Masih bingung bagaimana menggunakan MySQL sebagai database untuk aplikasi VB .NET Anda ?. Jika iya, silahkan langsung download saja artikel singkat ini.

Filter Data Berdasarkan Tanggal

Mungkin banyak yang belum tahu bagaimana cara mem-filter / menyeleksi data berdasarkan tanggal tertentu, berikut ini contoh souce code-nya.

Penomoran Data Otomatis

Penomoran data secara otomatis berguna untuk mempermudah User ketika melakukan penambahan data. Biasanya cara ini diterapkan pada field ID atau primary key.

CrystalReport Dinamis

Berikut ini adalah contoh source code yang menggunakan laporan data berbasis CrystalReport secara dinamis, atau dapat dirubah-rubah datanya ketika aplikasi dijalankan.
Download source code-nya disini.

Menempatkan DataReport Sebagai Kontrol

Jika Anda pernah atau sedang menggunakan DataReport sebagai laporan untuk database, maka mau tidak mau DataReport tersebut akan tampil sebagai form / jendela baru.
Dengan sedikit trik, sebenarnya DataReport bisa ditempatkan sebagai kontrol seperti menggunakan CrystalReport (dengan kontrol viewer).
Download source code-nya disini.

Mengisi AutoComplete TextBox dengan Data

Dalam kontrol TextBox di VB .NET, terdapat properti AutoComplete yang berguna untuk memudahkan pengisian teks dengan menampilkan kemungkinan teks yang akan diketik.
Dengan sedikti kreatifitas, Anda bisa memanfaatkan properti AutoComplete tersebut sebagai fitur untuk mempermudah penginputan data, dengan cara mengisinya dengan data yang diperlukan. Download contoh source code-nya disini.

Grafik Data

Pembuatan grafik untuk mempresentasikan data, bertujuan agar user lebih mudah dalam memahami perbandingan data yang satu dengan data yang lain.
Pembuatan grafiknya dibuat menggunakan kontrol Microsoft Chart (MSCHRT20.ocx), yang memiliki berbagai bentuk mulai dari batang sampai dengan pie.

Manipulasi Data Sederhana

Source code berikut ini menunjukkan bagaimana memanipulasi data yang bersifat sederhana, seperti mencari data terbesar atau terkecil, menghitung jumlah total, dll.
Download source code-nya disini.

Menyimpan Gambar dalam Database

Berikut ini adalah contoh source code yang menunjukkan bagaimana cara menyimpan gambar ke dalam database dan menampilkannya kembali dari database.

Menampilkan Data di ComboBox dan ListBox

Menampilkan data di kontrol ComboBox atau ListBox, biasanya diterapkan dalam Form inputan untuk tabel yang be-relathionship / berhubungan dengan tabel lain.
Sehingga dapat mengurangi resiko kesalahan dan mempermudah penginputan data.

Menampilkan Data di ListView

Kontrol ListView sering digunakan sebagai alternatif selain kontrol DataGrid, bilamana suatu data ingin ditampilkan secara readonly serta terlihat lebih simpel dan rapi.
Download source code-nya disini.

Mengganti Password MS Access

Berikut ini adalah cara yang digunakan untuk mengganti password database MS Access.

Tambahkan References "Microsoft DAO 3.6 Object Library"

[ VB 6.0 ]

Dim de As New DAO.DBEngine
Dim db As DAO.Database
Dim LokFile As String, Pwd As String

On Error GoTo Ero

LokFile = "Gantikan dengan lokasi file MS Access"
Pwd = "Password Lama"

Set db = de.OpenDatabase(LokFile, True, False, ";pwd=" & Pwd)
db.NewPassword Pwd, "Password Baru"

Exit Sub
Ero:
MsgBox Err.Description

[ VB .NET ]

Dim de As New dao.DBEngine
Dim db As dao.Database
Dim LokFile, Pwd As String

Try
LokFile = "Gantikan dengan lokasi file MS Access"
Pwd = "Password Lama"

db = de.OpenDatabase(LokFile, True, False, ";pwd=" & Pwd)
db.NewPassword(Pwd, "Password Baru")

Catch ex As Exception
MsgBox(ex.Message)
End Try

Compact and Repair MS Access

Bagi Anda yang sudah mengenal MS Access tentu tahu fasilitas "Compact and Repair". Kalau diartikan ke dalam Bhs. Indonesia, kata "Compact and Repair" berarti memadatkan dan memperbaiki. Berikut cara yang digunakan untuk mengakses fasilitas tersebut :

Tambahkan References "Microsoft Access XX.0 Object Library".

[ VB 6.0 ]

Dim acApp As New Access.Application
Dim LokFile As String

LokFile = "Gantikan dengan lokasi file MS Access"

Name LokFile As LokFile & ".tmp" 'create temp

acApp.CompactRepair LokFile & ".tmp", LokFile 'process

Kill LokFile & ".tmp" 'delete temp

[ VB .NET ]

Dim acApp As New Microsoft.Office.Interop.Access.Application
Dim LokFile As String

LokFile = "Gantikan dengan lokasi file MS Access"

Rename(LokFile, LokFile & ".tmp")

acApp.CompactRepair(LokFile & ".tmp", LokFile) 'process

Kill(LokFile & ".tmp") 'delete temp

CATATAN :
Untuk mencegah kesalahan yang mungkin terjadi, backup dulu file databasenya.
Sebelum melakukan proses Compact and Repair, pastikan tidak ada koneksi yang aktif ke file database. Dan juga tidak ada aplikasi lain yang mengakses file database tersebut.

Mempermudah ADO.NET

Apakah Anda sering dibuat pusing bahkan repot dengan ADO.NET ? Mungkin yang baru mengenal tentang Database akan menjawab 'Ya', karena dipusingkan dengan istilah-istilah seperti 'DataAdapter, 'DataTable', 'DataRow, dll. Apalagi yang sudah pernah mengerjakan sebuah Aplikasi kompleks, yang kebanyakan akan mendeklarasikan beberpa variabel di tiap prosedurnya. Sebenarnya hanya dengan menambahkan sebuah Module, penggunaan ADO.NET dapat dipermudah, bahkan bisa lebih mudah dari ADO klasik yang biasa dikenal dalam VB 6.0 .

Buat sebuah Module dan ketikkan :

Public Function ConString() As String
ConString = ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:/KTP.mdb")
End Function

Public Function SQLTable(ByVal Source As String) As DataTable
Try
Dim Adp As New OleDb.OleDbDataAdapter(Source, ConString)
Dim DT As New DataTable

Adp.Fill(DT)
SQLTable = DT
Catch ex As OleDb.OleDbException
MsgBox(ex.Message)
SQLTable = Nothing
End Try
End Function

Public Function ExecSQL(ByVal SQLCommand As String) As Boolean
Dim Con As New OleDb.OleDbConnection
Dim Cmd As New OleDb.OleDbCommand

Try
Con.ConnectionString = ConString()
Con.Open()

Cmd.CommandText = SQLCommand
Cmd.Connection = Con
Cmd.ExecuteNonQuery()

Con.Close()

ExecSQL = True
Catch ex As OleDb.OleDbException
MsgBox(ex.Message)
ExecSQL = False
If Con.State = ConnectionState.Open Then Con.Close()
End Try
End Function

Dapat dilihat Module tersebut memiliki 3 fungsi, antara lain :

1. Fungsi 'ConString', fungsi ini menentukan ConnectionString dari Database. Pastikan fungsi ini bernilai benar, karena fungsi ini menetukan kedua fungsi lainnya. Dari contoh diatas dapat dilihat bahwa Database-nya bertipe MS Access 2003 yang berlokasi di 'D:/KTP.mdb' .
2. Fungsi 'SQLTable', fungsi ini untuk mendefinisikan perintah SQL 'Select' yang biasanya digunakan untuk memilih atau menyeleksi data. Fungsi ini mengembalikan nilai bertipe DataTable, sehingga dapat mudah dikoneksikan dengan kontrol-kontrol.
3. Fungsi 'ExecSQL', fungsi digunakan untuk mengeksekusi perintah SQL 'Insert'(menambahkan), 'Update'(memperbarui), dan 'Delete'(menghapus). Fungsi ini mengembalikan nilai bertipe Boolean, dimana jika perintah SQL berhasil dilakukan maka bernilai True, tapi bila gagal akan bernilai False.

Contoh penggunaannya :

• Mengisi DataGrid.
  
  DataGridView1.DataSource = SQLTable("select * from tblOrang")
• Mengisi ComboBox atau ListBox dengan Field tertentu.
  
  Dim DR As DataRow
  For Each DR In SQLTable("select Nama from tblOrang").Rows
  ComboBox1.Items.Add(DR("Nama"))
  Next
• Mengisi beberapa TextBox.
  
  Dim DR As DataRow
  DR = SQLTable("select * from tblOrang").Rows(0)
  TextBox1.Text = DR("Nama")
  TextBox2.Text = DR("Alamat")
• Mengekekusi perintah 'Insert' untuk menambahkan data.
  
  ExecSQL("insert into tblOrang (ID, Nama, Alamat) values ('17','Joko','Lamongan')")

Penggunaan AddNew di Recordset

Prosedur 'AddNew' di Recordset merupakan alternatif dari perintah SQL 'Insert', yang digunakan untuk menambahkan suatu record. Tapi mungkin banyak yang kurang tahu bagaimana menggunakan prosedur 'AddNew' dengan tepat, berikut caranya :

Sebagai contoh kita ingin memasukkan record berikut,
Field 'ID' = "01"
Field 'Nama' = "Joko"
Field 'Alamat' = "Lamongan"
Maka kodenya adalah :

Adodc1.Recordset.AddNew Array("ID", "Nama", "Alamat"), Array("01", "Joko", "Lamongan")

CATATAN : Cara diatas juga bisa diterapkan dalam prosedur 'Update'.

Menebalkan Tanggal di MonthView atau MonthCalendar

Source code ini akan menunjukkan bagaimana cara menebalkan tanggal di kontrol MonthView atau MonthCalendar berdasarkan data yang tersimpan di database.
Download source code-nya disini.