Teknik ADO Untuk Pencarian Record Pada Database

Minggu, 17 Februari 2013 | 12:32 WIB | Dibaca : 2562 kali | Kategori : Prog Visual Basic
Teknik ADO Untuk Pencarian Record Pada Database

Artikel sebelumnya membahas Teknik DAO Untuk Searching Data Pada Database . Pada artikel ini akan dibahas mengenai Teknik ADO Untuk Pencarian Record Pada Database yang membantu dalam pencarian data tersebut.

Berikut Design program Teknik ADO Untuk Pencarian Record Pada Database




Saat mengetikkan perintah anda harus menambah komponen dahulu dengan perintah :

1. Ctrl+T
2. Click Microsoft ADO DB Control 6.0
3. Click OK

Terlebih dahulu anda harus membuat satu database menggunakan microsoft acess :
Nama Database : SmartSolution.mdb
Nama Tabel : Buku
Field
1. Kode  jenisnya Text
2. Judul jenisnya Text
3. Pengarang jenisnya Text
4. Penerbit jenisnya Text
dan isikan min 1 data

Berikut listing program Teknik ADO Untuk Pencarian Record Pada Database

Dim db As New ADODB.Connection  'variabel untuk database
Dim rs As New ADODB.Recordset  'variabel untuk tabel
Dim sql As String

Private Sub Form_Load()
    'digunakan untuk membuka database
    If db.State = adStateOpen Then db.Close
    db.CursorLocation = adUseClient
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=SmartSolution.mdb;Persist Security Info=False"
   
    Kode = ""
    Judul = ""
    Pengarang = ""
    Penerbit = ""
End Sub


Private Sub Kode_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        If Kode.Text = "" Then
            Kode.SetFocus
        Else
            'menyiapkan perintah SQL   PADA PERINTAH SELEC tersebut tambahkan T di akhir
            sql = "SELEC * FROM Buku Where Kode='" & Kode.Text & "'"

            'jika record terbuka harus di tutup
            If rs.State = adStateOpen Then rs.Close

            'perintah untuk membuka record
            rs.Open sql, db, adOpenDynamic, adLockOptimistic
            If rs.RecordCount <> 0 Then
                Judul = rs!Judul
                Pengarang = rs!Pengarang
                Penerbit = rs!Penerbit
                MsgBox "Data di temukan !"
            Else
                MsgBox "Data tidak temukan !"
                Judul = ""
                Pengarang = ""
                Penerbit = ""
            End If
            rs.Close  'menutup recordset
            Judul.SetFocus
        End If
    End If
End Sub


Demikianlah artikel membahas Teknik ADO Untuk Pencarian Record Pada Database .
Semangat yah belajar bahasa pemrograman. :)

Tag : Teknik ADO Untuk Pencarian Record Pada Database, belajar bahasa pemrograman, bahasa pemrograman, bahasa pemrograman visual basic, tempat download program


Bila berita ini bermanfaat silahkan share Teknik ADO Untuk Pencarian Record Pada Database ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Teknik ADO Untuk Pencarian Record Pada Database

Anda berada di halaman Teknik ADO Untuk Pencarian Record Pada Database, dan telah membaca artikel Teknik ADO Untuk Pencarian Record Pada Database. Artikel Teknik ADO Untuk Pencarian Record Pada Database bisa anda peroleh pada halaman http://www.mesran.web.id/berita-557-teknik-ado-untuk-pencarian-record-pada-database.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Teknik ADO Untuk Pencarian Record Pada Database sebagai sumbernya.
Web Rekomendasi
Publikasi Ilmiah
 Copyright (c) 2011 - 2018 mesran.web.id