ارسال پارامتر به گزارش از طریق فرم

[Ali_Fallah]

می خوام نمایش اطلاعات درون گزارشم بر اساس پارامتر ارسالی روی فرم باشه
فرض کنید در یک فرمی 3 تا تکست باکس داریم به عنوان 1- از تاریخ: - 2- تا تاریخ: و 3- نام :
حالا نمایش اطلاعات گزارش براساس تاریخ دهی و نام همین 3تکست باکس باشه ( با کلیک بر روی دکمه)

[behrooz69]

من کدشو تو تاپیک قبلیت فرستادم دوست من. پیدا نکردی بگو دوباره بفرستم واست

[behrooz69]

بیا داداش دقیقا اون چیزیه که می خوای تست کن جایگذاری و تغییراتشو انجام بده نتوسی و نفهمیدی بگو توضیح بدم اوکی ؟؟

If TxtSearchByNameMoshtari.Text = String.Empty Then
MsgBox("لطفا نام مشتری را مشخص كنيد", vbExclamation + vbOKOnly, "پيام")
TxtSearchByNameMoshtari.Focus()
Exit Sub
ElseIf TxtAzTarikh.Text = String.Empty Then
MsgBox("لطفا قسمت از تاریخ را مشخص كنيد", vbExclamation + vbOKOnly, "پيام")
TxtAzTarikh.Focus()
Exit Sub
ElseIf TxtTaTarikh.Text = String.Empty Then
MsgBox("لطفا قسمت تا تاریخ را مشخص كنيد", vbExclamation + vbOKOnly, "پيام")
TxtTaTarikh.Focus()
Exit Sub
End If

'// chap gozaresh bar asas name moshtari dar vorod kala = filter by name moshtari o tarikh az ... ta in ... \\
Dim rpt As New CReportInsert
Dim myconnection As SqlConnection
Dim mycommand As New SqlCommand
Dim myda As New SqlDataAdapter
Dim myds As New SardkhoneDataSet
Try
myconnection = New SqlConnection(My.Settings.conn)
mycommand.Connection = myconnection


'// select ba estefade az name moshtari o tarikh
mycommand.CommandText = "select * from TblVorodKala where(NameMoshtari=@NameMoshtari)" + " And " + "TarikhVorod BETWEEN '" & TxtAzTarikh.Text & "' AND '" & TxtTaTarikh.Text & "' "

mycommand.Parameters.Add("@NameMoshtari", SqlDbType.NVarChar, 50).Value = TxtSearchByNameMoshtari.Text
'mycommand.Parameters.Add("@NoeMahsol", SqlDbType.NVarChar, 50).Value = TxtSearchByNoeMahsol.Text


mycommand.CommandType = CommandType.Text
myda.SelectCommand = mycommand
myda.Fill(myds, "TblVorodKala")
rpt.SetDataSource(myds)
rpt.SetParameterValue("behrooz", LblTarikhJari.Text)
FrmGozareshgiriVorodKala.CrystalReportViewer1.Repo rtSource = rpt
FrmGozareshgiriVorodKala.ShowDialog()

Catch ex As Exception
MessageBox.Show(ex.Message, "error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

[Ali_Fallah]

با تشکر از شما
تست کنم ... خبر می کنم
ممنون

[behrooz69]

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

[behrooz69]

سلام داداش شرمندم دیر شد . ببین من با دیتابیس Sql کار می کنم و ارسال پارامتر و فیلتر سازی با اونو بلدم ولی دیتابیست اکسس هستش . ولی فکر کنم تونسم درستش کنم بازم تست کن خبر بده . در ضمن دیتابیست پسوورد داره اونم پسوردشو وردار بعد اوکی کن دوباره.

اینم سورس
113867