ربط حقل ID لقائي بحقل تكست بوكس في الForm

السلام عليكم

في 2003 كان الربط عن طريق الـ DataSet أو DataView شاهد المثال

'Full Name الاسم الكامل
		Me.txtFullName.DataBindings.Add( _
	   New Binding("Text", DsMain1, "Main.FullName"))

وعن طريق الـ DataView Object يكون بهذا الشكل

'اسم الأم
			Me.txtMotherName.DataBindings.Add( _
		   New Binding("Text", DVMain1, "MotherName"))

حيثُ DVMain1 هي الـ DataView

أما في 2005 فيفضل عن طريق الـ BindingSource Object بهذا الشكل.

Me.txtArabicTrainingName.DataBindings.Clear()
		Me.txtArabicTrainingName.DataBindings.Add( _
		New Binding("Text", Me.TrainingTypesBindingSource, "AName", True))

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

المثال 2005 يحتوي على الازالة قبل الربط.

ملاحظة : بما أن الـ ID من نوع ReadOnly يفضل أن يرتبط بـ Label بدل من TextBox

والله أعلى و أعلم.

مشرفنا الغالي الغملاسي لم يترك مجال للكلام ، حيث أنه وضح لك الطريقة بإصدارين من ado.net .

ولكني أدعوك لزيارة الدرس الموجود في توقيعي ..

ربما يفيدك قليلاً ..

هلا اخواني اشكركم على سرعه الرد....

طيب بنحطه ليبل بدل التكست بوكس.....

بس تبون الصراحه مافهمت ...

يعني ممكن توضيح اكثر..

ابغى الاي دي يجي من الداتا بيز ويطلع في الليبل هذا....

انا اشغتل على 2003

الداتا بيس عندي SQL

احدهم قالي ان العمليه تتم بإستخدام داله الـــIdentitey@@

بس ماوضح لي الطريقه...

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

بس برضو ماوضح لي كيف تتم العمليه ..

وانا ماخفي عليكم اني مبتدئه ....ويعني لسه في بدايه الطريق.....ويبغى لي اتعلم اشياء كثير..

ياليت تستحملوني....وتعطوني كل شي بشوي شوي.....وحبه حبه زي مايقولو..

وجزاكم الله الف خير...

المعذره .. ربما ما يحتاج إلى توضيح هو السؤال ..

وربما لو تم إرفاق مثال للمطلوب لتقاربت الأفهام و وجدنا حل مناسب للمطلوب إيجاده ..

يجب أن نعلم أي من الطريقتين الخاصة بالتعامل مع قواعد البيانات ( الإتصال المتصل أم الإتصال المنفصل ) يتم إستخدامها في برنامجك .. وما هي الطريقة التي تم إستخدامها في تعبئة مربعات النص بالبيانات ..

اقتباس

يجيب لك اخر رقم من الجدول.....ويضيف عليه واحد...

إن كان هذا هو المطلوب فإليك الكود التالي ..

Dim maxIdCommand As sqlCommand = New sqlCommand("SELECT MAX(id) AS MaxID FROM MyTable1 ", cn)
 cn.Open()
 Dim maxId As Object = maxIdCommand.ExecuteScalar() + 1
textID.text=maxId

هلا اخوي ..

مشكور على الرد ...

ابشركم تم حل المشكله باستخدام الكود التالي..

والحمدلله شغال 100%

 Dim v As Integer
		Dim sql As String = "select max(EmployeeID) from employees"
		Dim cm As SqlClient.SqlCommand = New SqlClient.SqlCommand("select max(EmployeeID) from employees", con_emp)
		Try
			With cm
				.CommandType = CommandType.Text
				.Connection = con_emp
				If con_emp.State = ConnectionState.Open Then
					con_emp.Close()
					con_emp.Open()
					.CommandText = sql
					v = .ExecuteScalar()
				ElseIf con_emp.State = ConnectionState.Closed Then
					con_emp.Open()
					.CommandText = sql
					v = .ExecuteScalar()
				End If
			End With
		Catch ex As SqlException
			MessageBox.Show(ex.ToString())
		End Try
		Me.Label_id.Text = CStr(Val(v) + 1)
		Me.con_emp.Close()

وجزاكم الله الف خير عني وعن صديقاتي في القروب...

ماقصرتو...

هنالك بعض الحلول و منها ما ذكرتيه على هذا الرابط

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

الف شكر لك الغملاسي ماقصرت..

ووفق الله الجميع...