کمک برای جستجوی vb در بانک access

سلام.

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

متن داخل یک combo رو که توسط کاربر انتخاب میشه داخل یه متغیر رشته ای با نام strsearch میریزه. حالا این رشته در واقع میشه نام فیلدی که باید جستجو در اون انجام بگیره. پس داده ها بر اساس این فیلد مرتب میکنه.
و یک متن از textbox میگیره و میندازه توی رشته ای با نام searched

بنا بر این حالا باید searched رو در فیلدی با نام strsearch جستجو کنه.

یه adodc1 هم هست که به درستی ارتباط داده شده.

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

کد:

---

Adodc1.Recordset.Find ("'strsearch =' 'searched'")

---

روش درست استفاده از جستجتو بصورت زیر هست :

کد:

---

Adodc1.Recordset.Find "strsearch ='" & searched & "'"

---

ببینید جواب میده !

سلام. اومدم بگم مشکلم حل شد دیدم دوست عزیز بالایی هم جواب داده
دستت درد نکنه

در حال حاضر اینجوری نوشتم:

کد:

---

      Dim a As Variant
      Dim b As Variant
      b = txtsearch.Text
      a = strsearch + "=" + b
      Adodc1.Recordset.Find a

---

سلام

Cbosearch یک combo هست

کد:

---

Private Sub btnsearch_Click()
Dim s As Variant
If Cbosearch.Text = "انتخاب کنيد" Then
MsgBox "لطفا مشخصه اي که ميخواهيد در آن جستجو کنيد را انتخاب کنيد", vbOKOnly, "هشدار"
Else:
If Cbosearch.Text = "شماره اشتراک" Then s = "id"
If Cbosearch.Text = "نام خانوادگي" Then s = "lname"
If Cbosearch.Text = "نام" Then s = "fname"
If Cbosearch.Text = "تلفن منزل" Then s = "htell"
If Cbosearch.Text = "تلفن موبايل" Then s = "mtell"
If Cbosearch.Text = "تاريخ ايجاد اشتراک" Then s = "joindate"
If Cbosearch.Text = "کد پستي" Then s = "postalcode"
Adodcc.Recordset.Sort = s
s = s + " = " + txtsearch.Text
Adodcc.Recordset.Find s
End If
End Sub

---

چرا این error میده؟؟

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


اشاره داره به خط :
Adodcc.Recordset.Find s


مشکل از کجاست که برای جستجوی شماره اشتراک و تاریخ ایجاد اشتراک هیچ ایرادی نمیگیره ولی برای بقیه میگیره؟

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

=============================

ویرایش:

مشکلم حل شد
راه حل: خط زیر
s = s + " = " + txtsearch.Text
رو تبدیل کردم به

کد:

---

s = s + "='" + txtsearch.Text + "'"

---

سلامی دوباره


یه سوال دیگه :

چطوری از دستور adodc.recordset.filter استفاده کنیم؟؟

اگه میشه پارامتر و آیتم های اونو برام بگید.


================
یه سوال دیگه... ( این زیاد مهم نیست)

مثلا من میخوام یه فرم رو پرینت بگیرم
از دستور form1.printform که استفاده میکنم پرینت میگیره. من میخوام با زدن پرینت تنظیمات پرینتر بیاد که مثلا نوع پرینتر و اندازه کاغذ و افقی و عموده بودن و .... رو مشخص کنم.

نقل قول:

---

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

سلامی دوباره


یه سوال دیگه :

چطوری از دستور adodc.recordset.filter استفاده کنیم؟؟

اگه میشه پارامتر و آیتم های اونو برام بگید.

---

یه مثال برای Filter که فکر کنم کاملا متوجه بشید :

کد:

---

Adodc1.Recordset.Filter = "Mark>10"

---

با این کد فقط رکوردهایی که نمرشون( همون Mark ) بیشتر از 10 هست رو نشون میده ...

برای اینکه دستور رو تغییر بدید کافیه مقدار داخل کوتیشن ( "" ) رو تغییر بدید !

* Adodc1 که در کد میبینید همان مقدار Name ابزار Adodc است !
---

سوال دومتون رو نمیدونم ...

Sry !

ویرایش
مشکلم حل شد

