Thursday, 30 April 2015

Cara membuat Form Pencarian diVisual Basic

Turmudi


SELAMAT SEMANGAT KAWAN.....!!!!!

           Ketika anda seorang pemula didunia progemer mestinya anda selalu mencoba hal-hal yang baru, contohnya seperti saya, sudah  6 bulan saya selelu mencoba yang belum saya coba, Mohon maaf , saya itu suka merusak File orang lain....... ehehehheh.... biasa anak mudah....
Tapi dari itu semua saya sudah banyak mendapatkan Inayah... sihhhh Inayah can... kanak.... ehehhe..

OK. saat ini saya akan memposting bagaimana caranya membuat form pencarian di Visual Basic

 Langsung sajha. GAN.......

1. Buka Visual Basic ANDA.... Jangan lupa ( Folder Tempat penyimpanannya ya...!!!!)
2.Buat Database nya di MS.ACCES,  Save nya  pakek format yang "Access 2002 - 2003" / .mdb
3. Buat form,label,datagrid, dan ADODC.

Catatan : ketika anda membuka VB pertama kali, mungkin tools "DataGrid dan adodc" belum
                       muncul, cara memunculkannya lihat gambar dibawah ini.

Klik kanan dibagian kiri/tools bar nya, kemudian   cari "Microsoft ADO Data dan Microsoft DataGrid", setelah itu. Apply dan OK.
4. Drag DataGrid dan Adodc nya Ke Form.
5.Masukan Koding dibawah ini di "Text1"
Catatan :  1.RSpohon = nama database nya yang ada di Acces "pohon"
                        2. DataBase harus format 2002-2003



Dim Koneksi As New ADODB.Connection
Dim RSpohon As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RS
pohon = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBCari.mdb"
End Sub
Private Sub Form_Load()
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBCari.mdb; "
Adodc1.RecordSource = "pohon"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Text1_Change()
Call BukaDB
        RSpohon.Open "select * from Pohon where Jenis_pohon like '%" & Text1 & "%'", Koneksi
        If Not RSpohon.EOF Then
                Adodc1.RecordSource = "select * from Pohon where Jenis_pohon like '%" & Text1 & "%'"
                Adodc1.Refresh
                Set DataGrid1.DataSource = Adodc1
        End If
End Sub

Semoga Bermanfaat..........!!!!

0 comments:

Post a Comment