Pages

Membuat Dan Membaca Data INI File (.ini) di VB

Membuat Dan Menulis Data Pada INI File (.ini)  di VB.
Dan kali ini saya akan membahas bagaimana cara menyimpan suatu informasi dalam file Text dengan format INI file (*.ini).

File ini dapat anda gunakan untuk menyimpan pengaturan sebuah aplikasi, misalnya sebagai media penyimpanan sementara untuk sebuah data konfigurasi database. Pada percobaan ini saya menggunakan database MySQL, tentunya disana terdapat beberapa variable seperti Server, Database,User, Port, dan Password. Trik atau cara ini saya aplikasikan di Aplikasi Perpustakaan pada menu backup restore data

Agar lebih mudah dalam menyimpan dan membaca informasi pada INI file membutuhkan 2 fungsi WinAPI, Apa itu WinAPI? Silahkan mampir dulu kesini untuk mengetahui apa itu WinAPI :D.

Sebagai contoh buatlah 2 buah form. form pertama untuk membuat atau menyimpan INI file dan form kedua untuk menampilkan atau membaca data INI file. Formnya seperti gambar berikut ini

Tampilkan Gambar

Form1 Membuat INI File (.ini)
Form2 Menampilkan Data INI File (.ini)


 Kemudian tambahkan sebuah modul dengan cara klik menu Project - Add Modul kemudian ketiklah atau copy pastekan 2 kode WinAPI berikut ini pada modul

Option Explicit
Public Declare Function WritePrivateProfileString& Lib "kernel32" _
    Alias "WritePrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, _
    ByVal keydefault$, ByVal FileName$)
    
Public Declare Function GetPrivateProfileString& Lib "kernel32" _
    Alias "GetPrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, _
    ByVal keydefault$, ByVal ReturnedString$, ByVal RSSize&, ByVal FileName$)


kemudian ketiklah / copy pastekan kode berikut ini di bawak kode di atas ini berfungsi untuk menulis data di dalam file ini

'prosedure untuk menulis file ini
Public Sub WriteINI(INISection As String, INIKey As String, _
    INIValue As String, INIFile As String)
    
    Call WritePrivateProfileString(INISection, INIKey, INIValue, INIFile)
End Sub

Kemudian ketikan / copy pastekan lagi kode berikut ini, berfungsi untuk membaca atau menampilkan data dari file INI yang telah dibuat.

'prosedure untuk membaca file ini
Public Function ReadINI(INISection As String, INIKey As String, _
    INIFile As String) As String
  
    Dim StringBuffer As String
    Dim StringBufferSize As Long
    
    StringBuffer = Space$(255)
    StringBufferSize = Len(StringBuffer)
    
    StringBufferSize = GetPrivateProfileString(INISection, INIKey, "", _
        StringBuffer, StringBufferSize, INIFile)
    
    If StringBufferSize > 0 Then
        ReadINI = Left$(StringBuffer, StringBufferSize)
    Else
        ReadINI = ""
    End If
End Function

Bagaimana caranya mengetahui fungsi WinAPI selain 2 yang tadi?
Caranya seperti ini
1. Klik Add-Ins -> Add-Ins Manager
2. Pilih VB6 API Viewer -> Centang Loaded/Unloaded dan centang juga Load On StartUp -> Klik OK
3. Pilih Add-Ins -> API Viewer
4. Pada Jendela API Viewer pilih File -> Load Text File -> Pilih Win32API.txt -> Open
5. Semua daftar fungsi WinAPI sudah ditampilkan. jika anda ingin menambahkannya ke dalam form/module, pilih terlebih dahulu fungsi WinAPI yang akan digunakan kemudian Klik Add, Setelah itu Klik Copy atau Klik Insert.

Kembali ketopik semula buka form1 double klik pada tombol simpan lalu ketikan copy pastekan koding berikut ini

Call WriteINI("SETTING", "Server", txtServer.Text, (App.Path & "\konfig.ini"))
Call WriteINI("SETTING", "Database", txtDatabase.Text, (App.Path & "\konfig.ini"))
Call WriteINI("SETTING", "Port", txtPort.Text, (App.Path & "\konfig.ini"))
Call WriteINI("SETTING", "User", txtUser.Text, (App.Path & "\konfig.ini"))
Call WriteINI("SETTING", "Password", txtPassword.Text, (App.Path & "\konfig.ini"))
MsgBox "Your File INI was saved!"

