[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