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
Komentar
Posting Komentar
Salama Persahabatan