گزارش گیری پس از جستجو

[Veteran]

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

[farboodj1375]

سلام.


If DataEnvironment1.rsCommand1.state = 1 Then
DataEnvironment1.rsCommand1.Close
End If

DataEnvironment1.rsCommand1.Open "select * from t1"
DataEnvironment1.rsCommand1.Requery
DataReport1.Show
DataReport1.Refresh




به جای Select * from t1 دستور مورد نظر تو میزاری(دستورات اس کیو ال)
این نمونه با با DataReport و DataEnvironment هست و اسم کاماند DataEnvironment هم Command1 هست.

[Veteran]

من از datareport استفاده میکنم
این کدی که گذاشتین کجا استفاده میشه !!
یکم بشتر توضیح بدین

[akbarg64]

خیلی ساده تر هم میشه این کار رو کرد اینجوری
Set DataReport1.DataSource = Adodc1
DataReport1.show 1

[farboodj1375]

سلام.
مگه شما که از DataReport استفاده میکنین,از DataEnvironment استفاده نمیکنین؟؟

[akbarg64]

نیازی به استفاده از DataEnvironment نیست.منکه استفاده نمیکنم.

[Veteran]

اصلا چی هست DataEnvironment
منم که استفاده نمیکنم

[farboodj1375]

سلام.
یک نوع رابط بین بانک و DataReport هست.
به اینصورت که ابتدا بانک رو به DataEnvironment وصل میکنیم و بعد DataReport رو به DataEnvironment متصل میکنیم.

شاید یکم کار اتصال رو راحتتر کنه.

[Veteran]

خیلی ساده تر هم میشه این کار رو کرد اینجوری
Set DataReport1.DataSource = Adodc1
DataReport1.show 1
این کدی که شما گذاشتین همه موارد رو گذارش میگیره اما من فقط همون هایی که پس از جستجو که پیدا کرده رو میخوام گزارش بگیرم

[akbarg64]

این کد ها رو تو باید توی کلید پرینت استفاده کنی.

[Veteran]

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

[akbarg64]

عجب.از من میپرسی کلید پرینت چیه؟؟؟؟؟؟؟؟منظورم همون CommandButton که برای پرینت ازش استفاده میکنی دیگه.

[Veteran]

:لبخند:
خب گرامی من این کارو کردم که بهتون گفتم همه موارد رو گزارش میگیره

[farboodj1375]

بعد استفاده از اون کد(که آقای Akbar64 گفتن) Adodc تون رو فیلتر کنین(همون جستجو) بعد پرینت کنین...بیبینین درست میشه یا نه...

[akbarg64]

مگه شما جستجو رو انجام نمیدین؟؟؟؟؟؟پروژه رو بزار تا ببینم مشکلش چیه.

[Veteran]

نمیتونم سورس بزارم اما جستجو که میکنم بعد میخوام گذارش بگیرم همه موارد رو میگیره

[Veteran]

دوستان help meeeeee
:اشتباه:

[akbarg64]

کد جستجو که استفاده میکنی بزار

[Veteran]

Adodc1.Recordset.Filter = "moshtari='" & Text16 & "'"

[akbarg64]

همه کدی که برای جستجو استفاده میکنی همین بود؟؟؟؟؟؟؟؟از این استفاده کن
If Text1.Text <> "" Then
Adodc1.RecordSource = "select * from table1 where Name like'" + Text1.Text + "%' "
Adodc1.CommandType = adCmdText
Adodc1.Refresh
End If
یا هم از این
If Text2.Text <> "" Then
Adodc1.RecordSource = "Select *from tablo where code='" & Text2.Text & "'"
Adodc1.Refresh
End If