AbbasVB
پنج شنبه 23 شهریور 1391, 15:29 عصر
سلام دوستان
من یه بانک اکسس دارم که اطلاعات رو توش رمز کردم و قرار دادم قبلا که رمز نبود با دیتا گرید
جستجو می کردم راحت بود ولی الآن که جست جو می کنم به جای این که اطلاعات مورد جست جو رو نشون بده
تمام اطلاعات رو نشون می ده
برای جست جو از کد زیر استفاده می کنم
On Error Resume Next
Dim strSQL, txtSearchText As String
strSQL = "Select * from DataBaseTbl "
txtSearchText = txtSerchUserName.Text
AdodcMain.RecordSource = strSQL
ToCode txtSerchUserName.Text, txtSearchText, 29
strSQL = strSQL & " where (UserName like '%" & txtSearchText & "%')Order BY UserName"
AdodcMain.Refresh
و برای نمایش نتیجه یک بار دیتابیس رو مرور می کنم ودر لیست نمایش می دم
امیدوارم سوالم رو واضح گفته باشم
من یه بانک اکسس دارم که اطلاعات رو توش رمز کردم و قرار دادم قبلا که رمز نبود با دیتا گرید
جستجو می کردم راحت بود ولی الآن که جست جو می کنم به جای این که اطلاعات مورد جست جو رو نشون بده
تمام اطلاعات رو نشون می ده
برای جست جو از کد زیر استفاده می کنم
On Error Resume Next
Dim strSQL, txtSearchText As String
strSQL = "Select * from DataBaseTbl "
txtSearchText = txtSerchUserName.Text
AdodcMain.RecordSource = strSQL
ToCode txtSerchUserName.Text, txtSearchText, 29
strSQL = strSQL & " where (UserName like '%" & txtSearchText & "%')Order BY UserName"
AdodcMain.Refresh
و برای نمایش نتیجه یک بار دیتابیس رو مرور می کنم ودر لیست نمایش می دم
امیدوارم سوالم رو واضح گفته باشم