Sintak Pencarian dalam VB   Leave a comment

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

Posted November 3, 2010 by abdijeinlaknat brotherbad in Program

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Gravatar
Logo WordPress.com

You are commenting using your WordPress.com account. ( Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. ( Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. ( Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. ( Logout / Ubah )

Batal

Connecting to %s