چند تا سوال در مورد پایگاه داده در وی بی دارم. امیدوارم جواب بدید.

س
ل
ا
م

د
و
س
ت
ا
ن
چند تا سوال در مورد پایگاه داده در وی بی دارم. امیدوارم جواب بدید.:40:
-----------------
1. چه طور میتونم با استفاده از متد FindFirst در کنترل Data دو نفر هم نام رو جستجو کنم و سپس نمایش بدم.
مثلا اگر دو تا علی تو رکورد بود اولی رو نشون بده بعد با زدن دوباره دکمه علی بعدی رو نشون بده.


2. وقتی FindFirst هست دیگه چه دلیلی داره مایکروسافت FindLast رو هم بزاره. من برای جستجو, از هر کدوم یه نتیجه گرفتم. چه فرقی دارن این دو؟


3. این برنامه رو ببینید. وقتی یک بار بر روی "جدید" کلیک میکنی و بعد بر روی انصراف و دوباره بر روی جدید کلیک میکنی برنامه یک شماره به TextBox اولی اضافه میکنه (چون اتونامبره). چه طور میشه جلوی این کار رو گرفت. یعنی وقتی انصراف رو زدی برگردی به خونه ی آخر بدون اینکه چیزی تغییر کنه.

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

لطفا جواب بدید.

من Vb رو سیستمم نصب نیست لطفا" سورس کد هاتو بزار.
مشکل از برنامه شما نیست بلکه موتور بانک اطلاعاتی فیلدهای اتونامبر را کنترل میکنه احتمالا" در حافظه وجود داره فکر کنم یه بانکت رو رفرش کنی حل بشه

درباره سوال یک و دو چی؟

کد:

---

Private Sub CmdCancel_Click()
  CmdFirst.Enabled = True
  CmdNext.Enabled = True
  CmdPrev.Enabled = True
  CmdLast.Enabled = True
  CmdNew.Enabled = True
  CmdDel.Enabled = True
  CmdFind.Enabled = True
  CmdSave.Enabled = False
  CmdCancel.Enabled = False
  Data1.Recordset.CancelUpdate
  Text2.SetFocus
End Sub

Private Sub CmdDel_Click()
  If Data1.Recordset.RecordCount > 0 Then
    If MsgBox("Are u Sure", vbYesNo + vbQuestion, "Delete") = vbYes Then
      Data1.Recordset.Delete
      Data1.Refresh
    Else
      Text2.SetFocus
    End If
  Else
  MsgBox "No Record to Delete", vbCritical, "Delete"
  CmdNew.SetFocus
  End If
End Sub

Private Sub CmdFind_Click()
  If Trim(Text4) = "" Then
    MsgBox "Fill the Textbox", vbExclamation, "Search"
    Text4.SetFocus
    Exit Sub
  End If
  Data1.Recordset.FindFirst ("Name='" & Trim(Text4) & "'")
  If Data1.Recordset.NoMatch Then
    MsgBox "Not Found", vbCritical, "Search"
    Text4.SetFocus
  End If
End Sub

Private Sub CmdNew_Click()
  CmdFirst.Enabled = False
  CmdNext.Enabled = False
  CmdPrev.Enabled = False
  CmdLast.Enabled = False
  CmdNew.Enabled = False
  CmdDel.Enabled = False
  CmdFind.Enabled = False
  CmdSave.Enabled = True
  CmdCancel.Enabled = True
  Data1.Recordset.AddNew
  Text2.SetFocus
End Sub

Private Sub CmdSave_Click()
  If Trim(Text2) = "" Or Trim(Text3) = "" Then
    MsgBox "Please Enter Name And Family", vbExclamation, "Save"
    Text2.SetFocus
    Exit Sub
  End If
  CmdFirst.Enabled = True
  CmdNext.Enabled = True
  CmdPrev.Enabled = True
  CmdLast.Enabled = True
  CmdNew.Enabled = True
  CmdDel.Enabled = True
  CmdFind.Enabled = True
  CmdSave.Enabled = False
  CmdCancel.Enabled = True
  Data1.Recordset.Update
  Text2.SetFocus
End Sub

Private Sub Form_Load()
  Data1.DatabaseName = App.Path & "\db.mdb"
  Data1.RecordSource = "Simple"
  Data1.Refresh
  Text1.DataField = "ID"
  Text2.DataField = "Name"
  Text3.DataField = "Family"
End Sub

---

این سوال شما به پروژه من شاید مربوط بشه !
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

شاد بتونید کمک کنید !

شاد بتونید کمک کنید ! و یا کمک بیشن !!

1. خب براي بار دوم كه سرچ مي كني از متد findnext استفاده كن
2. نه اينا با هم فرق دارن. Findfirst اولين ركوردي كه شرط جستجوي شما رو داشته باشه رو نمايش ميده ولي Findlast آخرين ركوردي كه شرط جستجوي شما رو داشته باشه رو نمايش ميده. اينكه ميگي جواب يكسان گرفتي به خاطر اينه كه حتما فقط يك ركورد با شرط جستجو داشتي
3. اينو نمي توني كاري كني چون وقتي Addnew مي كني برنامه تو ديتابيس يه ركورد اضافه مي كنه و مقدار AutoNumber هم يكي اضافه مي كنه و وقتي CancelUpdate ميزني اون ركورد رو حذف مي كنه ولي اكسس مقدار AutoNumber رو نگه ميداره. يعني آخرين مقدار رو نگه مي داره و بعدش يكي بهش اضافه مي كنه. واسه درست كردن اين كار از وي بي كه نمي توني استفاده كني ولي شايد اكسس براي جلوگيري از اين كار تنظيماتي داشته باشه كه من بلد نيستم. ولي به نظر من خودت AutoNumber رو بسازي بهتره

آقایون محترم. کدی ندارید که مشکل من در هر سه مورد رو بر طرف کنه.

سورس ندارید برای هر سه موضوع. الاحتیاج من الاحتیاج