ورود

View Full Version : پرینت اطلاعات از دیتابیس بر اساس خواسته کاربر



saeids
سه شنبه 13 تیر 1391, 22:24 عصر
با سلام و خسته نباشید
دیتابیس من اکسس هستش و میخوام پس از وارد کردن یکی سری اطلاعات مثلا معدل بتونم به کمک data report از بیشترین معدل تا کمترین که sort و پرینت بگیرم و یا بر اساس حروف الفبا و یا بر اساس یکی سری اطلاعاتی که خودم مشخص میکنم؟
ممنون میشم کمکی کنید

MohammadGh2011
سه شنبه 13 تیر 1391, 22:40 عصر
سلام عليکم
شما ميتونيد اطلاعاتتون رو که به ديتاگريد متصل هستش رو بر اساس يک تکست باکس يا کمبوباکس جستجو کنيد بر اساس همون جستجو پرينت بگيريد.
ويا از کدهاي orderby SQL استفاده کنيد.

saeids
سه شنبه 13 تیر 1391, 23:12 عصر
برای مورد اول میتونید که نمونه کمکی کنید مثلا برای بیشترین معدل؟

MohammadGh2011
سه شنبه 13 تیر 1391, 23:18 عصر
سلام
بعد از اضافه کردن فيلدها به ديتابيس وديتاگريد و همچنين متصل کردن بانک به Ado و اضافه کردن يک ديتاريپورت شما ميتونيد با استفاده از کد زير به راحتي معدل رو از بيشترين معدل تا کمترين معدل چاپ بگيريد.

Adodc1.RecordSource = "SELECT * From table1 ORDER BY name DESC"
Adodc1.Refresh
With Form1
Set DataReport1.DataSource = .Adodc1
DataReport1.WindowState = 2
DataReport1.Show
End With



موفق باشيد

saeids
سه شنبه 13 تیر 1391, 23:28 عصر
Adodc1.RecordSource = "SELECT From saeed ORDER BY NCode DESC"
Adodc1.Refresh
With Form1
Set DataReport2.DataSource = .Adodc1
DataReport2.WindowState = 2
DataReport2.Show
End With


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

MohammadGh2011
سه شنبه 13 تیر 1391, 23:36 عصر
سلام عليکم

به صورت بالا استفاده کردم ولی وقتی روی دکمه کلیک میکنم میگه متد و یا دیتا ممبر موجود نیست
مطمئن هستيد که همه ي کنترل ها رو اضافه کرديد؟!
Adodc1.RecordSource = "SELECT * From نام جدولORDER BY نام فيلدDESC"
Adodc1.Refresh
With نام فورم
Set نام ديتاريپورت.DataSource = .نام شي کانشکن
DataReport1.WindowState = 2
DataReport1.Show
End With


اگه بازم مشکلتون حل نشد دقيقا بگيد چي کارا انجام داديد و مراحل کدنويسيتون رو به صورت خلاصه قرار دهيد تا درصورت ممکن کاملتر راهنمايي کنيم.


موفق باشيد

saeids
سه شنبه 13 تیر 1391, 23:41 عصر
Adodc1.RecordSource = "SELECT From saeed ORDER BY NCode DESC"
Adodc1.Refresh
With Form18
Set DataReport2.DataSource = .Adodc1
DataReport2.WindowState = 2
DataReport2.Show
End With


بله درست بود فقط یادم رفته بود اسم فرم رو عوض کنم حالا اون رو عوض کردم ولی برای دستور رفلش خطا میده و وقتی هم اونو پاک میکنم همون صفحه پرینت معمولی میاد

MohammadGh2011
چهارشنبه 14 تیر 1391, 11:17 صبح
میلاد دوازدهمین گل بوستان امامت و ولایت ، امام عصر و الزمان مبارک
*اللهم عجل لولیک الفرج*




سلام عليکم
من پروژه رو آپلود کردم ميتونيد دانلود کنيد:
Download (http://s3.picofile.com/file/7426944294/Sort.rar.html)



موفق باشيد