DataGrid Dengan ListBox

Contoh program ini mendemonstrasikan bagaimana cara untuk merefresh suatu DataGrid berdasarkan kriteria atau data yg terdaftar pada object ListBox. Selain itu contoh program ini bisa juga digunakan sebagai latihan bagaimana memilih data pada List yg satu ke List yg lain. 

Component :     1. Microsoft ADO Data Control 6.0 (SP4) (OLEDB)
                         2. Microsoft DataGrid Control 6.0 (OLEDB)
Reference:        1. Microsoft ActiveX Data Objects 2.6 Library

Download Code

Option Explicit Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmdRefresh_Click() Dim i As Integer Dim strSQL As String Set rs = Nothing Set Conn = Nothing If List2.ListCount >= 1 Then strSQL = "SELECT * FROM Table1 WHERE " For i = 1 To List2.ListCount strSQL = strSQL & "Kode = '" & List2.List(i - 1) & "' OR " Next If Right(strSQL, 3) = "OR " Then strSQL = Left(strSQL, Len(strSQL) - 3) End If Else strSQL = "SELECT * FROM Table1" End If RefreshGrid (strSQL) End Sub Private Sub cmdSelect_Click(Index As Integer) Dim i As Integer Select Case Index Case 0: For i = 0 To List1.ListCount - 1 List1.ListIndex = 0 List2.AddItem List1.Text List1.RemoveItem (0) Next Case 1: If List1.ListIndex >= 0 Then List2.AddItem List1.Text List1.RemoveItem (List1.ListIndex) Else MsgBox "Select Kode Mahasiswa..." End If Case 2: If List2.ListIndex >= 0 Then List1.AddItem List2.Text List2.RemoveItem (List2.ListIndex) Else MsgBox "Select Kode Mahasiswa..." End If Case 3: For i = 0 To List2.ListCount - 1 List2.ListIndex = 0 List1.AddItem List2.Text List2.RemoveItem (0) Next End Select End Sub Private Sub CommandButton1_Click() End End Sub Private Sub Form_Load() RefreshGrid ("SELECT * FROM Table1") rs.MoveFirst While Not rs.EOF List1.AddItem rs.Fields(0) rs.MoveNext Wend End Sub Private Sub List1_DblClick() cmdSelect_Click (1) End Sub Private Sub List1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdSelect_Click (1) End If End Sub Private Sub List2_DblClick() cmdSelect_Click (2) End Sub Private Sub RefreshGrid(strSQL As String) Dim strConn As String Set Conn = New ADODB.Connection Set rs = New ADODB.Recordset strConn = "Provider = Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\db5.mdb;" Conn.CursorLocation = adUseClient Conn.ConnectionString = strConn Conn.Open rs.Open strSQL, _ Conn, adOpenKeyset, adLockOptimistic Set Adodc1.Recordset = rs End Sub Private Sub List2_KeyPress(KeyAscii As Integer) cmdSelect_Click (2) End Sub

Read more »

Mencari Data Di DataGrid

Source code Mencari Data Di DataGrid

Option Explicit Private Sub Command1_Click() End End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) DisplayRecord If Adodc1.Recordset.EOF Then Adodc1.Caption = "Record: EOF of " & Adodc1.Recordset.RecordCount Else Adodc1.Caption = "Record: " & Adodc1.Recordset.AbsolutePosition & " of " & Adodc1.Recordset.RecordCount End If End Sub Private Sub Form_Load() DisplayRecord End Sub Private Sub txtFind_Change() If Not Trim(txtFind.Text) = "" Then txtFind.Text = UCase(txtFind.Text) txtFind.SelStart = Len(txtFind.Text) Adodc1.Recordset.Find "fld1 LIKE '" & txtFind.Text & "%'", , , 1 If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Else Text1.Text = Adodc1.Recordset.Fields(0) Text2.Text = Adodc1.Recordset.Fields(1) Text3.Text = Adodc1.Recordset.Fields(2) Adodc1.Caption = _ "Record: " & Adodc1.Recordset.AbsolutePosition & " of " & Adodc1.Recordset.RecordCount End If Else txtFind.Text = "" End If End Sub Private Sub DisplayRecord() If Not Adodc1.Recordset.EOF And Not Adodc1.Recordset.BOF Then Text1.Text = Adodc1.Recordset.Fields(0) Text2.Text = Adodc1.Recordset.Fields(1) Text3.Text = Adodc1.Recordset.Fields(2) End If End Sub

Sebelum anda menjalankan program ini terlebih dahulu setting ADO Data Control-nya ke direktori dimana data COBA.MDB berada yaitu connectionstring. Untuk mendownload codenya Klik disini.

Read more »