خواهشا کمک کنید [بایگانی]

bitasoft.ir

دوشنبه 20 شهریور 1402, 01:47 صبح

دوستان خواهشا جواب بدید
چطور میتوانم اطلاعات adodc که تونستم با دستور select یک ردیف اون انتخاب کنم و بفرستم به کریستال ریپورت
یعنی اطلاعات همان ردیف دیتا گرید رو بدم فقط به کریستال
برای ارسال اطلاعات از یک ردیف انتخاب شده از یک ADODC به یک گزارش Crystal Reports در VB6، می‌توانید از مراحل زیر پیروی کنید:
ابتدا، مطمئن شوید که شما از ADODC برای اتصال به پایگاه داده خود و انتخاب داده‌های مورد نیاز استفاده کرده‌اید.
یک گزارش Crystal Reports در پروژه خود ایجاد کنید و آن را با فیلدهای مورد نیاز خود در پایگاه داده تنظیم کنید.
در فرم یا محیطی که قصد دارید اطلاعات را به گزارش Crystal ارسال کنید، از کد زیر برای انتقال اطلاعات استفاده کنید:

' تعریف یک متغیر برای نگهداری کانکشن ADODC
Dim cnn As ADODB.Connection
Set cnn = Adodc1.Connection ' Adodc1 باید نام ADODC شما باشد

' تعریف دستور SQL بر اساس معیار مورد نظر شما
Dim strSQL As String
strSQL = "SELECT * FROM YourTable WHERE YourCriteria" ' تغییر YourTable و YourCriteria به مقادیر مورد نیاز

' تعریف یک دیتا ریکوردست
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

' اجرای دستور SQL
rs.Open strSQL, cnn

' انتقال داده‌های ردیف فعلی به گزارش Crystal
CrystalReport1.ParameterFields.GetItemByName("YourParameterName").AddCurrentValue rs.Fields("YourFieldName").Value ' تغییر YourParameterName و YourFieldName به مقادیر مورد نیاز

' باز کردن گزارش
CrystalReport1.Action = 1

' بستن رکوردست و اتصال ADODC
rs.Close
Set rs = Nothing
در این کد، شما باید YourTable را با نام جدول مورد نظر و YourCriteria با شرط مورد نیاز خود جایگزین کنید. همچنین، YourParameterName را با نام پارامتر گزارش و YourFieldName را با نام فیلد مورد نظر از جدول جایگزین کنید. در پروژه‌ی‌تان، می‌توانید یک کلید یا رویداد (مثلاً کلیک بر روی یک دکمه) ایجاد کنید و کد بالا را در این رویداد قرار دهید تا اطلاعات انتخاب شده از ADODC به گزارش Crystal انتقال یابد و گزارش نمایش داده شود. این کد به شما این امکان را می‌دهد که اطلاعات از ADODC را به صورت پارامترها به گزارش Crystal انتقال دهید و گزارش با اطلاعات مورد نظر شما پر شود.