Komputer kampus

Anda sedang di : HomePemrograman › Pencarian Dengan Metode Find, Move dan SQL Pada ADO Menggunakan Visual Basic 6.0

Artikel Berdasarkan Tag   hacking     cms lokomedia     google     template     email     materi kuliah     ubuntu     backtrack 5     windows xp     windows 7     database     visual basic     foxpro     opensuse     netbeans     STMIK Indonesia     domain     hosting     SEO     adsense     HTML     CSS     Javascript     PHP     lainnya     bisnis online     tips dan trik     internet     tutorial     hiren boot cd     virtualbox     flashdisk     facebook     website     cracking    

Pencarian Dengan Metode Find, Move dan SQL Pada ADO Menggunakan Visual Basic 6.0

Diposting oleh : Hazmi Fadhilah
Selasa, 03 Juli 2012 - 23:42:21 WIB - Kategori: Pemrograman - Dibaca: 9247 kali

Akhirnya bisa posting artikel lagi setelah beberapa lama tertunda karena menyelesaikan pembuatan skripsi saya. ^_^ Pada Artikel kali ini saya akan membahas tentang proses dan metode pencarian data apa saja yang bisa digunakan pada ADO.

Pada pemprograman database, proses pencarian data umumnya sangat dibutuhkan agar data/record yang akan dimanipulasi sesuai dengan yang diinginkan. Berikut beberapa metode pencarian data yang akan kita bahas.

1. Metode Find
    Metode Find digunakan untuk menentukan lokasi record yang memenuhi syarat atau kriteria tertentu. krtiteria yang dimaksudkan adalah nilai pembanding dari field kunci. Pada ADO hanya mengenal satu metode Find, tidak seperti pada DAO yang metodenya terdiri dari FindFirst, FindLast, FindNext, dan FindPrevious.
Untuk lebih jelasnya coba buat desain program pencarian seperti dibawah ini :

komponen tambahan dalam program ini adalah :

a. Microsoft Ado data Control 6

b. Microsoft DataGrid Control 6

 

Setelah mendesain form seperti diatas, lalu buat database dengan microsoft access seperti dibawah ini lalu isikan beberapa record untuk pencarian nanti :

Nama database : Latihan.mdb
Nama Tabel      : MHS

 

FIELD
DATA TYPE
SIZE
NRP
TEXT
10
NAMA
TEXT
35
JURUSAN
TEXT
25
NILAI
TEXT
3

 

Kemudian buat modul baru untuk koneksi database, klik Menu Project > Add Modul > Open,,

setelah muncul jendela kode modul,,isikan kode berikut untuk koneksinya :

Public conn As New ADODB.Connection

Sub koneksi()
Set conn = New ADODB.Connection

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/latihan.mdb;Persist Security Info=False"
End Sub
Jika kode koneksi sudah diisikan pada modul, langkah berikutnya tutup jendela modulnya lalu pada pada jendela kode form_active isikan kode berikut untuk memanggil modul koneksi dan untuk mengisi connection string pada Adodc.
Call koneksi
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/latihan.mdb;Persist Security Info=False"
Adodc1.RecordSource = "MHS"
Adodc1.RecordSource = "select * from MHS"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
txtcari.SetFocus

Kemudian klik dua kali pada tombol Cari Dengan Find atau cmdfind hingga muncul jendela kode untuk cmdfind, lalu tuliskan kode pencarian find seperti dibawah ini :

Private Sub cmdfind_Click()
Dim cari As String
cari = "NRP = '" & txtcari & "'"
Adodc1.Refresh
With Adodc1.Recordset
.Find cari
If Not .EOF Then
    MsgBox .Fields(0) & "-" & .Fields(1), vbExclamation, "Pencarian Data Find"
    Else
    MsgBox "Data Mahasiswa Dengan NRP " & txtcari & " tidak ada", vbCritical, "Perhatian"
    txtcari = ""
    Text1.SetFocus
    End If
End With
End Sub

Jika sudah, coba jalankan programnya, lalu inputkan NRP pada Text Box Cari NRP kemudian klik tombol Cari Dengan Find yang sudah kita isikan kode perintah pencarian dengan metode find. 

Jika data ditemukan maka akan muncul pesan yang berisi data NRP dan Nama seperti gambar dibawah ini :

 

2. Metode Move
    Pencarian dengan metode move arah pencariannya dilakukan secara berurutan, bisa dari awal record ke akhir record atau sebaliknya. Prinsip kerja dari move adalah dengan membandingkan data yang dicari dengan data yang sudah tersimpan secara satu per satu.

Sekarang kita buat contoh pencarian dengan menggunakan metode move,,

Klik dua kali pada tombol Cari Dengan Move sampai muncul jendela kode, lalu isikan dengan kode perintah berikut :

Adodc1.Refresh
With Adodc1.Recordset
.MoveFirst
Do While Not .EOF
    If txtcari = .Fields("NRP") Then
    MsgBox "Data Mahasiswa yang dicari adalah " & vbCrLf & .Fields("NRP") & " " & .Fields("NAMA"), vbExclamation, "Pencarian Data Move"
    Exit Do
    End If
    .MoveNext
Loop
If .EOF Then MsgBox "Data tidak Ada !", vbCritical, "Perhatian"
End With
Kemudian jalankan program dengan mengklik tombol start atau menkan tombol F5 pada keyboard, isikan NRP pada text Cari NRP lalu klik tombol Cari Dengan Move, seperti gambar berikut ini :

 

