تبلیغات
آموزس برنامه نویسی - جستجو در تمام رکورد های یک بانک
سه شنبه 1388/12/11

جستجو در تمام رکورد های یک بانک

   نوشته شده توسط: ::VB Love ::    

برای این کار کد زیر را وارد کنید.

Private Sub Command1_click()
Dim search as variant
sstr = InputBox("Enter Author to Search") ' Display a Input Box Window
data1.recordset.findfirst "Author='" & sstr & "'" ' Look for the record that has a value "sstr"
If trim(sstr) <> "" then
If data1.recordset.nomatch then 'check if the record exist
MsgBox "No record Exist"
Command1.setfocus
else
data1.recordsource = "SELECT * FROM TableName WHERE Author='" & sstr & "'" ' Display all the Records that has a Value of "sstr"
data1.refresh ' refresh the DBGRID or MSFLEXGRID
End if
End if
End Sub



برچسب ها: سورس ، پروژه ، رایگان ،

Foot Complaints
دوشنبه 1396/05/16 12:21 ب.ظ
Does your site have a contact page? I'm having
a tough time locating it but, I'd like to send you an e-mail.
I've got some recommendations for your blog you might be interested in hearing.
Either way, great website and I look forward to seeing it grow over time.
What causes pain in the back of the heel?
دوشنبه 1396/05/9 08:01 ب.ظ
You've made some decent points there. I looked on the net to learn more
about the issue and found most individuals will go along with your views on this web site.
conceptionhobden.jimdo.com
چهارشنبه 1396/03/3 08:48 ق.ظ
What's up Dear, are you actually visiting this site
daily, if so afterward you will absolutely
get fastidious know-how.
manicure
چهارشنبه 1396/02/6 09:46 ب.ظ
Hello, for all time i used to check webpage posts here early in the daylight, because i like to learn more
and more.
BHW
پنجشنبه 1396/01/24 10:07 ب.ظ
fantastic publish, very informative. I'm wondering why the other experts of this
sector do not understand this. You should proceed your writing.
I am confident, you've a great readers' base already!
BHW
پنجشنبه 1396/01/24 03:27 ب.ظ
I'm not sure where you are getting your info, but great topic.
I must spend some time learning more or understanding more.
Thanks for excellent info I was in search of this information for my mission.
BHW
پنجشنبه 1396/01/24 03:04 ق.ظ
For the reason that the admin of this website is working, no uncertainty very soon it will be famous, due to
its quality contents.
manicure
سه شنبه 1396/01/22 03:23 ق.ظ
Hi, I think your website might be having browser compatibility issues.
When I look at your website in Opera, it looks fine but when opening
in Internet Explorer, it has some overlapping.

I just wanted to give you a quick heads up! Other then that,
fantastic blog!
manicure
یکشنبه 1396/01/20 05:33 ب.ظ
It is not my first time to pay a visit this web page,
i am browsing this web page dailly and take fastidious information from here daily.
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر