مشكله في برمجه كريستال ريبورت

شنو الطريقة اللي تستخدمينها لعرض البيانات ؟؟

Dim cn As New SqlConnection

Dim ds As New DataSet1ا

Dim daregistory As New SqlDataAdapter

daregistory.SelectCommand = New SqlCommand("select * from registory", cn)

daregistory.Fill(ds, "registory")

Dim rpt As New CrystalReport1

rpt.SetDataSource(ds.Tables("registory"))

CrystalReportViewer1.ReportSource = rpt

هذا كود عرض البيانات

اوكي اختي انتي مو معطيه شرط بالكود .. يعني اذا تبين اللي اسمه احمد لازم تعطينة شرط

 daregistory.SelectCommand = New SqlCommand("select * from registory where fieldName='" & textbox1.text & "'", cn)

السلام عليكــم ورحمـة الله وبركاتــه

شكرا لك

بس @NAME

البارميتر اساويه ب التكست بوكس ولا بس اغيره ممكن الكود كامل لانه سويت فكرتك يطلع خطأ وصورة الخطأ

اختي استبدلي هالكود بالكود اللي تستخدمينة

 Cn.Open()
		Dim ds As New DataSet

		Dim da As New SqlDataAdapter("select * from registory where Name like '%" & Trim(TextBox1.Text) & "%'", cn)
		da.Fill(ds)
		da.Dispose()



		Dim r As New CrystalReport1

		r.SetDataSource(ds.Tables(0))
		CrystalReportViewer1.ReportSource = r

		ds = Nothing
		cn.close()

السلام عليكــم ورحمـة الله وبركاتــه

شكرا جزيلا لك الحمد لله صلح معايا

اذا كنت ابغا اظهر الاسماء من الجدول عن طريق الكمبو بوكس مثلا اضغط على اسم احمد بعد مااضغط ابغاه يطلعلي رقم الهويه في مربع نص اخر هل يوجد كود او لأ وشكرا مررره اخرى واذا في مواقع تعلمنا هاذي الاكواد وخصوصا البارميترات ياليت تضيفها

اول شي يجب ان نضيف الاسماء بالكومبوبكس .. ضعي الكود التالي في حدث الفورم لود ..

  Try
			Cn.Open()
			Dim cmd As New SqlCommand("select name from tbl1", Cn)
			Dim dr As SqlDataReader
			dr = cmd.ExecuteReader
			Do While dr.Read
				Combobox1.Items.Add(dr.GetString(0))
			Loop
			dr.Close()
		Catch ex As SqlException
			MsgBox(ex.Message)
		Finally
			Cn.Close()
		End Try

ومن ثم ضعي في حدث SelectedIndexChanged للمومبوبكس الكود التالي .. حيث سيبحث عن الرقم للعنصر المختار من الكومبوبكس

  Try

			Cn.Open()
			Dim cmd As New SqlCommand("select id from tbl1 where name='" & Combobox1.SelectedItem.ToString & "'", Cn)
			Dim dr As SqlDataReader
			dr = cmd.ExecuteReader
			dr.Read()
			TextBox1.Text = dr.GetSqlInt32(0)
			dr.Close()
		Catch ex As Exception
			MsgBox(ex.Message)
		Finally
			Cn.Close()
		End Try

_____________________________________________________________.rar

اولا أين رسالة الخطأ التي تظهر عند اظافة سجل جديد .. ؟؟

أما الرسالة التي ظهرت في كود التعبئة معناها أنه لا يمكن للكائن DataReader قرائه بيانات فارغة .. لذا يتوجب عليك ان تتأكد من البيانات في الجدول أنها ليست Null..

عموما الخطأ هو انك لم تاخذ نسخة من كائن بالشكل الصحيح ..

هل لي بسؤال ؟؟ هل الطريقة التي تستخدمها لحفظ سجل جديد ولتحديث سجلات أخرى .. مفروضة عليك أم بإختيارك ؟

لأن هناك طرق أسهل من الطريقة اللي تستخدمها !!

لا بأس .. هذي المشاكل محلولة باذن الله ..

انا افضل انك تستخدمين الطرق الاسهل للوصول الى البيانات ومعالجتها ..

اذا أمكن ترفعيلي المشروع وانا اعمل عليه بعض التغييرات وراح اكتبلك فيه بعض شروحات للاكواد .. عموما الاكواد سهله للغاية وما اعتقد انك ماراح تفهمينها

واذا تقدرين ترسلينه لي عن طريق الايميل يكون أفضل ..

OK.YES@HOTMAIL.COM