3. Metode SQL
    Sebenarnya pencarian dengan metode SQL lebih tepat dikatakan sebagai penyaringan data (Filter), karena data yang tampil merupakan hasil dari penyaringan data sesuai dengan kriteria yang ditampilkan. Jadi dengan metode tertentu, data yang ditampilkan bukan hanya satu data, tetapi bisa banyak data asal kuncinya hampir sama dengan kriteria yang dimaksudkan.
 
Untuk contoh penggunaan SQL sebagai pencarian, sebagai berikut :

Klik dua kali pada txtcarisql atau text Cari NRP Dengan SQL kemudian isikan kode pencarian seperti dibawah ini :

Private Sub txtcarisql_Change()
If txtcarisql.Text = Empty Then
    Adodc1.RecordSource = "select * from MHS"
Else
    Adodc1.RecordSource = "select * from MHS where NRP like '%" & txtcarisql.Text & "%'"
End If
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
    If txtcarisql.Text = Empty Then
    lblnama.Caption = ""
    lbljurusan.Caption = ""
    lblnilai.Caption = ""
    Else
With Adodc1.Recordset
lblnama.Caption = .Fields("NAMA")
lbljurusan.Caption = .Fields("JURUSAN")
lblnilai.Caption = .Fields("NILAI")
    End With
End If
    Else
    lblnama.Caption = ""
    lbljurusan.Caption = ""
    lblnilai.Caption = ""
End If
End Sub     

Sekarang jalankan programnya lalu inputkan NRP dengan 2 digit dulu, misalkan "01" lalu perhatikan perubahan data yang terjadi pada datagrid. Jika ditampilkan secara lengkap maka tampilan data dalam datagrid seperti gambar berikut ini :

Sampai disini dulu pembahasan tentang metode pencarian ADO,,untuk pencarian dengan metode Find dan Move bisa dikembangkan lagi, misalnya dengan menempatkannya pada even Change dari textbox seperti pada metode SQL., jadi bisa disesuaikan dengan kebutuhan teman-teman. ^_^

DOWNLOAD CONTOH PROGRAM DISINI

Artikel ini juga saya posting di blog saya : http://fadilcrows.blogspot.com/2012/07/metode-pencarian-find-move-dan-sql-pada.html




    Via FeedBurner
Contoh Program Simpan Foto Menggunakan Visual Basic 6.0
  Karena banyak pertanyaan dari teman-teman tentang bagaimana membuat program menyimpan ..
Pasang Plugin Komentar Facebook terbaru di website dengan CMS Lokomedia
Sebetulnya sudah banyak yang membahas tutorial kali ini, baik untuk blogger maupun wordpress. ..
Membuat / klaim Email Facebook.com (@facebook.com) anda
Bicara soal email tentu sudah pada tahu kan fungsi dari email itu sendiri, dan biasanya email ..
Contoh Program Absensi Sederhana Dengan Visual Basic 6.0
Setelah membahas tentang program simpan, edit dan hapus, pada artikel kali ini saya akan coba ..

Komentar Via Facebook :

5 Komentar via komputer kampus :

1

Odong-Odong
05 Juli 2012 - 17:33:09 WIB

Link saya belum terpasang mas!

(maaf kalo melenceng dari artikel)
:)

2

ridha
05 Juli 2012 - 19:33:44 WIB

thanks mas sudah pasang.. maaf baru update.. linknya bisa mas liat disini http://www.komputerkampus.com/laman-2/link-sahabat/

3

Odong-Odong
05 Juli 2012 - 20:32:36 WIB

sama-sama mas !

btw mas ridha tinggal dmn?
sepertinya warnet sy pernah mas datangi !
:D

4

cemon
30 November 2012 - 13:40:41 WIB

ok

5

ciaming
06 Maret 2013 - 14:47:30 WIB

nice..thx ya gan..artikel yang sangat bermanfaat


Form Komentar Via Komputer kampus :

Nama *
Email *
Web/blog
Komentar *
  Karakter yang masih tersedia.
Captcha *

Untuk menghindari kontak spam dan memastikan bahwa anda adalah seorang manusia, maka jawablah pertanyaan keamanan berupa foto sahabat disamping. Mohon maaf atas ketidak nyamanan ini

 

M Najamudin Ridha Kuliah di STMIK Indonesia Banjarmasin jurusan TI, mengenal internet di tahun 2009 yang saat itu cuma sekedar iseng-iseng bikin blog biasa, walaupun sebelumnya tidak suka membaca dan apalagi menulis (artikel) akhirnya mulai menyukai kedua hal tersebut.

Kategori Artikel


RSS Feed


Langganan RSS
komputerkampus.com


Cari Artikel



Statistik Web


Pengunjung hari ini : 377
Total pengunjung : 295443
Hits hari ini : 1406
Total Hits : 2374103
Pengunjung Online : 5

Poling


Apa OS yang anda gunakan ?
windows (xp, vista, 7, 8 dll)
linux (all distro linux)
Mac OS
OS Lain

    Lihat Hasil Poling

Link Sahabat


http://bukulokomedia.com
http://fadilcrows.blogspot.com
http://najamudin1.blogspot.com
http://nahdisnape.blogspot.com

Link Lainnya