Sintak Pencarian dalam VB

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