Private Sub Text_Change()
Adodc1.RecordSource = “SELECT nama file as nama file FROM Nama table yang dipakai WHERE pencarian yang diinginkan like ‘” & Text.Text & “%'”
Adodc.Refresh (adodc ke berapa yang dipakai)
DataGrid.Refresh (dataGrid ke berapa yang dipakai)
Private Sub Form_Load()
Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\Nama Database.mdb;Persist Security Info=False”
Adodc.RecordSource = “Nama Tabel yang digunakan”
Adodc.Refresh (adodc ke berapa yang dipakai)
DataGrid.Refresh (DataGrid ke berapa yang dipakai)
Teks = Me.Caption
End Sub
Iklan
Tinggalkan Balasan