منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - رجاء التعديل على الكود المرفق

السلام عليكم

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

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 

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

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

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

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

كود :

   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)

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

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
ربنا يجعلة فى ميزان حسناتك ويذيدك علم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

new_programer

Taha Okla

new_programer

Taha Okla

new_programer