Setelah melanjuti artikel Insert Update Delete Local Database kali ini kita lanjutkan dengan Cara Pencarian atau Search SQL Compact dikenal juga dengan Local Database. Fungsi pencarian biasa dilakukan untuk menghindari adanya data yang sama pada column primary key sehingga terhindar bug pada program aplikasi.
Primary key adalah sebuah kode unik yang dibuat untuk menghindari duplicate data. Apabila duplicate data terjadi, maka user akan kesulitan untuk mencari infromasi yang dibutuhkan.
Contohnya jika kita ingin menyimpan sebuah data, maka alangkah baiknya kita mencari terlebih dahulu data tersebut sudah ada atau belum pada database. Dan setelah kita mengetahui data tersebut ada atau belum ada pada database baru ktia dapat melanjutkan eksekusi informasi yang ingin diproses.
Buka aplikasi yang telah anda buat setelah itu bisa menambahkan code berikut pada proses simpan, ubah, atau delete sebuah informasi:
Jika ingin mengetahui apakah Tabel sudah memiliki data:
Dim oDa As String = "select*from NamaTabel"
Using Conn As New SqlCeConnection(connString)
Conn.Open()
Dim oCmd As New SqlCeCommand(oDa, Conn)
Dim oRdr As SqlCeDataReader = oCmd.ExecuteResultSet(ResultSetOptions.Scrollable)
If oRdr.HasRows Then
Kondisi yang anda inginkan
End If
Jika ingin mengetahui apakah data suatu column sama dengan suatu nilai:
Dim cari As String = "select*from NamaTabel where NamaColumn= '" & Textbox1.Text & "'"
Using Konek As New SqlCeConnection(connString)
Konek.Open()
Dim oCmd As New SqlCeCommand(cari, Konek)
Dim oRdr As SqlCeDataReader = oCmd.ExecuteResultSet(ResultSetOptions.Scrollable)
If (oRdr.Read() = True) ThenKondisi yang anda inginkan
End If
Setelah anda mengikuti langkah di atas jangan lupa untuk merubah bagian yang berwarna merah sesuai dengan fungsi pada aplikasi yang telah anda buat. Mudah-mudahan anda sekalian dapat memahami apa yang saya sampaikan. Semoga bermanfaat ^^
Post a Comment