kemudian double klik tombol tampilkan dan ketiklah copy pastekan koding berikut ini

Form2.Show 1

Kemudian di form dua pada bagian form load silahkan koding beriktu ini

txtServer.Text = (ReadINI("SETTING", "Server", App.Path & "\konfig.ini"))
txtDatabase.Text = (ReadINI("SETTING", "Database", App.Path & "\konfig.ini"))
txtPort.Text = (ReadINI("SETTING", "Port", App.Path & "\konfig.ini"))
txtUser.Text = (ReadINI("SETTING", "User", App.Path & "\konfig.ini"))
txtPassword.Text = (ReadINI("SETTING", "Password", App.Path & "\konfig.ini"))

Jika sudah semua silahkan simpan dan jalankan.Demikian tutorial ini semoga dapat bermanfaat. Jika ada yang kurang mengerti silahkan kasih komentar.
Jika anda ingin source codenya silahkan download di link di bawah ini



Jika berhasil maka akan seperti gambar animasi berikut ini

Membuat Dan Membaca Data INI File (.ini)  di VB



Keyword:
Membuat Dan membaca Data INI File (.ini)  di VB,Menyimpan Dan menampilkan Data  INI File (.ini)  di VB,Cara Menyimpan Dan menampilkan Data  INI File (.ini)  di VB,Menulis Dan Membaca Data  INI File (.ini)  di VB


Mendisable Tombol Close Pada Form

Menonaktifkan tombol close (tanda silang) pada form. Mungkin dalam benak anda pernah berpikir untuk menonaktifkan tombol close pada sebuah form dalam vb6. Kalau tombol maximize dan minimize bisa dinonaktifkan atau didisable lewat properties, tapi tombol close tidak bisa dilakukan lewat properties.  Apakah anda sudah tahu caranya. Kalau belum tahu caranya silahkan ikuti langkah-langkah berikut ini

Sebagai contoh saya akan membuat sebuah form dengan tampilan seperti gambar berikut ini

Mendisable/Menonaktifkan Tombol Close Pada Form


kemudian ketikan kode program berikut ini di bagian general_declaration

