belajar bersama mas aris

halo.. teman-teman apa kabar anda hari ini? pastinya luarbiasa dahsyat yes kan? anggap aja iya deh! ni aku cum amau ngasih satatan aja buat temen2 yang belum punya code buat bikin program pencarian kodepos tap sebelumnya masih ingetkan apa yang harus dilakukan sebeelum mengetikan kode ini ya tept sekali kamu harus ngaktifin microsoft axtivex data obyek 2.7 library.ada dimana? ya di menu project pilih reference pasti ada tu selanjutnya kita tinggal

bikin formnya deh Dim cn As New Connection Dim rs As New Recordset Private Sub Command1_Click() Form1.Show Unload Me End Sub Private Sub Form_Load() nmfiledb = "dbpos.mdb" strkoneksi = "provider=microsoft.jet.oledb.4.0;data source=" & nmfiledb & ";persist security info=false" cn.Open strkoneksi rs.CursorLocation = adUseClient rs.Open "select *from tbpos", cn, adOpenKeyset, adLockBatchOptimistic Set DataGrid1.DataSource = rs aturGrid End Sub Sub aturGrid() DataGrid1.Columns(0).Width = 500 DataGrid1.Columns(1).Width = 1000 DataGrid1.Columns(2).Width = 6000 DataGrid1.Columns(3).Width = 1000 DataGrid1.Columns(4).Width = 1500 End Sub Private Sub Text1_Change() If Text1 <> "" Then rs.Filter = "KOTA LIKE '%" & Text1 & "%'" Else rs.Filter = "KOTA <> 'xxx'" End If End Sub Private Sub Text2_Change() If Text <> "" Then rs.Filter = "ALAMAT LIKE '%" & Text2 & "%'" Else rs.Filter = "ALAMAT <> 'xxx'" End If End Sub Private Sub Text3_Change() If Text3 <> "" Then rs.Filter = "KODEPOS LIKE '%" & Text3 & "%'" Else rs.Filter = "KODEPOS <> 'xxx'" End If End Sub