ربط الحقل بصندوق نص

مرحيا

يوجد ملايين الطرق لعمل مثل هذا الأمر

وراح أوضحلك طريقتي الي أنا بحب أتبعها, ألا وهي إستخدام أسلوب الـ ( OOP ) في البرمجة

أولا : إنشئ Class وسميها MyClass كما في الكود تحت :

 Imports System.Data
Imports System.Data.SqlClient
Imports System.IO

Public Class MyClass

Private Str As String = "ضع جملة إتصالك بقاعدة البيانات الي من نوع SQL "
Private con As New SqlConnection(Str)
Private obj As Object
Private cmd As New SqlCommand

End Class

ثانيا : إنشئ Fucntion في هذا الـ Class وسميها GetCell  ( الكود مكتوب تحت فيك تنسخه وتلصقه )

 Public Function GetCell(ByVal SelectStatment As String) As Object
cmd = New SqlCommand(SelectStatment, con)
If con.State = ConnectionState.Open Then con.Close()
con.Open()
obj = cmd.ExecuteScalar()
con.Close()
Return obj
End Function

ثالثاً : إذهب للفورم الي يوجد فيه الـ TextBox وتريد وضع فيه قيمة بشكل مباشر من قاعدة البيانات, عرف متغير إسمه obj كما في الكود :

 Dim obj As New MyClass

رابعاً : دالة سحب البيانات من القاعدة بشكل مباشر كما في الكود :

Dim EmpID as Integer = 10
TextBox1.Text = obj.GetCell("select CUSTOMERNAME from CUSTOMERS WHERE id LIKE '" & EmpID & "'")

moiyd كتب:

 

مرحيا

 

يوجد ملايين الطرق لعمل مثل هذا الأمر

 

وراح أوضحلك طريقتي الي أنا بحب أتبعها, ألا وهي إستخدام أسلوب الـ ( OOP ) في البرمجة

 

أولا : إنشئ Class وسميها MyClass كما في الكود تحت :

 Imports System.Data
Imports System.Data.SqlClient
Imports System.IO

Public Class MyClass

Private Str As String = "ضع جملة إتصالك بقاعدة البيانات الي من نوع SQL "
Private con As New SqlConnection(Str)
Private obj As Object
Private cmd As New SqlCommand

End Class

ثانيا : إنشئ Fucntion في هذا الـ Class وسميها GetCell  ( الكود مكتوب تحت فيك تنسخه وتلصقه )

 Public Function GetCell(ByVal SelectStatment As String) As Object
cmd = New SqlCommand(SelectStatment, con)
If con.State = ConnectionState.Open Then con.Close()
con.Open()
obj = cmd.ExecuteScalar()
con.Close()
Return obj
End Function

ثالثاً : إذهب للفورم الي يوجد فيه الـ TextBox وتريد وضع فيه قيمة بشكل مباشر من قاعدة البيانات, عرف متغير إسمه obj كما في الكود :

 Dim obj As New MyClass

رابعاً : دالة سحب البيانات من القاعدة بشكل مباشر كما في الكود :

Dim EmpID as Integer = 10
TextBox1.Text = obj.GetCell("select CUSTOMERNAME from CUSTOMERS WHERE id LIKE '" & EmpID & "'")

تقبل مروري

 

مشكور قلبي

أهلا وسهلاً .. أتمنى أنها نفعتك وفادتك

تحياتي