Private Declare Function GetSystemMenu Lib "user32" _
    (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
    (ByVal hMenu As Long, ByVal nPosition As Long, _
     ByVal wFlags As Long) As Long

Private Sub DisableCloseBtn(ByVal Frm As Form)
    Dim h As Long
    h = GetSystemMenu(Frm.hwnd, 0)
    RemoveMenu h, 6, &H400
    RemoveMenu h, 5, &H400
End Sub

Kemudian pada form_load ketikan kode berikut ini

Private Sub Form_Load()
    DisableCloseBtn Me
End Sub

kemudian pada CommandButton ketikan kode berikut ini

Private Sub Command1_Click()
    Unload Me
End Sub

jika sudah silahkan dijalankan. Jika berhasil maka tombol close yang ada pada form tidak akan bisa diklik Jika anda tidak ingin report menulis kodenya silahkan download source codenya dilink download di akhir tulisan ini.





Keyword:
Mendisable Tombol Close Pada Form,Menonaktifkan Tombol Close Pada Form,Mematikan Tombol Close Pada Form,Mendisable Tombol Pada Form

Download Aplikasi Perpustakaan V4.0.71

Aplikasi ini adalah palikasi penyempurnaan versi sebelumnya dan sudah menggunkan database MySQL. Untuk fitur-fiturnya yang pastinya lebih lengkap dari sebelumnya. Aplikasi ini di buat dengan vb 6 seperti aplikasi perpustakaan sebelumnya.

Fitur-Fiturnya :
1. Master   : - Input Anggota
                    - Input Kategori Buku
                    - Input Pengarang
                    - Input Penerbit
                    - Input Data Buku
                    - Input Inventaris Buku
2. Transaki : - Informasi Rak
                   - Katalog Buku
                   - Peminjaman Buku
                   - Pengembalian Buku
3. Laporan : - Laporan Data Buku :
                              -Laporan buku keseluruhan, per penerbit, per kategori dan per sumber buku
                              -Laporan Inventaris Buku
                              -Laporan Buku Yang Belum Dipinjam
                   -Laporan Peminjaman Buku
                              - Laporan peminjaman buku keseluruhan, per tanggal, per bulan dan per periode
                              - Laporan Peminjaman Buku Per Anggota
                              - Laporan Buku Yang Masih Dipinjam
                              - Laporan Buku Yang Sering Dipinjam
                   -Laporan Pengembalin Buku
                               -Laporan Pengembalian buku keseluruhan, per tanggal, per bulan dan per periode
                               -Laporan Pengembalian Buku Per Anggota
                               -Laporan Denda Keterlambatan
                    -Grafik Statistik Peminjaman Buku
                    -Surat Keterangan Bebas
4. Utility     :- Repair Database
                   - Backup dan Restore Database
5. Setting    : -Profil Sekolah
                    -Sirkulasi Peminjaman
                    -Input Data Petugas
                    -Ganti Password Petugas

aplikasi ini dilengkapi dengan fitur import data anggota dan buku dari file excel, cetak kartu anggota dan cetak barcode buku juga saya sertakan user manualnya. Dan masih banyak lagi fitur yang tidak saya jelaskan disini. Unutk lebih jelasnya silahkan download aplikasi perpustakaan ini di link yang telah saya sediakan di akhir tulisan ini.

untuk menu-menunya dapat di lihat seperti gambar beriku ini.










Saya sediakan beberapa link untuk mendownloadnya jika linknya rusak silahkan beritahukan saya dengan cara memberikan komentar.

NB : Supaya bisa menjalankan menu cara pengoperasian di menu help komputernya harus sudah di instal adobe reader dan juga install ms office supaya bisa melakukan import data dari file excel.





Keyword : download aplikasi perpus full, download aplikasi perpustakaan full, aplikasi perpus, aplikasi perpustakaan, perpustakaan, perpus, aplikasi perpustakaan free,free software perpustakaan, software perpustakaa,aplikasi perpustakaan gratis,gratis aplikasi perpustakaan,download aplikasi perpustakaan gratis,download gratis aplikasi perpustakaan

Menampilkan Data Dari Form Lain Bag 2

Saya akan berbagi sebuah tulisan cara menampilkan data dari form lain. Ilustrasinya begini misalkan kita ingin menampilkan beberapa data dari form lain dengan cara klik sebuah tombol command button maka akan muncul sebuah jendela baru atau sebuah form baru (form2) lalu kita double klik datanya maka akan tampil data tersebut di form pertama. Alur Menampilkan Data Dari Form Lain sudah pahamkan..? Jika anda belum bisa silahkan simak terus sampai akhir tulisan ini

Pada bagian kedua ini saya akan menggunakan Listview pada form ke dua untuk menampilkan data, berbeda dengan tutorial bagian pertama yang menggunakan MSFlexGrid untuk menampilkan data. Untuk membuatnya kita memerlukan dua buah form, form pertama berfungsi menampilkan data yang di pilih dari form kedua. Form kedua berfungsi menampilkan data-data yang akan kita pilih untuk di tampilkan ke form pertama.

Bagaimana Langkah-Langkah Menampilkan Data Dari Form Lain ? Langkah pertama silahkan buat dua buah form seperti tampilan berikut ini :

Tampilkan Gambar




Pada form dua dapat anda tambahkan sebuah textbox untuk pencarian, untuk kode pencariannya silahkan buka tuturial sebelumnya.

Masih menggunkan data yang sama, menggunakan database Access dengan nama db_mhs.mdb dengan nama tabel tbl_mhs, struktur tabelnya seperti gambar berikut ini yang nantinya datanya di tampilkan di form2.


Selanjutkan kita buat kodingnya, buka form pertama ( form1 ) ketikan kode pada command button ( cmdBuka ). silahkan double klik kemudian ketikan kode berikut ini yang berguna untuk menampilkan atau memanggil form2 :

Private Sub CmdBuka_Click()
    Form2.Show vbModal
End Sub

Selajutnya buka form ke dua ( form2 ) kemudian ketik kode berikut ini di event double klik pada MsFlexgrid ( ListView1_DblClick ). Berikut kodenya yang berfungsi  untuk menampilkan data pada form pertama ( form1 ) :

Private Sub ListView1_DblClick()
 If ListView1.SelectedItem.Text <> "" Then
     Form1.TxtNim.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(1)
     Form1.TxtNama.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(2)
     Form1.TxtAlamat.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(3)
     Form1.TxtJurusan.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(4)
 End If
 Unload Me
End Sub

Saya tidak menjelaskan cara menampilkan pada form2 dari database ke msfllexgrid saya anggap semua sudah bisa cara menampilkannya, jika belum bisa silahkan download source codenya. Untuk mendapatkan source code Menampilkan Data Dari Form Lain Bag 1 silahkan download linknya pada akhir tulisan ini.

Jika anda berhasil maka akan mampak seperti gambar animasi berikut ini :



Jika ada yang kurang jelas atau ada yang perlu ditanyakan silahkan kasih komentar, semoga tulisan ini dapat bermanfaat. Silahkan download source codenya di link berikut ini





Tags:
Menampilkan Data Dari Form Lain di VB, Menampilkan Data di VB, Menampilkan Data Dari Form Lain Dengan Listview, Menampilkan Data Dari Form Lain Dengan Listview, Trik Menampilkan Data,Menampilkan Data di  Form1 dari Form2, Memunculkan Data dari Satu Form ke Form Lain, Mengambil Data Dari Form Lain 



Menampilkan Data Dari Form Lain Bag 1

Menampilkan Data Dari Form Lain

Saya akan berbagi sebuah tulisan cara menampilkan data dari form lain. Ilustrasinya begini misalkan kita ingin menampilkan beberapa data dari form lain dengan cara klik sebuah tombol command button maka akan muncul sebuah jendela baru atau sebuah form baru (form2) lalu kita double klik datanya maka akan tampil data tersebut di form pertama. Alur Menampilkan Data Dari Form Lain sudah pahamkan..? Jika anda belum bisa silahkan simak terus sampai akhir tulisan ini

Pada bagian pertama ini saya akan menggunakan MsFlexGrid pada form ke dua dalam menampilkan datanya. Untuk membuatnya kita memerlukan dua buah form, form pertama berfungsi menampilkan data yang di pilih dari form kedua. Form kedua berfungsi menampilkan data-data yang akan kita pilih untuk di tampilkan ke form pertama.

Bagaimana Langkah-Langkah Menampilkan Data Dari Form Lain ? Langkah pertama silahkan buat dua buah form seperti tampilan berikut ini :

Tampilkan Gambar




Pada form dua dapat anda tambahkan sebuah textbox untuk pencarian, untuk kode pencariannya silahkan buka tuturial sebelumnya.


Saya menggunakan database Access dengan nama db_mhs.mdb dengan nama tabel tbl_mhs, struktur tabelnya seperti gambar berikut ini yang nantinya datanya di tampilkan di form2.


Selanjutkan kita buat kodingnya, buka form pertama ( form1 ) ketikan kode pada command button ( cmdBuka ). silahkan double klik kemudian ketikan kode berikut ini yang berguna untuk menampilkan atau memanggil form2 :

Private Sub CmdBuka_Click()
    Form2.Show vbModal
End Sub

Selajutnya buka form ke dua ( form2 ) kemudian ketik kode berikut ini di event double klik pada MsFlexgrid ( MsFlexGrid_DblClick ). Berikut kodenya yang berfungsi  untuk menampilkan data pada form pertama ( form1 ) :

Private Sub MSFlexGrid1_DblClick()
    Baris = MSFlexGrid1.Row
    If MSFlexGrid1.Rows <> 1 Then
        Form1.TxtNim.Text = MSFlexGrid1.TextMatrix(Baris, 1)
        Form1.TxtNama.Text = MSFlexGrid1.TextMatrix(Baris, 2)
        Form1.TxtAlamat.Text = MSFlexGrid1.TextMatrix(Baris, 3)
        Form1.TxtJurusan.Text = MSFlexGrid1.TextMatrix(Baris, 4)
    Else
        Exit Sub
    End If
    Unload Me
End Sub

Saya tidak menjelaskan cara menampilkan pada form2 dari database ke msfllexgrid saya anggap semua sudah bisa cara menampilkannya, jika belum bisa silahkan download source codenya. Untuk mendapatkan source code Menampilkan Data Dari Form Lain Bag 1 silahkan download linknya pada akhir tulisan ini.

Jika anda berhasil maka akan mampak seperti gambar animasi berikut ini :




Jika ada yang kurang jelas atau ada yang perlu ditanyakan silahkan kasih komentar, semoga tulisan ini dapat bermanfaat. Silahkan download source codenya di link berikut ini



Tags :
Menampilkan Data Dari Form Lain di VB, Menampilkan Data di VB, Menampilkan Data Dari Form Lain Dengan Grid, Menampilkan Data Dari Form Lain Dengan MsFlexGrid, Trik Menampilkan Data,Menampilkan Data Form1 di Form2, Memunculkan Data dari Satu Form ke Form Lain, Mengambil Data Dari Form Lain

 

Menampilkan Data Dari Listview Ke Textbox

Menampilkan Data Dari Listview Ke Textbox.
Pada kesempatan sebelumnya saya pernah membahas cara menampilkan data dari grid ke textbox, pada kali ini saya akan membahas cara menampilkan data yang ada di dalam list view ke textbox. Misalnya kita menginginkan data tampil ke textbox pada saat data dalam list view kita double klik atau klik.

Menampilkan data dari listview ke textbox sebenarnya cukup mudah dengan menambahkan sedikit listing program, jika anda belum bisa silahkan simak tulisan ini sampai selesai.
Di sini saya tidak akan menjelaskan cara menampilkan data dari database ke listview jika anda belum bisa silahkan buka tutorial saya sebelumnya tentang cara menampilkan data ke listview atau silahkan download source code tutorial ini di akhir tulisan.

Sebagai contoh buatlah sebuah form seperti pada gambar berikut ini

Tampilkan Gambar



Langkah selanjutnya adalah membuat koding. Saya asumsikan semua sudah bisa cara menampilkan data ke List View karena saya tidak akan menjelaskan koding untuk menampilkan data dari database ke List View.

Berikut koding untuk menampilkan data dari Listview ke textbox

Private Sub ListView1_DblClick()
 If ListView1.SelectedItem.Text <> "" Then
    TxtNim.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(1)
    TxtNama.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(2)
    TxtAlamat.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(3)
    TxtJurusan.Text = ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(4)
 End If
End Sub

Koding di atas menggunakan event double klik untuk menampilkan datanya, jika menginginkan pada event klik silahkan tulis kodenya pada event klik atau yang dinginkan.

Jika sudah silahkan klik save kemudian dijalankan, lalu silahkan double klik data yang ada dalam list view maka datanya akan tampil di textbox. Jika berhasil maka akan nampak pada gambar animasi berikut ini.





Jika ada yang kurang jelas atau ada yang perlu ditanyakan silahkan kasih komentar. Bila anda menginginkan source codenya silahkan download link di bawah ini semoga bermanfaat.

 
Tags:
Menampilkan Data Dari Listview Ke Textbox,Menampilkan Data ke Textbox,Data Dalam Listview, Trik Data Pada Listview

Pencarian Data Pada Listview Di VB Bag 2

Pada pencarian data pada listview bagian ke dua ini saya tidak akan menggunkan option button untuk opsi pencariaannya seperti yang terdapat pada bagian pertama.
Pada bagian ke dua ini mirip dengan pencarian data  pada grid bag 2 yang telah saya posting sebelumnya. 

Apakah anda sudah bisa membuat Pencarian Data Pada Listview Di VB? Jika sudah tidak usah diplototin tulisan ini, bagi yang belum bisa silahkan disimak sampai akhir tulisan ini.

Pada postinga ini saya tidak akan memakai option button untuk opsi pencariannya tapi nanti hasilnya sama dengan memakai option. Kita akan rubah koding pencariaannya sehingga menghasilkan pencarian yang sama seperti pada tutorial pertama dengan hanya memasukan kata kunci pada text box pencariaannya tanpa perlu susah-susah memilih dulu opsi pencariaannya.

Disini akan menggunakan perintah LIKE dalam bahasa SQL, misalnya kita ingin mencari nama agus ketika mengetikan nama agus pada pencarian maka akan tampil semua nama yang mengandung nama agus.Itulah salah satu kelebihan perintah LIKE.

Sebagai contoh buatlah sebuah form dalam vb 6 seperti yang nampak pada gambar berikut ini

Tampilkan Gambar



Saya masih menggunakan database yang sama seperti pada tutorial bagian pertama.
Kodingnya sama seperti pada tutorial bag 1 hanya yang membedakan pada bagian Text1_Change.
Disini saya hanya akan menjelaskan  koding untuk pencariannya saja, untuk koding lengkapnya silahkan download source codenya di akhir tulisan ini.

Berikut koding pencariannya silahkan tulis pada bagian Text1_Change


Private Sub Text1_Change()
    Call Buka
    Set RsMhs = New ADODB.Recordset
    RsMhs.Open "SELECT * FROM Tbl_Mhs " _
             & "WHERE nim LIKE '%" & Text1.Text & "%' " _
             & "OR nama LIKE '%" & Text1.Text & "%' " _
             & "OR alamat LIKE '%" & Text1.Text & "%' " _
             & "OR jurusan LIKE '%" & Text1.Text & "%'", _
    Conn, adOpenDynamic, adLockOptimistic
    
    ' menampilkan hasil ke list view
    With RsMhs
    If Not .EOF Then
        i = 1
        ListView1.ListItems.Clear
        While Not .EOF
          Set View = ListView1.ListItems.Add
          View.Text = i          'nomor urut
          View.SubItems(1) = !Nim
          View.SubItems(2) = !Nama
          View.SubItems(3) = !alamat
          View.SubItems(4) = !jurusan
          i = i + 1
          .MoveNext
        Wend
    End If
    End With
    RsMhs.Close
End Sub

Jika sudah silahkan di simpan dan jalankan, jika berhasil maka akan nampak seperti gambar animasi berikut ini.



Contoh atau tutorial Pencarian Data Pada Listview Di VB Bag 2 ini dapat anda terapkan dengan database selain Ms Access seperti MySQL, SQL Server dan lain lain. Jika anda menginginkan koding ( source code ) lengkapnya silahkan download link di bawah ini.







Tags:
Pencarian Data Pada Listview Di VB Bag 2, Pencarian data di listview dengan perintah LIKE, Filter data pada listview dengan perintah SQL, penyaringan data pada listview,Pencarian Data Pada Listview Di VB 6,Pencarian Data Pada Listview Di VB 6.0,Pencarian Data Pada Listview Di VB6

Pencarian Data Pada Listview Di VB Bag 1

Sudahkah anda bisa menampilkan data dari database ke sebuah listview...? Jika belum silahkan buka pastingan saya sebelumnya karena untuk tutorial ini saya tidak akan menjelaskan cara menampilkan datanya.

Saya akan langsung menjelaskan pencarian data pada listview di visual basic. Apakah anda sudah bisa melakukan pencarian data yang datanya tampil dalam sebuah listview...? Jika sudah bisa tidak usah di baca postingan Pencarian Data Pada Listview Di VB Bag 1 ini, jika belum bisa silahkan simak baik-baik tutorial ini.

Pada tutorial Pencarian Data Pada Listview Di VB Bag 1 ini saya menggunakan option button untuk memilih kategori pencarian datanya, seperti pada tutorial pencarian data pada msflexgrid bag 1.
Buatlah  atau desainlah sebuah form seperti gambar berikut ini

Tampilkan Gambar



Pada postingan ini saya memakai database Ms Access dengan nama database DB_MHS.mdb, dengan nama tabel Tbl_Mhs desain tabelnya seperti yang nampak pada gambar berikut ini :

Tampilkan Gambar



Jika sudah kita lanjutkan menulis koding untuk pencariannya, untuk koding menampilkan datanya tidak akan saya bahas di sini silahkan lihat tutorial sebelumnya disini atau download koding lengkapnya di akhir tulisan ini.

Tulislah koding berikut ini pada bagian Text1_Change

Private Sub Text1_Change()
    If Option1.Value = False And Option2.Value = False _
        And Option3.Value = False And Option4.Value = False Then
        
        MsgBox "Silahkan Pilih Salah Satu Opsi Terlebih Dulu!", vbExclamation, "Perhatian"
        Text1.Text = ""
        Exit Sub
    End If
    
    Call Buka
    Set RsMhs = New ADODB.Recordset
    'Option 1
    If Option1.Value = True Then
        RsMhs.Open "SELECT * FROM Tbl_Mhs " _
                 & "WHERE nim LIKE '%" & Text1.Text & "%'", _
        Conn, adOpenDynamic, adLockOptimistic
    'Option 2
    ElseIf Option2.Value = True Then
        RsMhs.Open "SELECT * FROM Tbl_Mhs " _
                 & "WHERE nama LIKE '%" & Text1.Text & "%'", _
        Conn, adOpenDynamic, adLockOptimistic
    'Option 3
    ElseIf Option3.Value = True Then
        RsMhs.Open "SELECT * FROM Tbl_Mhs " _
                 & "WHERE alamat LIKE '%" & Text1.Text & "%'", _
        Conn, adOpenDynamic, adLockOptimistic
    'Option 4
    ElseIf Option4.Value = True Then
        RsMhs.Open "SELECT * FROM Tbl_Mhs " _
                 & "WHERE jurusan LIKE '%" & Text1.Text & "%'", _
        Conn, adOpenDynamic, adLockOptimistic
    End If
    
    'menampilkan hasil ke list view
    If Not RsMhs.EOF Then
        i = 1
        ListView1.ListItems.Clear
        While Not RsMhs.EOF
          Set View = ListView1.ListItems.Add
          View.Text = i  'nomor urut
          View.SubItems(1) = RsMhs!Nim
          View.SubItems(2) = RsMhs!Nama
          View.SubItems(3) = RsMhs!alamat
          View.SubItems(4) = RsMhs!jurusan
          i = i + 1
          RsMhs.MoveNext
        Wend
    End If
    RsMhs.Close
End Sub


Jika sudah silahkan simpan dan jalankan jika berhasil maka akan tampil seperti gambar animasi berikut ini.


Contoh atau tutorial Pencarian Data Pada Listview Di VB Bag 1 ini dapat anda terapkan dengan database selain Ms Access seperti MySQL,SQL Server dan lain lain. Jika anda menginginkan koding ( source code ) lengkapnya silahkan download link di bawah ini.








Tags:
Pencarian Data Pada Listview Di VB,Pencarian data di listview,Filter data pada listview,penyaringan data pada listview,Pencarian Data Pada Listview Di VB 6,Pencarian Data Pada Listview Di VB 6.0,Pencarian Data Pada Listview Di VB6

Menampilkan Data Dari Grid Ke Textbox

Anda pasti sudah bisa menampilkan data dari database ke grid. lalu bagaimana menampilkan data yang ada dalam grid ke textbox? Misalnya kita menginginkan data yang ada dalam grid bisa tampil pada textbox dengan cara klik maupun double klik.

Menampilkan Data Dari Grid Ke Textbox sangat mudah kok, kalau anda belum bisa silahkan ikuti caranya sebagai berikut.
Sebagai contoh silahkan buat sebuah form dengan desain sebagai berikut ini,

Tampilkan Gambar



Langkah selanjutnya adalah membuat koding. Saya asumsikan semua sudah bisa cara menampilkan data ke grid karena saya tidak akan menjelaskan koding untuk menampilkan data dari database ke grid, tapi jangan kawatir karena saya akan menyertakan source codenya silahkan di download di akhir tulisan ini.
Sebagai catatan saya menggunakan MsFlexgrid

Berikut koding untuk menampilkan data dari grid ke textbox

Private Sub MSFlexGrid1_DblClick()
    Dim A As Integer
    A = MSFlexGrid1.Row
    If MSFlexGrid1.Rows <> 1 Then
        TxtNim.Text = MSFlexGrid1.TextMatrix(A, 1)
        TxtNama.Text = MSFlexGrid1.TextMatrix(A, 2)
        TxtAlamat.Text = MSFlexGrid1.TextMatrix(A, 3)
        TxtJurusan.Text = MSFlexGrid1.TextMatrix(A, 4)
    Else
        Exit Sub
    End If
End Sub

Koding di atas menggunakan event double klik untuk menampilkan datanya, jika menginginkan pada event klik silahkan nulis kodenya pada event klik atau yang dinginkan.
Jika sudah silahkan di run sebelumnnya silahkan di simpan dulu, jika berhasil maka akan nampak pada gambar animasi berikut ini



Jika anda yang kurang jelas silahkan kasih komentar.Jika anda menginginkan source codenya silahkan download link di bawah ini.






Tags:
Menampilkan Data Dari Grid Ke Textbox,Menampilkan Data ke Textbox,Data Dalam Grid,