Cara Mencari Cepat ADODC

Mencari cepat suatu record dengan menampilkan terlebih dahulu pillihan yang mungkin dimaksud kedalam sebuah listBox

Project : Standard EXE Component Tambahan :
ADODC (Microsoft ADO Data Control 6.0 (OLEDB))
Datagrid (Microsoft Datagrid Control 6.0 (OLEDB))
Controls :
list1 (listBox)
text1 (textbox)
cmdCari (Commandbutton)
lbsuggest (label)
Adodc1, Adodc2 (ADODC)
Datagrid1 (Datagrid)

Code :

1. Private Sub cmdcari_Click()  
2. With Adodc1  
3. .RecordSource = "SELECT Nama, Alamat FROM TbAlamat WHERE nama like '" + Text1.Text + "%'"  
4. .Refresh  
5. End With  
6. DataGrid1.Refresh  
7. End Sub  
8.   
9. Private Sub Form_Load()  
10.     Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _  
11.                               "Data Source=" + App.Path & "\data\db1.mdb;" + _  
12.                               "Persist Security Info=False"  
13.     Adodc1.RecordSource = "TbAlamat"  
14.     Adodc1.Refresh  
15.     DataGrid1.Refresh  
16.      
17.     Adodc2.ConnectionString = Adodc1.ConnectionString  
18.     Adodc2.RecordSource = "TbAlamat"  
19.     Adodc2.Refresh  
20.          
21.     List1.Top = lbsuggest.Top + lbsuggest.Height  
22.     List1.Left = Text1.Left  
23.     List1.Height = 0  
24.     List1.Width = Text1.Width  
25.     List1.Visible = False  
26.     lbsuggest.Visible = False  
27. End Sub  
28.   
29. Private Sub List1_Click()  
30. Text1.Text = List1.Text  
31. List1.Visible = False  
32. lbsuggest.Visible = False  
33. End Sub  
34.   
35. Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)  
36.     List1.Clear  
37.     List1.Visible = False  
38.     lbsuggest.Visible = False  
39.     n = 0  
40.     If Not Text1.Text = "" Then  
41.         List1.Clear  
42.         With Adodc2  
43.         .RecordSource = "SELECT nama FROM TbAlamat WHERE nama like '" + Text1.Text + "%'"  
44.         .Refresh  
45.             If Not .Recordset.EOF Then  
46.                 Do Until .Recordset.EOF  
47.                     n = n + 1  
48.                     List1.AddItem .Recordset(0)  
49.                     .Recordset.MoveNext  
50.                 Loop  
51.                 List1.Height = n * 225  
52.                 If List1.Height > 2250 Then List1.Height = 2250  
53.                 List1.Visible = True  
54.                 lbsuggest.Visible = True  
55.             End If  
56.         End With  
57.     End If  
58. End Sub  

Jika perlu penjelasan,silahkan tinggalkan komentar kalian.

---

Share