چاپ اطلاعات Recordset

[shsoft]

با سلام

اگر جدولی داشته باشیم که حاصل یک دستور SQL پیچیده و تو در تو باشد و تهیه این جدول
کمی سیستم را مشغول کند. کوتاه ترین راه از نظر زمان ارسال اطلاعات به چاپگر چیست.

توجه داشته باشید که جدول مربوطه یک Recordset است و اطلاعات فوق در حافظه قرار دارد
نه بر روی دیسک با توجه به این مورد آیا می شود یک Recordset را به Crystal Report پاس دارد.
:roll: :?:

در چاپ اطلاعات فوق زمان حرف اول را می زند. :o

[hmm]

به datareport که میشه ولی crystal رو نمیدونم ولی بعید میدونم نشه

[shsoft]

:cry: :cry: :cry:
آقا یکی جواب بده دیگه :roll:

[bbehnam]

بله در کریستال امکانش هست
شما باید از فرمت ado استفاده کنید در این روش لبتدا یک فایل از اون ttf میسازید که در واقع همان رکورد ست میباشد

اگر سورسی در این زمینه نیاز داشتید من میتونم اونو براتون بفرستم

[shsoft]

بابا ایول باز هم یک تازه وارد ...:shock: :shock:

با سلام خدمت دوست عزیزم
از اینکه به این سوال جواب دادین واقا متشکرم
اگه می شه در مورد فایل ttf توضیح بدین . :idea:

[h_rezaei]

منم سوال شما رو خوندم ولی اصلا واضح نبود . SQL,printer,RAM,Crystal reports,ADO,.... :?:
اینا هرکدوم مشکل خاص خودشونو دارند . اگه فکر میکنی دستور SQL ی که نوشتی resource زیادی می گیره میتونی با امکانات SQL server نظیر Stored procedure ها و... کا رو سریعتر کنی .و برای اون مشکا print می تونی به صورت offline با رکوردست برخورد کنی و نتیجه رو توی یه فایل ذخیره کنی و از اون پرینت بگیری (متد save آبجکت recordset)

[shsoft]

با سلام
از اینکه به این سوال جواب دادین متشکرم
تا اینجا که من فهمیدم فکر می کنم بهترین را چاپ یک گزارش ذخیره اون در یک جدول Temp
است. :roll:

[mhanifnjad]

8) اگر درست فهمیده باشم شما نتیجه یک SQL را روی ذرینتر می خواهیى بفرستید لطفاً به کد زیر توجه کنید:
Sub FillDarReport()
Set CRDar1 = New CRDar
Call ConnectSub
Set CmdTemp = New ADODB.Command
Set CmdTemp.ActiveConnection = cn
'---------------------------------------------------------------------------------------------------------------------------------
StrSql = "SELECT *"
StrSql = StrSql + " FROM VIEWTempDarPrint"
'---------------------------------------------------------------------------------------------------------------------------------
CmdTemp.CommandText = StrSql
CmdTemp.CommandType = adCmdText
CRDar1.Database.AddADOCommand cn, CmdTemp
Call DisConnectSub
'---------------------------------------------------------------------------------------------------------------------------------
CRDar1.UnboundNumber1.SetUnboundFieldSource "{ado.SADEREH_NO}"
CRDar1.UnboundNumber2.SetUnboundFieldSource "{ado.SADEREH_YEAR}"
CRDar1.UnboundString2.SetUnboundFieldSource "{ado.SADEREHDATE}"
CRDar1.UnboundString3.SetUnboundFieldSource "{ado.TECH_NAME}"
CRDar1.UnboundNumber3.SetUnboundFieldSource "{ado.ACC_DETAIL}"
CRDar1.UnboundNumber4.SetUnboundFieldSource "{ado.TECH_NO}"
CRDar1.UnboundString4.SetUnboundFieldSource "{ado.vahed_nam}"
CRDar1.UnboundNumber5.SetUnboundFieldSource "{ado.Havale81}"
CRDar1.UnboundNumber6.SetUnboundFieldSource "{ado.KHarid}"
CRDar1.UnboundNumber7.SetUnboundFieldSource "{ado.Moj}"
CRDar1.UnboundNumber8.SetUnboundFieldSource "{ado.WEIGHT}"
CRDar1.UnboundString5.SetUnboundFieldSource "{ado.ForiatName}"
CRDar1.UnboundString6.SetUnboundFieldSource "{ado.EXPNAME}"
CRDar1.UnboundString20.SetUnboundFieldSource "{ado.CommentStr}"
End Sub

اگر نیاز به توضیحات بیشتر دارید با آدرس زیر تماس حاصل کنید :flower:
Mahdi_hanifnjad@yahoo.com