اتصال به Data Report

[Juventus FC]

درود بر اساتید

من سابق با بانک اطلاعاتی Access کار میکردم ! الآن دارم با SQL کار میکنم ! میخوام یه سری رکوردی که تو DaraGrid نمایش داده شده با Data Report به چاپ ببرم ! میخوام بدونم روش بر قراری ارتباط با اون موقع که پایگاه داده Access بود با الآن که SQL خیلی فرق میکنه باید کارهایی اضافی انجام بدم یا نه !؟

کدها همیناست دیگه ؟

Adodc1.Recordset.Close

Adodc1.Recordset.Open

Adodc1.Refresh

Adodc1.Recordset.Sort = "code"

Set factor.DataSource = Adodc1

factor.Show

تو Data Report هم تو Section 2 سر تیتر ها رو با Label مینویسیم و تو Section 1 هم با Lable اون Datafield رکورد ها رو مینویسیم ! و هر Lable تو Datafield اون مشخصه شو مینویسیم ! درسته دیگه ؟

چون برای من میگه که "Report Section do not match data source" این پیغام خطا رو میده !

[vbhamed]

سلام
شما فقط بايد ConnectionString رو مطابق بانك اطلاعاتي Sql server تغيير بدين، بقيه برنامه تغيير نداره
فقط اينكه معمولا بايد در جدولتون فيلد كليد اصلي وجود داشته باشه وگرنه ممكنه به مشكل بر بخوريد

[Juventus FC]

کلید اصلی برقراره ! تنها موقع نمایش Data Report این پیغام خطا میاد !

"Report Section do not match data source"

[vbhamed]

سلام
برای دیتا ریپورت باید یک DataEnvironment هم اضافه کنید و اون رو به بانک متصل کنید سپس دیتا ریپورت رو به DataEnvironment ارتباط بدین

[Juventus FC]

سلام
برای دیتا ریپورت باید یک DataEnvironment هم اضافه کنید و اون رو به بانک متصل کنید سپس دیتا ریپورت رو به DataEnvironment ارتباط بدین

خب حالا من DataEnvironment ایجاد کردم متصل کردم به پایگاه داده همینطور Command هم ایجاد کردم و اون Data Report :

1 ) خاصیت DataSource را برابر با DataEnvironment1 .

2 ) خاصیت DataMember را برابر با Command1 .

حالا یه ERROR جدید میده که :

http://www.shiaupload.ir/images/1775...6334454662.jpg

[vbhamed]

سلام
احتمالا دستور sql تون درست نيست يا مشكلي ديگه در ارتباط داريد، در هر صورت بهتره خود پروژه باشه تا بشه بهتر راهنمايي كرد
ضمنا ديتا ريپورت ديگه منسوخ شده است و امكانات خاصي نداره
بهتره به كريستال ريپورت، فست ريپورت يا اكتيو ريپورت فكر كنيد

[Juventus FC]

منظور شما اینکه باید تو خود پایگاه داده SQL هم برای گذارش گیری با پروژه VB باید دستوری نوشته بشه ؟

کریستال ریپورت ، چه جوریه ؟ از Data Report بهتره ؟

[vbhamed]

سلام
كلا بهتره دستور جستجو در كوئري شما در بانك باشه تا با استفاده از امكانات گزارشگر، چون در اون حالت موتور Sql Server مستقيما اينكار رو انجام ميده و خيلي سريعتر نتيجه رو برمي‌گردونه

كريستال اصلا قابل مقايسه با Data Report نيست، Data Report خيلي ساده است، البته من خودم شديدا Fast Report For Com/Activex رو پيشنهاد مي‌كنم كه باز اون با كريستال قابل مقايسه نيست و خيلي امكانات خوبي داره و بسيار سريعه.

[ایلیا آخوندزاده]

سلام آقای vbhamed
آیا میشه تو فست ریپورت از قابلیت جاگذاری بدون استفاده از دیتابیس استفاده کرد؟
مثلا در فرم ها اینگونه دستور جاگذاری ارسال می شد:
Form2_frm.Label1.Caption = Form1_frm.Text5.Text

[vbhamed]

سلام
اين جزء كارهاي ساده اي هست كه فست ريپورت به راحتي انجام ميشه
شما كل بخشهاي گزارش رو هم مي‌تونيد تو كد نويسي تغيير بديد كنيد مثلا قسمتهاي Header, Footer, Details، تعداد صفحات گزارش (گزارشاتي كه طراحي اونها چند صفحه است نه خروجي ! ) و ...

لطفا تاپيك زير را ببينيد
https://barnamenevis.org/showthread.p...85%D9%86%D8%AF

[Juventus FC]

سلام
كلا بهتره دستور جستجو در كوئري شما در بانك باشه تا با استفاده از امكانات گزارشگر، چون در اون حالت موتور Sql Server مستقيما اينكار رو انجام ميده و خيلي سريعتر نتيجه رو برمي‌گردونه

كريستال اصلا قابل مقايسه با Data Report نيست، Data Report خيلي ساده است، البته من خودم شديدا Fast Report For Com/Activex رو پيشنهاد مي‌كنم كه باز اون با كريستال قابل مقايسه نيست و خيلي امكانات خوبي داره و بسيار سريعه.

میفهمم چی میگید اما پروژه من چیزی نیست که ارزش وقت گذاری و طراحی فوق العاده ای داشته باشه ! برای همین من به همین Data Report بسنده میکنم ! منتها این Error که میده واقعا امون من و بریده آخه دلیلش چیه !؟ چه جوری این Error رفع کنم !

[ایلیا آخوندزاده]

میشه متن یا عکس ارور رو بذارید.

[m.4.r.m]

از این کد استفاده کنید و قسمت های دلخواه رو خودتون عوض کنید

On Error Resume Next





   If Adodc1.Recordset.RecordCount > 0 Then

       Set Cnn = New ADODB.Connection

      Cnn.CursorLocation = adUseClient

      Cnn.ConnectionString = Adodc1.ConnectionString

      Cnn.Open

      'Adoview.Close

      sqltxt = "SELECT * From Morakhasi WHERE persenel_id=" & Persenel_id

      Set Adoview = New ADODB.Recordset

      Adoview.Open sqltxt, Cnn, adOpenStatic, adLockPessimistic

      Set Report1.DataSource = Adoview

      Report1.Show 1

      Else

      MsgBox "ÇØáÇÚÇÊí íÇÝÊ äÔÏ", vbExclamation, ""

   End If

[Juventus FC]

ممنون دوست من !

اول اینکه من فکر میکنم تابع Cnn رو باید اول اون بالا تعریف کنیم که حالا خودم تعریف کردم و مشکلی نیست اما در خط 8 پیغام خطا میگیرم برای اون Persenel_id دوم ! من جای این فیلد code دارم که باید قرار بدم و برنامه به این پیغام خطا میده ! Variable not defined ! این پیغام خطا میده !

[ایلیا آخوندزاده]

شما sqltxt روهم تعریف کن

[Juventus FC]

شما sqltxt روهم تعریف کن

از چه نوعی تعریف کنم ؟

[vbhamed]

ممنون دوست من !

اول اینکه من فکر میکنم تابع Cnn رو باید اول اون بالا تعریف کنیم که حالا خودم تعریف کردم و مشکلی نیست اما در خط 8 پیغام خطا میگیرم برای اون Persenel_id دوم ! من جای این فیلد code دارم که باید قرار بدم و برنامه به این پیغام خطا میده ! Variable not defined ! این پیغام خطا میده !

سلام
بله، شيء cnn بايد تعريف بشه به صورت زير، ولي دوستمون نمونه مثال گذاشتن، قطعا همه متغيرها مثل متغير Persenel_id و اشياء مثل Adoview و ... بايد تعريف بشن

Dim cnn As ADODB.Connection

sqlTxt هم از نوع String تعريف كنيد

[Juventus FC]

خب الان در این خط :

sqltxt = "SELECT * From Morakhasi WHERE persenel_id="& Persenel_id

به اون Persenel_id گیر میده ! من جدولم اسمش Table هست که جای Morakhasi نوشتم و جای اون دو تا Morakhasi هم من فیلد Code دارم که نوشتم ولی به اون code دومی که نوشتم گیر میده ! Variable not defined فکر میکنم نیاز به تعریف داره منتها من اون sqlTxt همونطور که گفتید از String تعریف کردم !

[vbhamed]

سلام
يكبار ديگه پست 17 رو بخونيد

[Juventus FC]

سلام
يكبار ديگه پست 17 رو بخونيد

آهان ! آره درست نخوندم.

حالا من همه رو تعریف کردم ! منتها به این خط گیر داده :

SetAdoview = NewADODB.Recordset

و Run Time Error "13" میده !

[m.4.r.m]

بعد از set فاصله دادین ؟
در ضمن از رفرنس ها باید تیک مربوط به Adodb رو انتخاب کنین و به برنامه اضافه کنین . این کار رو هم انجام دادین ؟

[Juventus FC]

بعد از set فاصله دادین ؟
در ضمن از رفرنس ها باید تیک مربوط به Adodb رو انتخاب کنین و به برنامه اضافه کنین . این کار رو هم انجام دادین ؟

Microsoft Adodc دارمش ولی Adodb نه ! هرچی گشتم پیداش نکردم چیه دقیقا اسمش ؟ تو رفرنس ها باید دنبال چه اسمی بگردم چونAdodb خالی نداره !

[vbhamed]

سلام
يك شيء Adodc روي فرم بزاريد و بعد حذفش كنيد، خودش رفرنس رو اضافه مي‌كنه، اما اسم رفرنس هم Microsoft Active Data Object ... Library است

[Juventus FC]

سلام
يك شيء Adodc روي فرم بزاريد و بعد حذفش كنيد، خودش رفرنس رو اضافه مي‌كنه، اما اسم رفرنس هم Microsoft Active Data Object ... Library است

خب اگه اینجوری من یک شی ADODC روی فرم دارم برای برقراری ارتباط بین پایگاه داده SQL و Data Grid .

بعد از set فاصله دادین ؟
در ضمن از رفرنس ها باید تیک مربوط به Adodb رو انتخاب کنین و به برنامه اضافه کنین . این کار رو هم انجام دادین ؟

چه بدون فاصله چه با فاصله برنامه ERROR میده !

با فاصله Run Time Error میده !

بدون فلصله Variable Not Defined میده !

[Juventus FC]

دوستان و اساتید گرامی من ، کسی نسیت بتونه مشکل چاپ گرفتن من با Data Report با پایگاه داده SQL حل بکنه ! من سابق با Access میگرفتم مشکلی نداشت ولی با SQL تا حالا کار نکردم و نمیدونم چرا این Error ها میده 1

[vbhamed]

خب اگه اینجوری من یک شی ADODC روی فرم دارم برای برقراری ارتباط بین پایگاه داده SQL و Data Grid .

چه بدون فاصله چه با فاصله برنامه ERROR میده !
با فاصله Run Time Error میده !
بدون فاصله Variable Not Defined میده !

سلام
نوشتن برنامه قانون داره فاصله ها هم حتما بايد باشن آزمايش خطا كه نيست يكبار بزاريد يكبار نزاريد
درسته اون خط اينطوريه، فاصله هاش هم بايد رعايت بشه چون Set و New كلمات كليدي هستند

Set Adoview = New ADODB.Recordset 

حالا اگر تو اين خط Variable Not Defined بده بعني Adoview تعريف نشده كه بايد به صورت زير تعريف بشه

Dim Adoview As Adodb.Recordset

البته به جاي دو خط بالا مي‌تونيد از كد زير هم استفاده كنيد

Dim rs As New ADODB.Recordset

[Juventus FC]

سلام
نوشتن برنامه قانون داره فاصله ها هم حتما بايد باشن آزمايش خطا كه نيست يكبار بزاريد يكبار نزاريد
درسته اون خط اينطوريه، فاصله هاش هم بايد رعايت بشه چون Set و New كلمات كليدي هستند

Set Adoview = New ADODB.Recordset 

حالا اگر تو اين خط Variable Not Defined بده بعني Adoview تعريف نشده كه بايد به صورت زير تعريف بشه

Dim Adoview As Adodb.Recordset

البته به جاي دو خط بالا مي‌تونيد از كد زير هم استفاده كنيد

Dim rs As New ADODB.Recordset

خب الان از مرحله اون Error ها خارج شد و در مرحله نمایش Data Report این Error میده.

http://www.shiaupload.ir/images/4135...1824628599.jpg

[m.4.r.m]

برنامه رو بفرست . اصلاح کنم

[Juventus FC]

برنامه رو بفرست . اصلاح کنم

بفرما ، منتها من پایگاه داده ام SQL بود این Access چون نقل و انتقال پایگاه داده SQL همچین مشکل و گیر زیاد میده ! حالا شما ببینید همین برنامه خودتون میتونید روی این پیاده سازی بکنید و تفاوت هاش و با SQL برام بگید من تو پروژه اصلی اعمال میکنم.

[m.4.r.m]

این برنامه براتون درست کردم شما کد پرسنل رو تو text2 بنویس بعد Print بزن و جواب رو مشاهده کن.

[Juventus FC]

این برنامه براتون درست کردم شما کد پرسنل رو تو text2 بنویس بعد Print بزن و جواب رو مشاهده کن.

آقا ERROR میده !

http://www.shiaupload.ir/images/8856...5661640755.jpg

بعد برای خروجی چاپ گرفتن از برنامه ای با پایگاه داده SQL این کار ساز هست یا نه ! چون همش به من ERROR های بیخود میده و یک ماه و خورده ای تو این مشکل موندم ! جدا گرفتن خروجی چاپ Data Report از جدول SQL واقعا اینقدر مشکله ؟ ولله من 4 تا خروجی چاپ Data Report میخواهم بگیرم.

[kamalyit]

سلام با کلیک روی دیتا گرید اطلاعات شخص تکست هارو پر می کنه .یه لینک لیبل دارم که آدر س فایل تو اون قرار می گیره .چی کار کنم با کلیک روی اون به آدرس مورد نظر بره . مثلا : D:\new folder\ali

[Juventus FC]

سلام با کلیک روی دیتا گرید اطلاعات شخص تکست هارو پر می کنه .یه لینک لیبل دارم که آدر س فایل تو اون قرار می گیره .چی کار کنم با کلیک روی اون به آدرس مورد نظر بره . (همتونو دوس دارم ) مثلا : D:\new folder\ali

دوست من فکر کنم این عمل شما خلاف قوانین سایت باشه ! شما یک تاپیک جدید باید برای این مشکل ایجاد کنید.