PDA

View Full Version : سوال: ارسال مقادیر تکس باکس به کریستال ریپورت؟؟؟؟



esrafilhashemi
چهارشنبه 06 بهمن 1389, 16:34 عصر
سلام دوستان و اساتید

میشه من آماتور رو راهنمایی کنید
من یه برنامه تو vb.net نوشتم با دیتا بیس sql
من تو یکی از فرم ها یه کوری نوشتم بر اسا یه کلید جستجو میکنه و بقیه رکوردها رو نشون میده

*** مشکل کار اینجاست***

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

چطور میشه این کار رو انجام داد
لطفا راهنمایی کنید
اگه میشه با یه مثال

reza_edu
پنج شنبه 07 بهمن 1389, 08:12 صبح
سلام این موضوع قبلا مطرح شده اگه سرچ میکردی پیدا میکردی اما یه سوال اطلاعات رو که پس از کوری میگیری تو چی میریزی دیتا ست ، دیتا تیبل ، یا دیتا گرید؟ همون اطلاعات رو به کریستال پاس بده تو سورس هاش نمونه هم تو سایت زیاده.

mc_laren
پنج شنبه 07 بهمن 1389, 14:51 عصر
بعد از اینکه پارامتر رو به گزارش ت اضافه کردی ، دستور زیر رو به کدهای نمایش گزارشت اضافه کن.

reportDocument1.SetParameterValue("Parameter", Value)

esrafilhashemi
جمعه 08 بهمن 1389, 11:50 صبح
من توسط این کوری به جستجو در دیتا بیس می پردازم

Public Class print

Private Sub btnserch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnserch.Click
Dim cnString As String
cnString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\haseban.mdf;Integrated Security=true;User Instance=true"

Dim sqlQRY As String = "SELECT * FROM Tb_resid WHERE num_resid = " & txtserch.Text
Dim conn As New SqlConnection(cnString)

Try
' Open connection
conn.Open()

'create data adapter
Dim da As New SqlDataAdapter(sqlQRY, conn)

'create dataset
Dim ds As New DataSet

'fill dataset
da.Fill(ds, "Tb_resid")

'get data table
Dim dt As DataTable = ds.Tables("Tb_resid")

'display data
Dim row As DataRow

For Each row In dt.Rows
txtserch.Text = row("num_resid")
txtname.Text = row("name")
txtavarande.Text = row("avarande")
txtdatevorod.Text = row("date_vorod")
txttime.Text = row("time")
txtnamegete.Text = row("name_gate")
txtirad.Text = row("irad")
txtlavazemjanebi.Text = row("lavazem")
txtdatetahvil.Text = row("date_tahvil")
Next row
Catch ex As SqlException
MsgBox("Error: " & ex.ToString & vbCrLf)
Finally
' Close connection
conn.Close()
End Try

End Subحالا چطور میتونم بقیه مقادیر تکس باکس رو به عنوان پارامتر به کریستال ارسال کنم

بعد از ارسال پارامتر به کریستال از من پسورد دیتا بیس رو میخواهد در حالی که من هیچ پسوردی تعریف نکردم :متفکر: