toopak
پنج شنبه 31 مرداد 1387, 02:35 صبح
خسته نباشید
این کد منه
Imports System.Data
Imports System.Data.OleDb
Imports System.IO.Directory
Public Class frmacclist
Private Function fncGetData() As DataSet
Dim strconn As String = "provider=microsoft.jet.OLEDB.4.0;data source=" & Application.StartupPath & "\taxi.mdb;"
Dim sqlConnection1 As New OleDbConnection(strConn)
Dim dstData As New taxiDataSet
Dim strQuery As String = "Select * From tbaccounts"
Dim strQuerysetting As String = "Select * From setting"
Dim sqlDataAdapter1 As OleDbDataAdapter
sqlDataAdapter1 = New OleDbDataAdapter(strQuery, sqlConnection1)
sqlDataAdapter1.Fill(dstData, "tbaccounts")
sqlDataAdapter1 = New OleDbDataAdapter(strQuerysetting, sqlConnection1)
sqlDataAdapter1.Fill(dstData, "setting")
Return dstData
End Function
Private Sub frmacclist_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strReportPath As String = GetCurrentDirectory()
If strReportPath.Substring(strReportPath.Length - 9) = "bin\Debug" Then
strReportPath = strReportPath.Substring(0, strReportPath.Length - 10)
End If
strReportPath &= "\rpacclist.rpt"
Dim rptEmployee As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
rptEmployee.Load(strReportPath)
Dim ds As DataSet = fncGetData()
rptEmployee.SetDataSource(ds)
CrystalReportViewer1.ReportSource = rptEmployee
End Sub
End Class
من هر کدوم از روش های ارسال پرامتر رو که بگید امتحان کردم
ولی هیچ کدوم جواب نمیده
یه راه حل بگید بی زحمت
برای تست مثلا متن text توی یه فیلد تو گزارش نمایش داده بشه:ناراحت:
:افسرده:ممنون میشم
این کد منه
Imports System.Data
Imports System.Data.OleDb
Imports System.IO.Directory
Public Class frmacclist
Private Function fncGetData() As DataSet
Dim strconn As String = "provider=microsoft.jet.OLEDB.4.0;data source=" & Application.StartupPath & "\taxi.mdb;"
Dim sqlConnection1 As New OleDbConnection(strConn)
Dim dstData As New taxiDataSet
Dim strQuery As String = "Select * From tbaccounts"
Dim strQuerysetting As String = "Select * From setting"
Dim sqlDataAdapter1 As OleDbDataAdapter
sqlDataAdapter1 = New OleDbDataAdapter(strQuery, sqlConnection1)
sqlDataAdapter1.Fill(dstData, "tbaccounts")
sqlDataAdapter1 = New OleDbDataAdapter(strQuerysetting, sqlConnection1)
sqlDataAdapter1.Fill(dstData, "setting")
Return dstData
End Function
Private Sub frmacclist_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strReportPath As String = GetCurrentDirectory()
If strReportPath.Substring(strReportPath.Length - 9) = "bin\Debug" Then
strReportPath = strReportPath.Substring(0, strReportPath.Length - 10)
End If
strReportPath &= "\rpacclist.rpt"
Dim rptEmployee As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
rptEmployee.Load(strReportPath)
Dim ds As DataSet = fncGetData()
rptEmployee.SetDataSource(ds)
CrystalReportViewer1.ReportSource = rptEmployee
End Sub
End Class
من هر کدوم از روش های ارسال پرامتر رو که بگید امتحان کردم
ولی هیچ کدوم جواب نمیده
یه راه حل بگید بی زحمت
برای تست مثلا متن text توی یه فیلد تو گزارش نمایش داده بشه:ناراحت:
:افسرده:ممنون میشم