PDA

View Full Version : سوال: مشکل با کد گزارش گیری(stimulreport)



fdaliry
پنج شنبه 03 تیر 1389, 12:53 عصر
سلام
من کد زیر را برای گزارش گیری پویا نوشتم
اما با اجرای اون صفحه خالی Stimulsoft نمایش داده میشه
ممنون میشم ایرادشا بگید
البته معذرت میخام اینجا مطرح کردم
چون تو بخش خود نرم افزار مطرح کردم نتیجه نگرفتم



DataSet Data = new DataSet();
d = "select * from risiver";
adap = new OleDbDataAdapter(d, con);
adap.Fill(Data, "risiver");
stiReport1.RegData(Data);
stiReport1.Show();

bashiry
جمعه 04 تیر 1389, 11:35 صبح
من خودم اول با کوئری که میخوام یدونه datatable می سازم بعد پاسش میدم به گزارش. البته توی گزارش هم dataTable مشابه با همون فیلدها ساختم

نمونه کد:


Dim StiReport1 As New Stimulsoft.Report.StiReport()
StiReport1.Load(Application.StartupPath & "/Reports/Rep1.mrt")
dt = SQLTools.RunSQL("select * from tblMain", Me.CString)



در اینجا منظور از Me.CString همون کانکشن استرینگی هست که به دیتابیس وصل میشید.

در آخرین مرحله دیتاتیبل رو وصل می کنیم به گزارش



StiReport1.Dictionary.DataSources.Items(0).DataTab le = dt
StiReport1.RegData("DataSource1", dt)


و در نهایت تابعی که کوئری رو میگیره و دیتاتیبل میده:



Public Shared Function RunSQL(ByVal sql As String, ByVal cnnStr As String) As DataTable
Dim selectConnection As New SqlConnection(cnnStr)
Using connection2 As SqlConnection = selectConnection
Dim adapter As New SqlDataAdapter(sql, selectConnection)
If (Not adapter.SelectCommand Is Nothing) Then
adapter.SelectCommand.CommandTimeout = selectConnection.ConnectionTimeout
End If
Dim dataTable As New DataTable
Try
selectConnection.Open()
adapter.Fill(dataTable)
Catch exception As Exception
MessageBox.Show(exception.Message, "خطاي ارتباط با پايگاه داده", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
End Try
selectConnection.Close()
Return dataTable
End Using
End Function

fdaliry
یک شنبه 06 تیر 1389, 01:45 صبح
منونم دوست عزیز
این آخرین کد منه که نتونستم جواب بگیرم:گیج:
اگه مقدور بود کمکم کنید



DataSet Data = newDataSet();
d = "select * from hack WHERE safahat='20000'";
adap = newOleDbDataAdapter(d,con);

DataTable dt = newDataTable();
adap.Fill(dt);
StiReport ss = newStiReport();

ss.RegData("Data", dt);

ss.Dictionary.DataSources.Items[0].DataTable = dt;

ss.Show();

mahboube
چهارشنبه 20 بهمن 1389, 14:12 عصر
منم همين مشكلو دارم.ايرادش چيه كه گزارش رو خالي نشون ميده؟؟

hossin.esm
چهارشنبه 20 بهمن 1389, 16:24 عصر
stiReport1.RegData(this.DataSet);
stiReport1.Compile();
stiReport1.Render(false);
stiViewerControl1.SetZoom(100);
stiViewerControl1.Localize();
stiViewerControl1.Refresh();