خواهشا کمک کنید

نقل قول:

نوشته شده توسط vblink

دوستان خواهشا جواب بدید
چطور میتوانم اطلاعات 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("Your  ParameterName").AddCurrentValue rs.Fields("YourFieldName").Value ' تغییر YourParameterName و YourFieldName به مقادیر مورد نیاز





' باز کردن گزارش

CrystalReport1.Action = 1





' بستن رکوردست و اتصال ADODC

rs.Close

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