Menampilkan Nama dengan Cara Input NIM

Manampilkan Nama dengan Cara Input NIM, Gimana maksudnya ? Maksud saya adalah dengan memasukan atau mengetikan sebuah nim ke dalam sebuah  textbox lalu kita tekan enter maka jika data yang kita masukan ada maka  nama,alamat dll akan muncul pada textbox yang lain sesuai dengan data yang ada dalam tabel.

Jika sudah muncul datanya terserah anda mau diapakan data tersebut misalnya di hapus,di update atau di simpan ke tabel yang lain sesuaikan dengan kebutuhan anda. Cara ini sangat berguna saat membuat aplikasi pada proses transaksi.

Jika anda belum bisa dan belum tahu caranya silahkan simak postingan saya ini. Langkah-langkahnya sebagai berikut ini. Siapkan sebuah form seperti gambar berikut ini

Tampilkan Gambar

Sebagai contoh saya memakai database DB_MHS.mdb dengan tabel Tbl_Mhs desain tabelnya seperti yang nampak pada gambar berikut ini :

Tampilkan Gambar

Untuk selanjutnya yaitu membuat kodingnya.  Tambahkan sebuah modul dengan cara klik menu Project-Add Modul dan ketikan koding berikut ini pada modul tersebut.

Public Conn As New ADODB.Connection
Public RsMhs As ADODB.Recordset

Public Sub KonekDB()
    Set Conn = New ADODB.Connection
    Conn.CursorLocation = adUseClient
    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
            & "Data Source=" & App.Path & "\DB_MHS.mdb"
End Sub

Jika sudah simpan, kemudian kembali ke form lalu double klik TxtNim kemudian ketikan koding berikut ini pada event Keypress (TxtNim_Keypress)

Private Sub TxtNim_KeyPress(KeyAscii As Integer)
'Jika di tekan enter (KeyAscii = 13)
If KeyAscii = 13 Then
    Call KonekDB
    Set RsMhs = New ADODB.Recordset
    RsMhs.Open "SELECT * FROM Tbl_Mhs " _
             & "WHERE nim='" & TxtNim.Text & "'", _
             Conn, adOpenDynamic, adLockOptimistic
             
    'Jika  di temukan datanya
    If Not RsMhs.EOF Then
        'tampilkan nama,alamat,jurusan pada textbox
        TxtNama.Text = RsMhs!nama
        TxtAlamat.Text = RsMhs!alamat
        TxtJurusan.Text = RsMhs!jurusan
        
    'jika tidak di temukan
    Else
        MsgBox "Data Yang Anda Cari Tidak Data...", vbInformation, "Informasi"
        TxtNama.Text = ""
        TxtAlamat.Text = ""
        TxtJurusan.Text = ""
        TxtNim.SetFocus
        Exit Sub
    End If
End If
End Sub

Silahkan di save selanjutkan silahkan dijalankan. jika berhasil maka akan tampil seperti gambar animasi seperti berikut ini.

Selesai jika anda masih kurang jelas atau kendala silahkan kasih komentar. Jika anda menginginkan source codenya silahkan download di link di akhir tulisan ini.

DOWNLOAD

Tags:
Menampilkan Nama dengan Cara Input NIM, Menampilkan nama dengan cara input no anggota, cara menampilkan data, menampilkan data dengan input kata kunci, Menampilkan data yang sudah ada dengan input nim,no anggota, no transaksi,no pinjam, kode