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 RSpohon = 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
Dim RSpohon As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSpohon = 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