یه اررور اعصاب خورد کن

[khomar]

کسی می تونه بگه وی بی این اررور خاطر چه چیزی میده؟
either bof or eof the current record has been deleted.
requested operation requires a current record.

امکانش هست به خاطر متفاوت بودن فونت های اکسس و وی بی باشه؟
یه موضوع دیگه این که من وقتی از طریق اکسس فیلد هامو پر می کنم بعد می یام تو وی بی سرچ می کنم اون اطلاعات رو بهم نشون می ده اما وقتی از طریق وی بی فیلدهای اکسس رو پر می کنم و می خوام سرچ کنم این اررور مزخرف سر و کلش پیدا می شه

[Mehdi0016]

منم همین مشکلو داشتم...البته فقط یه فیلد بود که عدد اعشاری داشت.
از آخر درست نفهمیدم مشکل از کجاست ولی آخرش با دستور insertinto توی رکورد جدید نوشتم و همه چیز درست شد .

[khomar]

با دستور insert into مشکلی ندارم عمل درج رو انجام می ده این ارروره تو دستوره search می یاد حالا من چه جوری درستش کنم؟ کسی نمی دونه من چیکار کنم ؟

[khomar]

البته تو دستور update هم اررور می ده در صورتی که هیچ مشکلی دستورم نداره اونم یه اررور مسخره می ده اگه کسی می دونه من باید چیکار باید بکنم لطفا بگه ممنون

[khomar]

یه چیزه دیگه من وقتی debug رو می زنم از این ایراد می گیره مثلا
Text2.Text = rs("id")
--------------------

Text2.Text = rs("id")

[yavari]

سلام

مسلما یه جای کار داره میلنگه ! کدتونو بذارین !!!

آخریه رو اینجوری بنویسید ببینید درست میشه !

Text2.Text = rs.Field("id")

موفق باشید

[khomar]

این کارو کردم درست نشد

[khomar]

اینم کد

Private Sub Command4_Click()

Dim rs As New ADODB.Recordset

Dim cnn As New ADODB.Connection

cnn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=d:\entesharat\entesharat.mdb"

cnn.Open

r = Text1.Text

rs.Open "select * from cd where code_cd='" + r + " '", cnn, adOpenDynamic

Text4.Text = rs("name_cd")

Text3.Text = rs("vertion")

Text2.Text = rs("tarikh")

Text5.Text = rs("tozihat")

DataCombo1.Text = rs.Fields("noe_cd")

Text1.Enabled = False

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text5.Enabled = True

DataCombo1.Enabled = True

cnn.Close

End Sub

 

البته بعضی جاها هم این اررور رو میده
item cannot be found collection corresponding to the
request name or ordinal

Form15.Text1.Text = rs("code") 

اینم کد اررور بالایی

Private Sub Command4_Click()

Dim rs As New ADODB.Recordset

Dim rx As New ADODB.Recordset

Dim rz As New ADODB.Recordset

   Dim cnn As New ADODB.Connection

   cnn.Open "provider=microsoft.jet.oledb.4.0;data source=d:\entesharat\entesharat.mdb"

 

   If Text1.Text <> Empty Then

 r = Text1.Text

   rs.Open "select * from darkhast where code=" + r + "", cnn, adOpenKeyset, adLockPessimistic, adCmdText

   Text3.Enabled = True

   Text4.Enabled = True

   Text5.Enabled = True

   Text6.Enabled = True

        Form15.Text2.Text = rs("code_cd")

         Form15.Text3.Text = rs("family")

         Form15.Text4.Text = rs("name_cd")

         Form15.Text5.Text = rs("tarikh")

         Form15.Text6.Text = rs("saat")

         End If

   If Text2.Text <> Empty Then

    r = Text2.Text

   rx.Open "select * from darkhast where code_cd='" + r + "'", cnn, adOpenKeyset, adLockPessimistic, adCmdText

    Text3.Enabled = True

   Text4.Enabled = True

   Text5.Enabled = True

   Text6.Enabled = True

   

        Form15.Text1.Text = rs("code")

         Form15.Text3.Text = rs("family")

         Form15.Text4.Text = rs("name_cd")

         Form15.Text5.Text = rs("tarikh")

         Form15.Text6.Text = rs("saat")

   End If

    If Text1.Text <> Empty And Text2.Text <> Empty Then

 r = Text1.Text

 x = Text2.Text

   rz.Open "select * from darkhast where code=" + r + " and code_cd='" + x + "'", cnn, adOpenKeyset, adLockPessimistic, adCmdText

   Text3.Enabled = True

   Text4.Enabled = True

   Text5.Enabled = True

   Text6.Enabled = True

        Form15.Text2.Text = rs("code_cd")

         Form15.Text3.Text = rs("family")

         Form15.Text4.Text = rs("name_cd")

         Form15.Text5.Text = rs("tarikh")

         Form15.Text6.Text = rs("saat")

         End If

         cnn.Close

End Sub

 

نکته دیگه اینکه من این فیلد رو در جدولم دارم اما نمی دونم چرا می گه نمی تونه پیدا کنه !!!!
item cannot be found collection corresponding to the
request name or ordinal

و این اررور ها و مشکلات فقط در مورد رشته ها وجود داره و من توی عددها این اررورها رو ندارم و سرچ درست انجام می شه

[Mehdi0016]

برای رشته ها به جای = از LIKE استفاده کنید ، ببینید درست میشه .
در ضمن آیا این خطای اولی برای دیتای وارد شده با برنامه اس یا برای دیتایی که دستی وارد بانک میکنید و یا هر دو ؟

[khomar]

سلام
فرقی نمی کنه دو تا خطا در مورد دیتاهایی هست که از طریق خود وی بی می خوام وارد کنم وارد کردن داده ها به طور دستی به بانک ابرادی نداره در مورد like هم امتحان می کنم ببینم درست می شه یا نه سپاسگزارم .

[Mehdi0016]

دوست عزیز پس مشکل اصلی مربوط به ذخیره اطلاعات توی بانک هست و خطاهای جستجو و ... از تبعات اون هست .
بهتره روی فرم های ورود اطلاعات به بانک کار کنید نه خواندن اطلاعات از بانک
مثلا با روش insert into یا باز و بسته کردن recordset بعد از ورود اطلاعات و ...

[khomar]

یعنی recordset ro رو ببندم یا ممکنه جایی باز کرده باشم بعد نبسته باشم؟
مثلا cnn.close? منظورتون همین دستوره؟

[khomar]

من recordset ها و connection ها رو چک کردم اونجاهایی که باز بود و نبسته بودم رو بستم من هیچ وقت recordset ها رو نمی بندم اما چون شما گفته بودی امتحان کردم اما باز هم اررور ها وجود داره like هم کار ساز نشد علاوه بر این که رشته ها رو نشون نمی داد عددها رو هم سرچ نمی کرد در ضمن من اطلاعاتم رو با همین دستور insert into وارد می کنم

[Hadi-123456]

سلام

چرا در برنامه Recordset ها را ست نکردی . شاید با این کار درست بشه....

مثال set rs=new adodb.recordset