12-10-23, 07:54 PM
إن كان الكود المطلوب من حقل واحد من نفس الجدول على طول المشروع
يكفي أن تكتب الكود التالي :
والاستدعاء يكون بالكود التالي :
أما إن كان اسم الجدول يختلف من نافذة لأخرى فتحتاج إضافة بارمترات بما يتغير عندك
فإن كان هناك عندك عدة تغييرات
أرفق هنا عدة أكواد مختلفة لنفس المطلوب بإختلاف النوافذ .. لنصنع منها كود مشترك .. يناسب كل النوافذ..
يكفي أن تكتب الكود التالي :
كود :
Public Function Get_Data_Code(SupName As String) As String
Dim cmd As New SqlCommand("select VindorID from VindorsTbl where VindorName=@Vindor", Conn)
cmd.Parameters.Add("@Vindor", SqlDbType.Int).Value = SupName 'txtName.Text
If Conn.State = ConnectionState.Closed Then Conn.Open()
Dim drSrch As SqlDataReader = cmd.ExecuteReader
drSrch.Read()
Dim IDn As String
If drSrch.HasRows Then
IDn = drSrch(0) ' txtVindorID.Text = drSrch(0)
Else
IDn = "0"
' MsgBox(" الكود غير موجود", MsgBoxStyle.Exclamation, "خطاء لا يوجدالبيانات")
' لا تحتاج للارسالة - إن لم يكن الرقم موجود يعيد الرقم صفر
End If
drSrch.Close()
Conn.Close()
Return IDn
End Functionوالاستدعاء يكون بالكود التالي :
كود :
txtVindorID.Text = Get_Data_Code(txtName.Text)أما إن كان اسم الجدول يختلف من نافذة لأخرى فتحتاج إضافة بارمترات بما يتغير عندك
فإن كان هناك عندك عدة تغييرات
أرفق هنا عدة أكواد مختلفة لنفس المطلوب بإختلاف النوافذ .. لنصنع منها كود مشترك .. يناسب كل النوافذ..
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
