الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

رسالة خطأ عند استرجاع البيانات

مغلق
بدأه Ahmed Wahb في 31 ديسمبر 2006 · 8 رد · 825 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني الاعزاء

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

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

مستخدماً الداتا ريدر

وعند استرجاع البيانات يظهر هذة الرسالة

0.26701167588463.jpg

 Dim dr1 As SqlClient.SqlDataReader
		Dim dis1 As New SqlClient.SqlCommand

		Try
			dis1.Connection = CLSCon.Connection
			dis1.CommandText = " SELECT * From SPOrderMain Where SPOrderNumber=" & TxtOrderNumber.Text
			ConnectDb()
			dr1 = dis1.ExecuteReader
		Catch
		End Try


		Try
			If dr1.Read Then

				ComEnvoy.Text = dr1("SPEnvoyName").ToString()
				TxtEnvoy.Text = dr1("SPEnvoyNumber")
				TxtAccNumber.Text = dr1("SPAccNumber")
				TxtAccName.Text = dr1("SPAccName").ToString()
				TxtRemarks.Text = dr1("SPRemarks").ToString()
				XSSearsh = 1

			Else
				XSSearsh = 0
				MsgBox("تعذر العثور علي امر العمل هذا حاول ادخال رقم اخر", MsgBoxStyle.Critical, "المتخصص")
			End If

		Catch 
		End Try

		Try
			dr1.Close()
			dis1.Dispose()
			DisconnectDb()
		Catch
		End Try

هذا الكود المستخدم ويظهر لي الرسالة السابقة

فما الحل في ذلك

تم تعديل هذه المشاركة بواسطة Ahmed Wahb في 31 ديسمبر 2006 في 21:09

يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل

سبحان الله وبحمده ... سبحان الله العظيم

#2

السلام عليكم

يجب عليك عرض الـكود الخاص بـ ConnectDb لانه لب المشكلة لا أكثر.

بالتوفيق إن شاء الله.

في المثال يتضح المقال

#3

الكود الموجود بداخل

ConnectDb

هو

 If CLSCon.Connection.State <> ConnectionState.Open Then
CLSCon.Connection.Open()
End If

مع العلم بأن
 CLSCon.Connection

هو Connection 
موجود بداخل كلاس 

Public Connection As SqlClient.SqlConnection = New SqlClient.SqlConnection("Server=" & UServerName & "; DataBase=SPSalesKH;integrated security=SSPI;persist security info=False;workstation id=" & SystemInformation.ComputerName & ";packet size=4096")

تم تعديل هذه المشاركة بواسطة Ahmed Wahb في 1 يناير 2007 في 16:34

يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل

سبحان الله وبحمده ... سبحان الله العظيم

#4

السلام عليكم

 If CLSCon.Connection.State <> ConnectionState.Open Then

هذا الشرط غير محكم لماذا ؟

كون القيمة ليست ثنائية اما Open أو Closed

فيحتمل ان يكون Connecting أو احدى القيم المتوفرة في هذا التعداد Enumeration

لذلك غير الشرط ليكون ثنائي لا احادي . بهذا الشكل. 

If cnn.State = ConnectionState.Closed Then
			cnn.Open()
		Else
			cnn.Close()
 cnn.Open()
		End If

في هذا الشرط نقول إذا كان الاتصال مغلق قم بفتحه غير ذلك أي قيمة اخرى سيتم غلق الاتصال

ثم تقوم بفتح الاتصال من جديد , الطريقة تعتمد على كيفية جلب البيانات و باي عنصر يتم الجلب.

بالتوفيق إن شاء الله.

في المثال يتضح المقال

#5

اخي الغملاسي

بارك الله فيك علي هذة المعلومة المفيدة

سأقوم بالتجربة وان شاء الله سيكون مضبوط

يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل

سبحان الله وبحمده ... سبحان الله العظيم

#6

اخي الغملاسي

قمت بالتجربة ولكن للاسف لم تضبط معي

يحدث نفس المشكلة

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

يقوم باسترجاع البيانات مضبوطة .

بمعني انة لابد من الضغط مرتين علي زر البحث ليقوم باسترجاع البيانات في المرة الاولي تظهر الرسالة والمرة التانية لاتظهر الرسالة

يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل

سبحان الله وبحمده ... سبحان الله العظيم

#7

up

يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل

سبحان الله وبحمده ... سبحان الله العظيم

#8

للرفع

يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل

سبحان الله وبحمده ... سبحان الله العظيم

#9

إذا الخطأ منطقي فقط

وهو مكان الكود لا اكثر , لو وضعت البرنامج يكون أفضل.

السلام عليكم

في المثال يتضح المقال

هذا الموضوع مغلق.

مواضيع مشابهة