مشكل search

[miliad]

برنامه زير رو براي جستجو نوشتم:

Private Sub Command1_Click()
Adodc1.ConnectionString = strconn
If txtsearch = "" Then
MsgBox "please enter keyword!", vbExclamation, "attention"
Else
Adodc1.RecordSource = "select * from khazaneh where onvan like '%" & txtsearch.Text & "%'"
Adodc1.Refresh
Set datagride1.DataSource = Adodc1
End If
txtsearch.text = ""
end sub

امابرنامه خطاميده وقسمت adodc1.refreshرنگي ميشه
اگه ميشه مشكل اين برنامه يا اينكه يه برنامه واسه جستجو بهم بگيد

[majj]

بجاي استفاده از adodc از adodb استفاده كنيد كار باهاش راحتتره ازadodc براي مشخص كردن پرووايدرهاي اتصال به بانكهاي اطلاعاتي كمك بگيريد. فكر كنم نمونه هم تو نت يا سايت بتونيد پيدا كنيد adodb رو سرچ كنيد.