[new_programer]

السلام عليكم 

اريد كتابة الكود فى موديول  لاستخدامة فى كامل المشروع :

PHP كود :

Public Sub Get_Data_Code()
        Dim cmd As New SqlCommand("select VindorID  from VindorsTbl    where VindorName=@Vindor", conn)
        cmd.Parameters.Add("@Vindor", SqlDbType.Int).Value = txtName.Text
        If conn.State = ConnectionState.Closed Then conn.Open()
        Dim drSrch As SqlDataReader = cmd.ExecuteReader
        drSrch.Read()
        If drSrch.HasRows Then
            txtVindorID.Text = drSrch(0)
            drSrch.Close()
            conn.Close()
        Else
            MsgBox(" الكود غير موجود", MsgBoxStyle.Exclamation, "خطاء لا يوجدالبيانات")
            drSrch.Close()
            conn.Close()
        End If
        drSrch.Close()
        conn.Close()
        Exit Sub
    End Sub 


[Taha Okla]

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

أكتب كود فعلي لاستخراج رقم المورد بعد معرفه اسمه وارفعه
وسيقوم الشباب بالتعديل عليه وجعله كود عام ..

[new_programer]

تم تحديث الموضوع

[Taha Okla]

إن كان الكود المطلوب من حقل واحد من نفس الجدول على طول المشروع
يكفي أن تكتب الكود التالي :

كود :

   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)

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

[new_programer]

PHP كود :

Public Function Get_Data_Code2(ByVal SupName As String, ByVal TableName As String, ByVal ColumnName As String, ByVal ColumnName2 As String)
       
        Dim cmd As New SqlCommand("select " & ColumnName & "   from " & TableName & " where " & ColumnName2 & "=@SupName", conn)
        cmd.Parameters.Add("@SupName", SqlDbType.VarChar).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 


كود الاستدعاء 

PHP كود :

'txtDrawerID.Text = Get_Data_Code2(txtDrawer.Text, "DrawerTbl", "DrawerID", "DrawerName") 


---

اشكرك جدا اخى الكريم : Taha Okla

الكود يعمل وتم التعديل علية للعمل دون تقيد مع بيانات ثابتة


اشكرا مرة اخري Taha Okla
ربنا يجعلة فى ميزان حسناتك ويذيدك علم