findfirst

[mohammad__d]

به نام خدا

در فایل پیوست کار جستجو با کد به درستی انجام میشود ولیکن با نام خیر. لطفا راهنمایی(اصلاح ) نمایید.
(جستجو برای نام را در مورد رکوردهاپی که محتوی فیلد نام انها فارسی می باسد هم امتحان کنید.
با تشکر . :flower:

[Behrouz_Rad]

سلام.
1) دوست عزیز، دوران استفاده از DAO به سر رسیده. سعی کنید برنامه های مربوط به DataBase را با استفاده از ADO بنویسید.
2) در زمانی که از فیلدهایی با مقادیر عددی استفاده می کنید نیازی به استفاده از علامت (‘) ندارید. به همین دلیل است که برنامه شما برای مقادیر عددی به خوبی پاسخ می دهد.


MyRecordset.FindFirst “MyNumericField=22”

اما برای مقادیر رشته ای باید مقدار مورد نظر را در بین دو کاراکتر (‘) قرار دهید.


MyRecordset.FindFirst “MyStringField=’Ali’”

موفق باشید.
بهروز راد
:wise1:

[mohammad__d]

بسمه تعالی
لطفا به صورت کامل مطابق برنامه کد رابنویسید

[Behrouz_Rad]

لطفا به صورت کامل مطابق برنامه کد رابنویسید
قربان امر دیگه ای ندارید.
اینجا واسه راهنمایی هستش عزیزم نه پروژه نویسی.
:sunglass:

[Payam Moradi]

سلام

فقط دو اشکال در خطوط 1 و 2 بود که اصلاح شد. طبق فرمایش آقای راد.
من همونطور که بود کپی کردم اینجا دست به چیز دیگه ای نزدم. فقط چون مشکل یونیکد بود به جای "عبارات فارسی" نوشتم MsgBox "No record".


Private Sub Command1_Click()
Dim Db As Database, tablevar As Recordset
Set Db = OpenDatabase("db1.mdb")
Set tablevar = Db.OpenRecordset("table1", dbOpenDynaset)

Dim code_var As String
1: code_var = "code=" + Val(Text1)

tablevar.FindFirst code_var
If tablevar.NoMatch Then
MsgBox "No record"
Else
Text2 = tablevar("nevisandeh")

End If


tablevar.Close
Db.Close


End Sub



Private Sub Command4_Click()
Dim Db As Database, tablevar As Recordset
Set Db = OpenDatabase("db1.mdb")
Set tablevar = Db.OpenRecordset("table1", dbOpenDynaset)

Dim name1_var As String
2: name1_var = "name1='" + Text3 + "'"

tablevar.FindFirst name1_var
If tablevar.NoMatch Then
MsgBox "No record"
Else
Text2 = tablevar("nevisandeh")

End If


tablevar.Close
Db.Close

End Sub

البته شما 1: و 2: رو بردار.

برو دنبال ADO یا همون MDAC

موفق باشی. :flower:

[Behrouz_Rad]

مرسی پیام جان.
:)

[mohammad__d]

به نام خدا
مشکل حل شد با تشکر از همه .
جناب اقای راد ما نخواستیم برای ما پروژه بنویسی خواستیم عیب دستور را بگوپی
مانند اقای مرادی کافی بود فقط یک خط دستور را اصلاح می کردی وچه خوب است اصلاحات همیشه پارامتریک باشد .
ضمنا با تشکر از راهنمایی شما با adodc اشنا هستم.
:flower: :موفق: :flower:

[Behrouz_Rad]

سلام.
حالا بیا و خوبی کن.
من وقتی به شما میگم فقط یه دونه علامت (') کم داره دیگه چه لزومی داره بیام همه برنامه ی شما رو اینجا کپی کنم؟؟؟؟؟؟؟؟


ضمنا با تشکر از راهنمایی شما با adodc اشنا هستم.
منظور من ADO هست جناب (Activex Data Object) نه ADODC.
با تشکر.
بهروز راد
:wise1: