ايران ويج

نسخه‌ی کامل: یه سوال فنی بانک اطلاعاتی فوری
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
من قبلا با
dao
کار می کردم و برای جستجوی یک رکورد خاص از روش
RecordSet.Index = "IndexName"
RecordSet.Seek "=", Valu
If Not RecordSet.NoMatch Then
استفاده می کردم و واقعا سرعت فوق العاده سریعی داره :roll:
ولی جدیدا دارم از ADO استفاده می کنم و کد زیر
ADODC.CommandType = adCmdText
'ADODC.RecordSource = "SELECT Field1,Feild2 FROM TBL WHERE Field1= Ali"
ADODC.Refresh
برای جستجوی یک رکورد ولی این روش خیلی سرعتش پایینه :?
البته تیبل من 50000 تا رکورد داره و فکر می کنم بخاطر دستور Refresh باشه که اینقدر سرعتش پایینه
دوستان اگر این روش دوم من اشکال داره که حتما هم داره چون Ado نمیشه که در مقابل DAO کم بیاره 8)

لطفا راهنمایی کنید. :idea: :idea: :idea:
دوست عزیز من از دستور ات زیر در وی بی استفاده میکنم و تو بانک با 60 70 هزار رکورد هم الان داره کارشو خوب انجام میده

البته حتما استفاده کردی از این دستورات ولی میخوام بگم شاید مشکل چیز دیگه ایه
کد:
Private Sub cmdFind_Click()
  On Error Resume Next
   Dim strLast As String
   Dim vntBookMark As Variant
   'addddddddddddddddddddddddddddddddddddddddddddddddddd
  datFilms.Recordset.MoveFirst
  
   strLast = InputBox("äÇã Ýíáã ãæÑÏäÙÑÑÇ ÈÑÇí ÌÓÊÌæ æÇÑÏßäíÏ: ", "ÌÓÊÌæí Ýíáã")
   txtTempFind = strLast
   If strLast <> "" Then
      vntBookMark = datFilms.Recordset.Bookmark
      datFilms.Recordset.Find "name LIKE '*" & strLast & "*'"
      If datFilms.Recordset.EOF Then
          datFilms.Recordset.Bookmark = vntBookMark
         MsgBox ".Ýíáã ãæÑÏ äÙÑ íÏÇ äÔÏ"
      End If
   End If
cmdFindNext.SetFocus
End Sub