PDA

View Full Version : vb & crystal report



powerboy2988
دوشنبه 28 آبان 1386, 21:38 عصر
سلام
می خواستم بدونم تو ویژال بیسیک چطور می تونم با استفاده از دستورات Sql ، گزارش گیریمو فیلتر کنم. مثلا تو form_load یه اسمی رو بگیره و بر اساس اون اسم گزارش بده

powerboy2988
سه شنبه 29 آبان 1386, 12:37 عصر
سوالمو بد گفتم؟؟

mpmsoft
سه شنبه 29 آبان 1386, 12:56 عصر
دوست عزیز شما اول بگید چقدر با بانک اطلاعاتی آشنا هیتید

می تونی با Crystal گزارش بسازی
اینو بگو تا بتونم بهتر راهنماییت بکنم

powerboy2988
سه شنبه 29 آبان 1386, 14:28 عصر
اگه آشنا نبودم که یه سوال دیگه می کردم عزیز،!!!!!!!

احمد فخرالدین
سه شنبه 29 آبان 1386, 16:19 عصر
سلام
من یک بانک اطلاعاتی تحت اکسس نوشته ام که دارای دوجدول است واین دوجدول از طریق یک فیلد مشترک باهم ارتباط برقرار میکنند حال میخواهم یک فیل از این جدول رابایک فیلد از جدول دیکر ضرب کنم ام نمیدانم چگونه - آیا باید اینکار رااز طریق یک کوئری انجام دهم اکر پاسخ مثبت است لطفا بگوئید چگونه

powerboy2988
سه شنبه 29 آبان 1386, 19:05 عصر
سلام
من یک بانک اطلاعاتی تحت اکسس نوشته ام که دارای دوجدول است واین دوجدول از طریق یک فیلد مشترک باهم ارتباط برقرار میکنند حال میخواهم یک فیل از این جدول رابایک فیلد از جدول دیکر ضرب کنم ام نمیدانم چگونه - آیا باید اینکار رااز طریق یک کوئری انجام دهم اکر پاسخ مثبت است لطفا بگوئید چگونه

سوالتو باید اینجا بپرسی؟؟؟

powerboy2988
پنج شنبه 01 آذر 1386, 18:32 عصر
کسی نمی دونه؟

بهروز گرجی
پنج شنبه 01 آذر 1386, 21:00 عصر
دوست عزیز
ابتدا یک module تعریف کن و در آن یک متغیر به صورت زیر تعریف کن:
Public strSQL as string

سپس یک text box روی فرم main قرار بده ( مثلا با نامFirstName ) و در رویداد change آن کد زیر را بنویس:
strSQL="{Table1.Fild1} LIKE '*" & FirstName & "*'"

( Table1 نام جدول شما در db است و Fild1 نام فیلدی است که میخواهید فیلتر شود.)


حالا در فرم پرینت (همان فرمی که موقع اضافه کردن crystal report ایجاد میگردد) این کد را بنویس:

Report1.RecordSelectionFormula = strSQL

موفق باشید.

بهروز گرجی
پنج شنبه 01 آذر 1386, 21:03 عصر
strSQL="{Table1.Fild1} LIKE '*" & FirstName & "*'"

بهروز گرجی
پنج شنبه 01 آذر 1386, 21:04 عصر
strSQL="{Table1.Fild1} LIKE '*" & FirstName & "*'"

بهروز گرجی
پنج شنبه 01 آذر 1386, 21:06 عصر
strSQL="{Table1.Fild1} LIKE '*" & FirstName & "*'"

بهروز گرجی
پنج شنبه 01 آذر 1386, 21:09 عصر
اگه خواستی بگو یه نمونه برنامه برات بذارم

powerboy2988
جمعه 02 آذر 1386, 14:55 عصر
ممنون آقا بهروز، من کد شما رو استفاده کردم هیچ Error نداد ولی کارم نکرد.
نمونه برنامتو می ذاری؟؟؟

بهروز گرجی
جمعه 02 آذر 1386, 17:34 عصر
دوست عزیز
این هم نمونه کدی که قول داده بودم. فقط ابتدا آن را در درایو c کپی کن بعد اجرا کن.
موفق باشید.

powerboy2988
جمعه 02 آذر 1386, 21:20 عصر
ممنون آقا جواب داد
ولی کار با این کریستال ریپورت خیلی سخته
اصلا باهاش حال نکردم

بهروز گرجی
شنبه 03 آذر 1386, 00:46 صبح
سختی هر چیزی با تلاش آسان می گردد.

powerboy2988
شنبه 03 آذر 1386, 10:54 صبح
راستی یه سوال؟
در مورد interface برنامه هام چی کار کنم.
همیشه بدترین inteface برای form درست می کنم

powerboy2988
یک شنبه 04 آذر 1386, 17:03 عصر
نگفتی در مورد interface برنامه هام چه کنم/؟؟
چون دارم برنامه ERP می نویسم

bg_asa2000
دوشنبه 05 آذر 1386, 15:13 عصر
ببخشید
interface چیه ؟

powerboy2988
دوشنبه 05 آذر 1386, 18:57 عصر
منظور از interface همون form از برنامه هستش که توش button, textbox, و در کل اشیای رو قرار می دی ه