مشكله في SelectCommand

مغلق

بدأه Al-Mohana في 8 ديسمبر 2006 · 4 رد · 721 مشاهدة · في ADO.NET

مشاركة: واتساب X فيسبوك تيليجرام

#18 ديسمبر 2006 في 23:49 صاحب الموضوع

السلام عليكم

أريد مساعده في حل هذه المشكله

وهي

عند أدخال قيمه محدده في التكس بوكس وأستخدم find

يجب ملأ كافة textboxبالبيانات بدون أستخدم datagrid

وقد أستخدمت هذا الكود

 Dim r1 As OleDb.OleDbDataReader


			Me.OleDbConnection1.Open()

		Me.OleDbDataAdapter1.SelectCommand.CommandText = "SELECT * FROM book where Bk_AccessionN0='" & Me.BK_AccessionNO.Text & "' "




		r1 = Me.OleDbDataAdapter1.SelectCommand.ExecuteReader()
		r1.Read()

		Me.BK_AccessionNO.Text = r1(0)
		Me.BK_Title.Text = r1(1)

		Me.OleDbConnection1.Close()

ؤلكن بدون فائده

وأريد من هذه العمليه عمل delet/Updateمن خلال textbox

delete.rar

تعلم فليس المرء يولد عالماً------ وليس أخو علماً كمن هو جاهلا

العلم نور وجمال يقتبس--------------- صاحبه مكرم اين ما جلس

من فاته العلم ساعة تظعظع ونتكس----شتان شتان بين حمار وفرس

#29 ديسمبر 2006 في 12:31

اخي العزيز

اذا كنت فهمت قصدك فالحل هو التالي :

استخدم الشرط للتأكد من ان r1 يحتوي قيمة في الحقل المطلوب

if r1(0) <> "" Then
	Me.BK_AccessionNO.Text = r1(0)
End if

if r1(1) <> "" Then
	Me.BK_Title.Text = r1(1)
End if

جرب الكود واعلمني بالنتيجة

من مواضيعي

برنامج التاجر جاهز للتجربة ...

شاشة تسجيل دخول اكثر أمانا ...

فكرة استخدام DLL لحماية البرامج ..

#39 ديسمبر 2006 في 13:09

السلام عليكم

المشكه هي عندما أبحث عن طريق numberتحدث المشكله

أما البحث عن طريق text فلا توجد مشكله والكود شغال

وأنا أريد البحث عن طريق Bk_AccessionNO الي هو number ويضا هو primaryKey

والمشكله في

'" + Me.BK_AccessionNO.Text + "'"

		Me.OleDbConnection1.Open()

		Me.OleDbDataAdapter1.SelectCommand.CommandText = "SELECT * FROM book where Bk_AccessionNO ='" + Me.BK_AccessionNO.Text + "'"

		r1 = Me.OleDbDataAdapter1.SelectCommand.ExecuteReader()
		r1.Read()

		Me.BK_AccessionNO.Text = r1(0)
		Me.BK_Title.Text = r1(1)

		Me.OleDbConnection1.Close()

تعلم فليس المرء يولد عالماً------ وليس أخو علماً كمن هو جاهلا

العلم نور وجمال يقتبس--------------- صاحبه مكرم اين ما جلس

من فاته العلم ساعة تظعظع ونتكس----شتان شتان بين حمار وفرس