اللّهُمَّ کُنْ لِوَلِیِّکَ الْحُجَّةِ بْنِ الْحَسَنِ صَلَواتُکَ عَلَیْهِ وَعَلى آبائِهِ فی هذِهِ السّاعَةِ وَفی کُلِّ ساعَةٍ وَلِیّاً وَحافِظاً وَقائِدا ‏وَناصِراً وَدَلیلاً وَعَیْناً حَتّى تُسْکِنَهُ أَرْضَک َطَوْعاً وَتُمَتِّعَهُ فیها طَویلاً

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


این وب سایت را صفحه خانگی خود کن ! این وب سایت را به لیست علاقه مندی های خود اضافه کنید ! جستجو در تمام رکورد های یک بانک - بوی عطر بهار نارنج
X
تبلیغات
رایتل
پنج‌شنبه 7 شهریور‌ماه سال 1387 ساعت 09:21 ب.ظ
جستجو در تمام رکورد های یک بانک
برای این کار کد زیر را وارد کنید.

 

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

 

del.icio.us  digg  newsvine  furl  Y!  smarking  segnalo
bache tabas 's Search Engine : FunnyLogo.info : Personal Search Engine with many styles Yahoo

 

Web ImagesVideoNewsMapsBooks More»
 
 Advanced Search
 Preferences
 Language Tools


BookMark     Create your own Search Engine Now


FunnyLogo is not affiliated with Google Inc.
Trademarks remain trademarks of their respective companies.
© 2008 FunnyLogo

Sedo - Buy and Sell Domain Names and Websites project info: funnylogo.info Statistics for project funnylogo.info etracker® web controlling instead of log file analysis