باسلام من یه برنامه نوشتم که نام و نام خانوادگی کدملی و ... غیره روی یک پایگاه داده میکنه یک فرم هم واسته جستو جو طراحی کردم اما من برنامه نویسی رو تازه شروع کردم و در رابطه با جستوجو کردن در ویژوال بیسیک سررشته ای ندارم حالا میخواستم طریقه جستو جو رو واسم بگین ممنون میشم مثلا جستوجویی میخوام که بر اساس کد ملی یا نام و نام خانوادگی باشه مثلا اگه براساس نام باشه مثلا اگه 5 تا اسم علی بود هر 5 اسم رو نشون بده اگه توضیح کامل بدین ممنون میشم
اگه لطف کنین جستوجو بر اساس کد ملی رو بنویسین ممنون میشم و میخوام اگه کد ملی فرد وجود داشت اطلاعات اون فرد رو نشون بده ؟

پیشاپیش ازتون ممنونم

نقل قول:

---

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

باسلام من یه برنامه نوشتم که نام و نام خانوادگی کدملی و ... غیره روی یک پایگاه داده میکنه یک فرم هم واسته جستو جو طراحی کردم اما من برنامه نویسی رو تازه شروع کردم و در رابطه با جستوجو کردن در ویژوال بیسیک سررشته ای ندارم حالا میخواستم طریقه جستو جو رو واسم بگین ممنون میشم مثلا جستوجویی میخوام که بر اساس کد ملی یا نام و نام خانوادگی باشه مثلا اگه براساس نام باشه مثلا اگه 5 تا اسم علی بود هر 5 اسم رو نشون بده اگه توضیح کامل بدین ممنون میشم
اگه لطف کنین جستوجو بر اساس کد ملی رو بنویسین ممنون میشم و میخوام اگه کد ملی فرد وجود داشت اطلاعات اون فرد رو نشون بده ؟

پیشاپیش ازتون ممنونم

---

نمونه ای از کاری که شما میخواین. فقط به جای داده های من داده های خودتونو قرار بدین.

کد:

---

Private Sub Search_Click()
Dim qw As String

Set db = OpenDatabase("آدرس محل قرار گیری بانک اطلاعاتی")
Set rs = db.OpenRecordset("table1", dbOpenDynaset)
qw = InputBox("نام")

qw = "Name='" + qw + "'"
rs.FindFirst qw

If rs.NoMatch Then
'Beep
Call MsgBox("No Match")
Else
Call print2(rs)
End If
db.Close
End Sub

---

کد:

---

Private Sub print2(rs)
Form4.Show
Form4.Text1.Text = rs("Name")
Form4.Text2.Text = rs("Famili")
Form4.Text3.Text = rs("Mobile")
Form4.Text4.Text = rs("Manzel")
Form4.Text5.Text = rs("Adress")
Form4.Text6.Text = rs("radif")
'Check3 = rs("check3")
'Check4 = rs("check4")
'Check1 = rs("check1")
'Check2 = rs("check2")
End Sub

---

نتایج رو تو یه فرم جدا نمایش میده ( Form4)
توضیحی میخواستین بگین

سلام از کمک تون ممنون اگه کامل تر توضیح بدین ممنون میشم من از این کدهایی که نوشتین چیز زیادی متوجه نشدم آخه تازه برنامه نویسی رو شروع کردم و از همین اول هم دارم این برنامه رو مینویسم و میخوام کامل کشنم میخوام در مورد برنامه کامل توضیح بدم تا منظورم رو کامل بدونید
برنامه من 2 قسمت داره
قسمت اول ثبت اطلاعات در پایگاه داده ها که با این مشکلی ندارم
قسمت دوم جستو که شدیدا مشکل دارم باهاش !!!!!
در قسمت اول من یعنی ثبت در پایگاه این فیلد ها رو دارم
نام . نام خانوادگی .نام پدر . کدملی . شماره شناسه .عنوان دوره .تاریخ شرکت در دوره .
حالا میخوام مثلا جستو بر اساس کد ملی افراد یا شماره شناسه باشه
حالا میخوام بدونم مثلا باید دکمه جی بذارم ممنون میشم اگه یه راهنمایی کامل کنید چون هرچی تو اینترنت هم گشتم هیچ توضیح کامل و مفیدی نیود
اگه راهنمایی کنید ممنون میشم