PDA

View Full Version : تکس باکس در دیتا ریپورت



h1and1saman
جمعه 27 اسفند 1389, 20:53 عصر
سلام
میشه اطلاعات داخل تکس باکس رو برد تو دیتا ریپورت-بدون ذخیره یا هرکار دیگه ای
مثلا در تکس باکس 1 یه چی تایپ شه بعد اونو در دیتا ریپورت نشون داد-میشه چنین کاری کرد
----
یه سوال دیگه همینجا می پرسم
آیا میشه در یه صفحه از اتصال به دو جدول(اکسس) استفاده کرد که اونو واسه گزارش بفرستم
توضیح بیشتر:
دوتا تکس باکس داریم با یه دکمه که وقتی روی دکمه کلیک میشه متن داخل تکس باکس 1 در جدول a ذخیره شود و متن داخل تکس باکس 2 در جدول b ذخیره بشه
دیتابیس یکی جدول دوتا

Restlesa
شنبه 28 اسفند 1389, 09:58 صبح
سلام بر دوست عزیز
در مورد سوال اولت باید بهت بگم که اصلاعاتت رو به طور مستقیم نمی تونی به دیتا ریپورت ارسال کنی.ابتدا باید تمامی اطلاعاتت در یک بانک ذخیره کنی و بعد به دیتا ریپورت ارسال کنی
درباره ی سوال دومت هم باید بگم که باید از دو کنترل Adodc استفاده کنی.
برای اتصال به پایگاه داده ات از کد زیر استفاده کن
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase\Data.mdb;"
Adodc1.RecordSource = "SELECT * FROM Table1"
Adodc1.Refresh

Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase\Data.mdb;"
Adodc2.RecordSource = "SELECT * FROM Table2"
Adodc2.Refresh

h1and1saman
یک شنبه 29 اسفند 1389, 14:16 عصر
سلام و ممنون از جوابتون گ
در مورد سوال اول میشه تکس باکس رو روی یه لیبل قرار داد بهد لیبل رو با دستور sections (اگه اشتباه نکنم) فرستاد واسه گزارش
گفتم واسه دوستانی که ممکنه این مشکل براشون پیش بیاد

Restlesa
دوشنبه 01 فروردین 1390, 00:40 صبح
تا حالا خودم امتحان نکردم ولی فکر می کنم شدنی باشه

torshizi
سه شنبه 30 فروردین 1390, 09:45 صبح
با استفاده از نمونه کدهای زیر شدنی است لیبل ها رو در بخشهای دیتا ریپورت تعریف کنید
DataReport1.Sections("Section2").Controls("Label1").Caption = form1.Label1.Caption
DataReport1.Sections("Section2").Controls("Label6").Caption = Combo3.Text
DataReport1.Sections("Section2").Controls("Label7").Caption = Text4.Text
DataReport1.Sections("Section5").Controls("Label18").Caption = a
DataReport1.Sections("Section5").Controls("Label22").Caption = Text3.Text
DataReport1.Show
امیدوارم مشکل حل بشه